syntax error

[solmaz_zm]

کد زیر رو در نظر بگیرید لطفا...



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 همین کد رو یعنی بخش دستورش رو داخل محیط اکسس که اجرا میکنم هیچ مشکلی نداره!!
به نظرتون مشکل کجاست؟

ممنون

[solmaz_zm]

کمکککککککککک

[yavari]

سلام دوست عزیز

یه گیر کوچیک داشت : hard_code.SelectedItem.Text :لبخندساده:

اینم درستش :


Private Sub save_hard()
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db1.mdb;Persist Security Info=False")
Dim Cm As New OleDb.OleDbCommand
Dim Da As New OleDb.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.Text & "','" & case_model.Text & "','" & monitor_model.Text & "','" & keyboard_model.Text & "')"
Cm.ExecuteNonQuery()
cn.Close()
End Sub

موفق باشید .