اخواني في الفيجوال بسك 6 طريقة الربط بــ ado نقوم بعملية اظافة modul ثم اظافة
ثم تعريف المتغيرات للاتصال والربط
فما هي طريقة الربط بــ vb.net بطريقة ado لرجو الافادة
15-10-13, 12:10 PM (آخر تعديل لهذه المشاركة : 15-10-13, 12:11 PM {2} بواسطة سعود.)
كود :
اعرف عن الكائنات للربط ومنها :
1-connectionstring = جملة الاتصال بقاعدة البيانات
2-oledbconnection = كائن امر الاتصال
3-dataset = قاعدة بيانات مؤقتة
4-Query syntax =جملة استعلام
5-oledbdataadapter = مكيف بيانات
6-oledbcommandbuilder = باني الاوامر
هذه اهم الكائنات للربط بقاعدة البيانات واجراء اوامر الاضافة والتعديل والحذف.
الامثلة
1-dim str as string="provider=microsoft.ace.oledb.12.0;data source=db.accdb"
2-dim con as new oledbconnection(str)
3-dim ds as new dataset
4-dim sql as string="select * from tb"
5-dim da as new oledbdataadapter(sql,con)
6-dim cmb as new oledbcommandbuilder(da)
Public Class Form1
'جملة اتصال
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
'كائن امر اتصال
Dim con As New OleDbConnection(str)
Dim m As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'للاضافة نحتاج جملة اتصال و كائن امر اتصال
'ثم التالي يكفي للاضافة
Dim insert As New OleDbCommand("insert into tb(tname) values(@tname)", con)
insert.Parameters.AddWithValue("@tname", InputBox("ادخل اسمك", "اكتب اسم لحفظه", "اسم رقم: " & m))
If con.State = ConnectionState.Closed Then
con.Open()
End If
insert.ExecuteNonQuery()
gt()
If con.State = ConnectionState.Open Then
con.Close()
End If
m += 1
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If con.State = ConnectionState.Open Then
con.Close()
End If
gt()
End Sub
Sub gt()
ListBox1.Items.Clear()
Dim fildg As New OleDbCommand("select * from tb", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim dr As OleDbDataReader = fildg.ExecuteReader
Do While dr.Read
ListBox1.Items.Add(dr.Item("tname"))
Loop
If con.State = ConnectionState.Open Then
con.Close()
End If
End Sub
End Class
اخوي سعود الله يعطيك العافة على مساعدتي انا مبتدى بل VB.NET لاني استخدم فيجوال بيسك 6 واريد الانتقال ولاكن احتاج بعض المساعده
المثال الي في المرفقات حملته ولاكن في اخطاء ولا ادري ما الحل ارفقة صورة الخطاء لتوضيح المشكلة