[rmnr]

الوضع المتصل يستخدم Command ويقرأ البيانات بواسطة DataReader
ويضل الإتصال مفتوح طوال فترة قراءة البيانات

كود :

' Connected mode الوضع المتصل

' Command يستخدم
' DataReader يبقى الإتصال مفتوح لحين الإنتهاء من قراءة البيانات بواسطة

Dim cmd As New OleDbCommand("SELECT * FROM [tb1]", cnn)

cnn.Open()

Dim reader As OleDbDataReader = cmd.ExecuteReader
While reader.Read
   MsgBox(reader.Item("Name"))
End While

cnn.Close()

---

الوضع المنفصل يستخدم DataAdapter ويقرأ البيانات كاملة ويضعها في جدول مؤقت DataTable
ويغلق الإتصال مباشرة بعد تعبئة الجدول المؤقت

كود :

' Disconnected mode الوضع المنفصل

' DataAdapter يستخدم
' DataTable يغلق الإتصال بعد شحن البيانات في الجدول المؤقت

Dim da As New OleDbDataAdapter("SELECT * FROM [tb1]", cnn)

Dim dt As New DataTable

da.Fill(dt)

For i = 0 To dt.Rows.Count - 1
   MsgBox(dt.Rows(i).Item("Name"))
Next

---

منقول من أحد الدروس القديمة