03-04-22, 11:10 AM
السلام عليكم عندي مشكله بالحفظ تضهر عباره خطا في عباره الانسرت
هذا كود الحفظ
هذا كود الحفظ
PHP كود :
cmd = New OleDbCommand("insert into INPUT(symble, name,class,nots)values(@symble, @name,@class,@nots)", Con)
With cmd.Parameters.AddWithValue("@symble", TextBox1.Text)
cmd.Parameters.AddWithValue("@name", TextBox2.Text)
cmd.Parameters.AddWithValue("@class", ComboBox1.Text)
cmd.Parameters.AddWithValue("@nots", TextBox3.Text)
MsgBox("تم حفظ المستند بنجاح")
TextBox1.Text = ""
TextBox2.Text = ""
'ComboBox2.Text = ""
'ComboBox3.Text = ""
End With
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
(03-04-22, 11:10 AM)فراس محي كتب : [ -> ]السلام عليكم عندي مشكله بالحفظ تضهر عباره خطا في عباره الانسرت
هذا كود الحفظ
PHP كود :
Imports System.Data
Imports System.Data.OleDb
Dim Da As OleDbDataAdapter
Dim cmd As OleDbCommand
Dim Dt As New DataTable
Dim ds As New DataSet
Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=moistore1.accdb")
cmd = New OleDbCommand("insert into INPUT(symble, name,class,nots)values(@symble, @name,@class,@nots)", Con)
With cmd.Parameters.AddWithValue("@symble", TextBox1.Text)
cmd.Parameters.AddWithValue("@name", TextBox2.Text)
cmd.Parameters.AddWithValue("@class", ComboBox1.Text)
cmd.Parameters.AddWithValue("@nots", TextBox3.Text)
MsgBox("تم حفظ المستند بنجاح")
TextBox1.Text = ""
TextBox2.Text = ""
'ComboBox2.Text = ""
'ComboBox3.Text = ""
End With
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()