تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحقق من تحقيق الشرط ؟
#1
السلام عليكم ورحمة الله وبكراتة

اخواني الافاضل

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

و لكن ما اريده انه لو البيانات صحيحه يظهر لي رساله و لو خاطئه يظهر لي ايضاً رساله

يعني كل ما اريده هو إظهار كلمه yes لو البيانات صحيحه واظهار كلمة no لو البيانات غير صحيحه


انا جربت كذا طريقة و المشكلة إنه ولا كود اشتغل معي و ظهرت الرساله

هذا هوا الكود الخاص بي
PHP كود :
Dim saveinto As New OleDb.OleDbCommand
                Dim constr 
As String "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" Application.StartupPath "\db.mdb"
                
Dim conn As New OleDb.OleDbConnection(constr)
                
Dim DataSet1 As New DataSet
                Dim SQLstr 
As String
                SQLstr 
"SELECT * From user Where pass=('" TextBox1.Text "')"
                
conn.Open()
                If 
DataSet1.Tables(0).Rows.Count 0 Then
                    MsgBox
("Yes")
                Else
                    
MsgBox("No")
                
End If 

وجزاكم الله خيراً
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اخي العزيز كيف تريد التحقق من الجدول وانت اصلا لم تمليء الجدول بالبيانات عن طريق الFill للDataset???????

اولا يجب ملىء الdataset بالبيانات ومن ثم تنفيذ الشرط

بالتوفيق ان شاءاللهSmile
الرد }}}}
تم الشكر بواسطة:
#3
PHP كود :
Dim showinto As New OleDb.OleDbCommand
        Dim constr 
As String "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" Application.StartupPath "\db.mdb"
        
Dim conn As New OleDb.OleDbConnection(constr)
        
Dim myreader As OleDbDataReader
        showinto
.Connection conn
        showinto
.CommandText "SELECT * From user Where pass=('" TextBox1.Text.Trim "')"
        
conn.Open()
        
myreader showinto.ExecuteReader

        
If myreader.HasRows Then
            MsgBox
("Yes")
        Else
            
MsgBox("No")
        
End If 

مع اني ما افضل هذا الوضع بتمرير المتغيرات مباشرة لقاعدة البيانات في الاستعلام خصوصا انه باسورد لانه بهذي الحاله اقدر اخترقها بالحقن

جرب تدخل احد هذي العلامات في التكست بوكس ' [ ] << راح تلاحظ يطلع خطأ ،، و عشان تحلها استخدم الممررات Rolleyes

بهذا الشكل لاحظ معاي

PHP كود :
Dim showinto As New OleDb.OleDbCommand
        Dim constr 
As String "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" Application.StartupPath "\db.mdb"
        
Dim conn As New OleDb.OleDbConnection(constr)
        
Dim myreader As OleDbDataReader
        showinto
.Connection conn
        showinto
.CommandText "SELECT * From user Where pass=?"
        
showinto.Parameters.Clear()
        
showinto.Parameters.AddWithValue("@pass"OleDbType.VarChar).Value TextBox1.Text.Trim
        conn
.Open()
        
myreader showinto.ExecuteReader

        
If myreader.HasRows Then
            MsgBox
("Yes")
        Else
            
MsgBox("No")
        
End If 
الرد }}}}
تم الشكر بواسطة:
#4
sajad كتب :السلام عليكم

اخي العزيز كيف تريد التحقق من الجدول وانت اصلا لم تمليء الجدول بالبيانات عن طريق الFill للDataset???????

اولا يجب ملىء الdataset بالبيانات ومن ثم تنفيذ الشرط

بالتوفيق ان شاءاللهSmile


جزاك الله خيرا اخي الفاضل على المساعده ,, بارك الله فيك

حاولت اطبق الى انتا قولتلي عليه و فعلا نجحت العمليه بارك الله فيك

و اصبح الكود هكذا
إقتباس :Dim showinto As New OleDb.OleDbCommand
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
Dim conn As New OleDb.OleDbConnection(constr)
Dim myreader As OleDbDataReader
showinto.Connection = conn
showinto.CommandText = "SELECT * From userr Where pass=?"
showinto.Parameters.Clear()
showinto.Parameters.AddWithValue("@pass", OleDbType.VarChar).Value = TextBox2.Text.Trim
conn.Open()
myreader = showinto.ExecuteReader

If myreader.HasRows Then
MsgBox("Yes")
Else
MsgBox("No")
End If

جزاك الله خيراً اخي الفاضل ,, دائماً انت تنقذني فى المشاكل ^_^
الرد }}}}
تم الشكر بواسطة:
#5
السكر المغرور كتب :
PHP كود :
Dim showinto As New OleDb.OleDbCommand
        Dim constr 
As String "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" Application.StartupPath "\db.mdb"
        
Dim conn As New OleDb.OleDbConnection(constr)
        
Dim myreader As OleDbDataReader
        showinto
.Connection conn
        showinto
.CommandText "SELECT * From user Where pass=('" TextBox1.Text.Trim "')"
        
conn.Open()
        
myreader showinto.ExecuteReader

        
If myreader.HasRows Then
            MsgBox
("Yes")
        Else
            
MsgBox("No")
        
End If 

مع اني ما افضل هذا الوضع بتمرير المتغيرات مباشرة لقاعدة البيانات في الاستعلام خصوصا انه باسورد لانه بهذي الحاله اقدر اخترقها بالحقن

جرب تدخل احد هذي العلامات في التكست بوكس ' [ ] << راح تلاحظ يطلع خطأ ،، و عشان تحلها استخدم الممررات Rolleyes

بهذا الشكل لاحظ معاي

PHP كود :
Dim showinto As New OleDb.OleDbCommand
        Dim constr 
As String "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" Application.StartupPath "\db.mdb"
        
Dim conn As New OleDb.OleDbConnection(constr)
        
Dim myreader As OleDbDataReader
        showinto
.Connection conn
        showinto
.CommandText "SELECT * From user Where pass=?"
        
showinto.Parameters.Clear()
        
showinto.Parameters.AddWithValue("@pass"OleDbType.VarChar).Value TextBox1.Text.Trim
        conn
.Open()
        
myreader showinto.ExecuteReader

        
If myreader.HasRows Then
            MsgBox
("Yes")
        Else
            
MsgBox("No")
        
End If 

جزاك الله خيراً اخي الفاضل على المساعده ,, بارك الله فيك , طريقتك جيده و حلوه و نفعت الحمد لله

شكرااا لك
الرد }}}}
تم الشكر بواسطة:
#6
اخواني الافاضل حبيت انوه عن شئ للمبتدئين مثلي , و اكيد انتم الخبراء تعرفونه

انه عندما اقوم بجلب النتائج من جدول بإسم ( user ) لا يفلح معي و يبدو انه من الكلمات المحجوزه , لاني حولت اسم الجدول إلى userr و اصبح الإستعلام صحيح بلا اي مشكلة !
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم