[Waleed Al-Khamesy]

(22-09-17, 11:53 PM)سعود الشامان كتب : وعليكم السلام ورحمة الله وبركاته


http://vb4arb.com/vb/showthread.php?tid=21817

---

لم تقم بتعريف dt

انظر للسطر الثاني

كود :

Dim da As New OleDbDataAdapter("Select * from Users where UserName = '" & TextBox1.Text & "'and UserPass ='" & TextBox2.Text & "' ", con)
      Dim dt As New DataTable
        da.Fill(dt)

        If dt.Rows.Count > 0 Then

Else

End If

جزيت خيراً على الرد، لقد قمت بتعريف dt في Module1:

كود :

Imports System.Data.OleDb

Module Module1
   Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Waleed Al-Khamesy\Desktop\Test.accdb")
   Public da As New OleDbDataAdapter
   Public dt As New DataTable

   Public Sub Load_Account()
       dt.Clear()
       da = New OleDbDataAdapter("select * from Users", con)
       da.Fill(dt)
   End Sub
End Module

---

الملف بالمرفقات تسهيلاً للجواب، أسأل الله التوفيق لإيجاد حل لهذا الأمر.