i am getting an error in my insert query please help me
i have used in userfrom
i am trying to insert into the mysql database
please help me out
Rich (BB code):
Private Sub cmdbt1_Click()
Dim EmployeeName, SystemName, LoginDate, LoginTime, TeamLeadBy, ProjectName, AllocatedWork
'Set txtSampleTextBox = Controls.Add("Forms.TextBox.1", "txtSampleTB")
'Set rst = CreateObject("adodb.recordset")
server_name = "192.168.1.200"
Database_Name = "empdetails" ' Enter your database name here
User_id = "root" ' enter your user ID here
Password = "bmx1" ' Enter your password here
source1 = "emp"
Set conn = New ADODB.Connection
' Set rst = New ADODB.Recordset
conn.ConnectionString = "DRIVER={MySQL ODBC 5.2 unicode Driver};SERVER=" & server_name & ";UID=" & User_id & _
";PWD=" & Password & ";DATABASE=" & Database_Name & "; Source=" & source1 & ";"
conn.Open
Dim c As ADODB.Connection
Dim r As ADODB.Recordset
Set c = New ADODB.Connection
Dim rw As Integer
c.Open "DSN=emp"
Sql = "Insert into userinfo (employeename,systemname,logindate,logintime,team leadby,projectname,allocatedwork) Values ('" & _
EmployeeName.Value & "', '" & SystemName.Value & "','& logindate.value & " ','" & logintime.value & "','" & team leadby.value & _
"','" & projectname.value & "','" & allocatedwork.value & "')"
Set r = c.Execute(Sql)
c.Close
'conn.Close
Unload Me
MsgBox "Database Updated!", vbOKOnly, "Update!"
End Sub
employeename(lbl1) | systemname(Label1) | logindate(lbl3) | logintime(lb5) | teamleadby(txtbx) | projectname(txtbx) | allocatedwork(txtbx) |
i have used in userfrom
i am trying to insert into the mysql database
please help me out
Last edited by a moderator: