solmaz_zm
چهارشنبه 23 خرداد 1386, 14:42 عصر
کد زیر قبلا اجرا میشده،حتی در بخش دیگه ای ازبرنامه هم اجرا می شد،اما در قسمتی اجرا نمیشه...هیچ پیغام خاصی هم نمیده....
Private Sub save_changes()
Dim Cm2 As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False")
cn.Open()
Cm2.Connection = cn
da.SelectCommand = Cm2
'Emp_code.Text = edit_formcode.Text
Dim w As String
w = hard_code.SelectedItem.Text
Cm2.Parameters.Add("@FORM_CODE", OleDbType.VarChar, 100).Value = w
Cm2.Parameters.Add("@edit_case_model", OleDbType.VarChar, 100).Value = case_model.Text
Cm2.Parameters.Add("@edit_monitor_model", OleDbType.VarChar, 100).Value = monitor_model.Text
Cm2.CommandText = "Update hardware set [case_model]=@edit_case_model, [monitor_model]=@edit_monitor_model WHERE [form_code]=@FORM_CODE"
Cm2.ExecuteNonQuery()
cn.Close()
به قسمت Cm2.ExecuteNonQuery() که میرسه،ظاهرا اجرا نمیشه....
نمیدونم مشکل چیه لطفا راهنمایی فرمایین.
ممنون.
Private Sub save_changes()
Dim Cm2 As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False")
cn.Open()
Cm2.Connection = cn
da.SelectCommand = Cm2
'Emp_code.Text = edit_formcode.Text
Dim w As String
w = hard_code.SelectedItem.Text
Cm2.Parameters.Add("@FORM_CODE", OleDbType.VarChar, 100).Value = w
Cm2.Parameters.Add("@edit_case_model", OleDbType.VarChar, 100).Value = case_model.Text
Cm2.Parameters.Add("@edit_monitor_model", OleDbType.VarChar, 100).Value = monitor_model.Text
Cm2.CommandText = "Update hardware set [case_model]=@edit_case_model, [monitor_model]=@edit_monitor_model WHERE [form_code]=@FORM_CODE"
Cm2.ExecuteNonQuery()
cn.Close()
به قسمت Cm2.ExecuteNonQuery() که میرسه،ظاهرا اجرا نمیشه....
نمیدونم مشکل چیه لطفا راهنمایی فرمایین.
ممنون.