مثال للربط مع قاعدة آكسس

السلام عليكم

بالنسبة لاتصال بقاعدة بيانات اكسس فهذا هو الكود الاتصال

dim cn As New OleDbConnection

cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=C:\a.mdb"

------------------------------------------------------------------------------------------------------------------------

بالنسبة لكود الاضافة

s1 = "select * from d where a1=@k1"

Dim cm As New OleDbCommand(s1, cn)

cm.Parameters.Add("@k1", TextBox1.Text)

Dim re As OleDbDataReader = cm.ExecuteReader

If re.Read Then

MsgBox("الرقم المدخل موجود", MsgBoxStyle.Information, "تنبيه")

re.Close()

Exit Sub

End If

re.Close()

cm.Dispose()

s1 = "insert into d(a1,a2,a3,a4) values (@k1,@k2,@k3,@k4)"

Dim cm1 As New OleDbCommand(s1, cn)

cm1.Parameters.Add("@k1", TextBox1.Text)

cm1.Parameters.Add("@k2", TextBox2.Text)

cm1.Parameters.Add("@k3", TextBox3.Text)

cm1.Parameters.Add("@k4", DateTimePicker1.Text)

cm1.ExecuteNonQuery()

MsgBox("تمت عمليه الاضافة")

------------------------------------------------------------------------------------------------------------------------------------------

بالنسبة لكود التعديل

s1 = "update d set a2=@k2,a3=@k3,a4=@k4 where a1=" & TextBox1.Text

Dim cm As New OleDbCommand(s1, cn)

cm.Parameters.Add("@k2", TextBox2.Text)

cm.Parameters.Add("@k3", TextBox3.Text)

cm.Parameters.Add("@k4", DateTimePicker1.Text)

cm.Parameters.Add("@k1", TextBox1.Text)

cm.ExecuteNonQuery()

MsgBox("تم عمليه التعديل ")

----------------------------------------------------------------------------------------------------------------------------------------------

بالنسبة لكود الحذف

If MessageBox.Show("هل تريد الالغاء", "تحذير", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then Exit Sub

s1 = "delete from d where a1= @k1 "

Dim cm As New OleDbCommand(s1, cn)

cm.Parameters.Add("@k1", TextBox1.Text)

cm.ExecuteNonQuery()

MsgBox("تمت عملية الحذف")

----------------------------------------------------------------------------------------------------------------------------

بالنسبة لكود البحث

s1 = "select * from d where a1=@k1"

Dim cm As New OleDbCommand(s1, cn)

cm.Parameters.Add("@k1", TextBox1.Text)

Dim re As OleDbDataReader = cm.ExecuteReader

If re.Read Then

TextBox1.Text = re("a1")

TextBox2.Text = re("a2")

TextBox3.Text = re("a3")

DateTimePicker1.Value = re("a4")

re.Close()

Exit Sub

Else

MsgBox("الرقم غير موجود", MsgBoxStyle.Information, "تنبيه")

End If

re.Close()

cm.Dispose()

-------------------------------------------------------------------------------------------------------------------------------------

ملاحظة

قاعدة البيانات باسم a وفيها جدول باسم d وفيها حقول a1,a2,a3,a4 الاول رقم ,نص نص و تاريخ

وهو مثال بسيط جدا علي عملية الاتصال بقاعدة البيانات.

بارك الله فيك أخي أيمن

ألف ألف شكر على هذا الجهد الطيب

بس باقي كود الحفظ الله يخليك

لأن المشكلة عندي بأن الحفظ لا يتم .. فعندما أحفظ وأخرج من البرنامج وأعيد فتحه لا أجد البيانات الجديدة

مشكور

الرابط محذوف .......................