[Waleed Al-Khamesy]

        السلام عليكم ورحمة الله وبركاته
أعمل على فيجوال ستوديو 2010، واتصلت بقاعدة البيانات أكسس 2010، والتي تحتوي على جدولين؛ أحدهما خاص باسم المستخدم والباسوورد، ووضعت الكود الخاص بفحص اسم المستخدم والباسوورد عند الضغط على زر Login، لكن عند الضغط عليه تظهر الرسالة  المرفقة في الصورة وهي: نوع البيانات غير متطابق في تعبير المعايير، علماً أن الحقل الخاص باسم المستخدم (نص) والباسوورد (رقم).
السؤال: أرجوا توضيح سبب الخطأ، وجزاكم الله خيراً.

[محمد كريّم]

اسم المستخدم نص والباسوورد رقم
جرب تحول نص الباسوورد الى رقم في الاستعلام
convert.toint32(textbox2.text)

[Waleed Al-Khamesy]

(22-09-17, 10:45 PM)محمد كريّم كتب : اسم المستخدم نص والباسوورد رقم
جرب تحول نص الباسوورد الى رقم في الاستعلام
convert.toint32(textbox2.text)

جزيت خيراً على الرد؛ لكن يبقى نفس الخطأ، وتظهر نفس الرسالة !!

[سعود الشامان]

وعليكم السلام ورحمة الله وبركاته


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

[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

---

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

[سعود الشامان]

جرب الآن بعد التعديل

https://up.top4top.net/downloadf-630t3xqp1-rar.html

[wale90]

كود :

da = New OleDbDataAdapter("Select * from Users where UserName = '" & TextBox1.Text & "'and UserPass =" & Val(TextBox2.Text) , con)

[Waleed Al-Khamesy]

(23-09-17, 01:16 AM)سعود الشامان كتب : جرب الآن بعد التعديل

https://up.top4top.net/downloadf-630t3xqp1-rar.html

جزيت خيراً؛ لكن لا زال الخطأ موجوداً، ولو نظرت في الـ Module1 لوجدت dt معرف مسبقاً للمشروع كله.

---

(23-09-17, 01:21 AM)wale90 كتب :

كود :

da = New OleDbDataAdapter("Select * from Users where UserName = '" & TextBox1.Text & "'and UserPass =" & Val(TextBox2.Text) , con)

جزيت خيراً؛ تمت تجربة الكود بنفس الصيغة قبل ذلك وما غير شيئاً.

[wale90]

خسارة انك ما جربت تعديلي

[Waleed Al-Khamesy]

(23-09-17, 01:52 AM)wale90 كتب : خسارة انك ما جربت تعديلي

جزيت خيراً على اقتراحك، واعلم يقيناً أني لا أتجاهل أي تعليق أو رأي، وقد قمت حقاً بتجربته لكن دون جدوى، وأخبرتك أني قمت بتجربته سابقاً، لك جزيل الشكر.