ربط قاعدة بيانات أكسس ب فيجوال نت 2003

أولا - الموضوع مكانه في منتدى ADo.net بما أننا نتكلم عن قواعد البيانات هنا

ثانيا - قم بالبحث في المنتدى فستجد العديد والعديد من الدروس المفيدة

اولا قم باستيراد فضاء الأسماء الأتي

Imports System.Data.OleDb

ثم ضع كود الأتصال بقاعدة البيانات الأتي في الحدث المناسب

Dim Con As New OleDbConnection("Jet OLEDB:Database Password='هنا اكتب الباسورد';Data Source='هنا ضع مسار قاعدة البيانات';Provider=Microsoft.Jet.OLEDB.4.0")

بعد ذلك يتم كتابة الأكواد اللازمة للقراءة او الكتابة في قاعدة البيانات

أولا : القراءة من قاعدة البيانات

1- قراءة قيمة واحدة من قاعدة البيانات

Dim SQL As String ="Select ProductName From Products Where ProductID = 50"

Dim Cmd As New OleDbCommand(sql, con)

Try
 con.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try

 Dim x As String '(طبعا نوع المتغير ممكن يختلف على حسب القيمة الى راجعة من قاعدة البيانات)

Try
If IsDBNull(cmd.ExecuteScalar) = False Then x = cmd.ExecuteScalar
هنا يتم تخصيص القيمة المقرؤة ل TextBox1
TextBox1.Text=x
Catch ex As Exception
MsgBox(ex.Message)
 End Try

con.Close()

2- قراءة سجل واحد من قاعدة البيانات

Dim SQL As String ="Select ProductID,ProductName From Products Where ProductID = 50"

Dim Cmd As New OleDbCommand(sql, con)

Dim dr As OleDbDataReader

Try
 con.Open()
dr = cmd.ExecuteReader
Catch ex As Exception
MsgBox(ex.Message)
End Try

If dr.HasRows = True Then
dr.Read()
هنا يتم تخصيص القيم المقرؤة الى TextBox1 , TextBox1 
 TextBox1.Text = dr(0)
TextBox2.Text = dr(1)				   
End If			  
dr.Close()
 con.Close()

3 - قراءة عدة سجلات من قاعدة البيانات

Dim SQL As String ="Select ProductID,ProductName From Products"

Dim Cmd As New OleDbCommand(sql, con)

Dim dr As OleDbDataReader

Try
 con.Open()
dr = cmd.ExecuteReader
Catch ex As Exception
MsgBox(ex.Message)
End Try

If dr.HasRows = True Then
While dr.Read
هنا يتم اضافة السجلات المقروئة الى ListBox1 
ListBox1.Items.Add(Dr(0) & " " Dr(1))
End While				  
End If			  
dr.Close()
 con.Close()

ثانيا : الكتابة في قاعدة البيانات

Dim SQL As String

في حالة ادخال سجل جديد
SQL ="INSERT INTO Products (ProductID,ProductName) VALUES ('100','Tea')"

 لو القيم موجودة في اداة ولتكن TextBox الجملة هاتكون كالتالي'

SQL ="INSERT INTO Products (ProductID,ProductName) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "')"

في حالة تحديث سجل 
SQL ="UPDATE Products SET Products.ProductID = '100' ,Products.ProductName = 'Coffee'"

في حالة حذف سجل
SQL = "DELETE FROM Products Where Products.ProductID = '100'"


Dim cmd As New OleDbCommand(sql, con)

Try
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()

طبعا دي مش الطريقة الوحيدة للقراء والكتابة في قواعد البيانات ولكن هذه على سبيل المثال

شكرا على اجابتك

ما قصرت