solmaz_zm
چهارشنبه 23 خرداد 1386, 14:35 عصر
کد زیر رو در نظر بگیرید لطفا...
Private Sub save_hard()
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False")
Dim Cm As New OleDbCommand
Dim Da As New OleDbDataAdapter
cn.Open()
Cm.Connection = cn
Da.SelectCommand = Cm
Cm.CommandText = " INSERT INTO hardware( form_code,case_model,monitor_model,keyboard_model) values('" & hard_code.SelectedItem.Text & "','" & case_model.Text & "','" & monitor_model.Text & "','" & keyboard_model.Text & "')"
Cm.ExecuteNonQuery()
cn.Close()
End Sub
پیغام خطایی که میده اینه..Syntax Error همین کد رو یعنی بخش دستورش رو داخل محیط اکسس که اجرا میکنم هیچ مشکلی نداره!!
به نظرتون مشکل کجاست؟
ممنون
Private Sub save_hard()
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False")
Dim Cm As New OleDbCommand
Dim Da As New OleDbDataAdapter
cn.Open()
Cm.Connection = cn
Da.SelectCommand = Cm
Cm.CommandText = " INSERT INTO hardware( form_code,case_model,monitor_model,keyboard_model) values('" & hard_code.SelectedItem.Text & "','" & case_model.Text & "','" & monitor_model.Text & "','" & keyboard_model.Text & "')"
Cm.ExecuteNonQuery()
cn.Close()
End Sub
پیغام خطایی که میده اینه..Syntax Error همین کد رو یعنی بخش دستورش رو داخل محیط اکسس که اجرا میکنم هیچ مشکلی نداره!!
به نظرتون مشکل کجاست؟
ممنون