تعريف جملة الاتصال بقاعدة البيانات:
Dim
con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=ali.mdb;Jet OLEDB:Database Password=1234")
اضافة محتويات في
قاعدة البيانات:
Try
Dim str As String = String.Format("insert
into TableMain (ItemNameMain, ItemNumber) Values ('{0}','{1}')",
TxtItemName.Text, TxtItemNumber.Text)
Dim
cmd As New OleDbCommand(Str)
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم ادخال الاسم والرقم بنجاح")
TxtItemName.Text = String.Empty
TxtItemNumber.Text = String.Empty
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
لعنة الله عليك في الدنيا و الاخرة
ردحذف