anssarri
چهارشنبه 09 اردیبهشت 1388, 21:09 عصر
سلام
جهت افزودن رکوردبه sql دچار مشکل هستم البته در سایت هم search کردم ولی نشد!لطفا کمکم کنید بدونم مشکل کدم چیه؟مرسی:افسرده:
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim statement As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
"Info=False;Initial Catalog=Test;Data Source=A481A65B15814DE
statement = "INSERT INTO products" & "(name)" & "VALUES(" & Text1.Text
"("&
cnn.Execute statement, , adCmdText
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
جهت افزودن رکوردبه sql دچار مشکل هستم البته در سایت هم search کردم ولی نشد!لطفا کمکم کنید بدونم مشکل کدم چیه؟مرسی:افسرده:
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim statement As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
"Info=False;Initial Catalog=Test;Data Source=A481A65B15814DE
statement = "INSERT INTO products" & "(name)" & "VALUES(" & Text1.Text
"("&
cnn.Execute statement, , adCmdText
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing