مشكلة في ال OleDbDataAdapter عند تشغيل البرنامج

إبعتلي المثال و إن شاء الله أحلها لك

lشكراً يا أخ mohcoo واسفه للتأخير في في الرد عليك وهذا برنامجنا

وبانتظار الرد بفارغ الصبر :blink:

تم حذف الملف المرفق لأنه مضروب، حاول أن تضع ملفاً صالحاً

السلام عليكم

لا اعرف .. هل هي المشكلة في الانترنت لديّ ام لا .. لكنني حاولت تنزيل الملف مرتين و لم يفتح في اي منهما ...

خطأ: unexpected error

فعلاً الملف مضروب

يا ريت يا أخت نسيم الربيع تجربي أن تضعي السطر الذي يظهر فيه الخطأ تحت جملة ال try

مثال

 Try
OleDbDataAdapter1.Fill(DataSet21, "ID")
        Catch ex As Exception
msgbox(ex.message)
        End Try

سوف يظهر لك رساله تطلعك على المشكلة يا ريت تكتبيه لنا

كان عندي سؤال

هل ID هو إسم لجدول (المفروض)

حل مبدئي غيري إسم الجدول في قاعدة البيانات إلى ("ID_TABLE") على سبيل المثال

وجربي

OleDbDataAdapter1.Fill(DataSet21, "ID_TABLE")

شكرا يا أخ mohcool على مساعدتك كثيرا

وعملت زي ماقلت وغيرت اسم الجدول

صار عندي خطأ تاني ويقول :

No value given for one or more required parameters

:wacko:

  Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click

        myusername = TxtID.Text
        mypassword = TxtPass.Text

        DataSet21.Clear()
        Dim Str As String = "select * from Pass_table where username='" & myusername & "' and password='" & mypassword & "'", con_str
        OleDbDataAdapter1 = New OleDbDataAdapter(Str, Con)
        Try
            OleDbDataAdapter1.Fill(DataSet21, "pass_table")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        If myusername Is DataSet21.Tables("pass_table") Then
            Me.Close()
            Dim x As New Form3
            x.Show()

        End If

Dim Str As String = "select * from Pass_table where username='" & myusername & "' and password='" & mypassword & "'", con_str

هذه الجملة فيها غلط

أول شيئ إيش قصدك بوضع con_str

عدلي الجمله إلى الشكل التالي للتأكدمن صحة إسم المستخدم وكلمة السر مع بعض

Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click

       myusername = TxtID.Text
       mypassword = TxtPass.Text

       DataSet21.Clear()
       Dim Str As String = "select * from Pass_table where [username]="
str &= " ' " &  myusername & " ' "
str&=" and  [password]= "  &  " ' "  &   mypassword   & " ' "
       OleDbDataAdapter1 = New OleDbDataAdapter(Str, Con)
       Try
           OleDbDataAdapter1.Fill(DataSet21, "pass_table")
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       If myusername Is DataSet21.Tables("pass_table")  and   mypassword  Is DataSet21.Tables("pass_table")    Then
           Dim x As New Form3
           x.Show()
           Me.Close()
       End If

وإن شاء الله بتشتغل

أتوقع أن المشكلة كانت con_str

يوجد هناك طريقة أخرى أنا أستعملها للتأكد من صحة اسم المستخدم و كلمة المرور

       DataSet21.Clear()
       Dim Str As String = "select * from Pass_table "
       OleDbDataAdapter1 = New OleDbDataAdapter(Str, Con)
      Dim n() As DataRow
try
       n = DataSet21.Tables("pass_table").Select("username= ' " & TxtID.Text & " ' ")
   if n(0).Item("username")=txtID.text and n(0).Item("password")=txt_pass.text then
         dim x as new form3
         x.show()
         me.close
  end if
Catch ex As Exception
      MsgBox("Invalid User Name or Password )
End Try

شوفي الطريقة التي تعجبك واستخدميها

سلام

مرحبا mohcool

أنا عارفة تعبتك معايا

وبصراحة اشكرك على الاكواد لكن ما زالت في مشكلة صغييييييييرة مررررررررة

استخدمت الكود تبعك ولكن :

يعطي رسالة (Invalid User Name or Password )

يعني كأنه مش مقتنع باليوزرز والباسووردز الموجودة بالجدول.... :o فالباتالي لا يفتح الفورم الذي بعده

طيب شو رأيك تعملي الكود التالي علشان أوفر وقت علي وعليكي

      Dim Str As String = "select * from Pass_table WHERE ([UserName] = ' " & Me.txt_u.Text & " ' ) AND ([Password] =' " & Me.txt_p.Text & " ' ) " , conn) 
      OleDbDataAdapter1 = New OleDbDataAdapter(Str, Con)
    
try
      DataSet21.Clear()
OleDbDataAdapter1.Fill( DataSet21,"Pass_table")
if  DataSet21.Table(0).Rows.Count <> 0 Then
          dim x as new form3
        x.show()
        me.close
Else
 MsgBox("Invalid User Name or Password )
 end if
Catch ex As Exception
     MsgBox("Invalid User Name or Password )
End Try

أنا مجربها قبل ما أكتبها و إن شاء الله حتنجح معكم

وإذا ما شتغلت معكم يا ريت تعرفو داتا سيت وداتا أدابتر عن طريق الكود

انا خلاص عم باشد بشعري

عملت application من أول وجديد وعملت جدول بالاكسس جديد

واستخدمت اخر كود انت عامله

ولكن يعطيني نفس النتيجة

(invalid user name and password)

what shall i do ???

من الافضل ان تقومى بارسال المشروع هنا ليسهل عمل Debug له

بالمناسبه حدثت لنا نفس المشكله من قبل مع الاكسس ايضاً و جلست انا و الاخ Khabini.net طوال اليوم نجرب و كان الحل بوضع اسم الجدول بين []

مثل ما حكى الأخ طارق

إبعتي المثال وسوف ينحل إن شاء الله

السلام عليكم

اقتباس

انا و الاخ Khabini.net  طوال اليوم نجرب و كان الحل بوضع اسم الجدول بين []

يا عم طارق أنا khabini.com :D :D

و في الحقيقه كان يوم غريب هذا اليوم كنت انا و طارق نحاول حل المشكله و فين على ما عرفنا موضوع []

أرجوا من الأخت إرسال المشروع أو الكلاس الذي يحدث به المشكله

ها ها ها... لا أظن بأنك تستطيع الهروب يا حسن فهذا هو قدرك، الجميع يناديك ب NET في هذا المنتدى لذلك أنصحك بتغيير لقبك من com الى NET...

مضطر للإستسلام

و لكن أطالب المشرفين بتغيير اللقب إلى khabini.net

:D :D

تلك صلاحية الإدارة يا حسن وليس المشرفين، إبعث برسالة شخصية ل HGB إن كنت فعلاً جاداً، وأنا أدعم توجهك لأننا في قسم ال NET وتقنية ال COM قد عفى عليها الزمن :D

تم التحويل لkhabini.net

بالنسبه للسؤال الأساسي

حاول تغيير الإستعلام إلى التالي

"select * from [Pass_table] where username='" & myusername & "' and password='" & mypassword & "'",

يا أعزائي انتهت مشكلتي هذه وللأسف كل حلولكم لم تحل مشكلتي مع مشروعي المعقد

لكن تشكروا على مجهودكم واهتمامك انا عارفة الغلط مو فيكم اكيد فيا انا

المهم بدأت تظهر لي مصائب اخرى بعد حل هذه المشكلة وانتظر تعاونكم

تحياتي