+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : مايكرسوفت أكسيس Microsoft Access (http://vb4arb.com/vb/forumdisplay.php?fid=170)
+--- الموضوع : التحقق من تحقيق الشرط ؟ (/showthread.php?tid=7221)
التحقق من تحقيق الشرط ؟ - Mido9 - 02-12-12
السلام عليكم ورحمة الله وبكراتة
اخواني الافاضل
انا الان قمت بعمل تجربه بسيطه لفورم تسجيل الدخول من قاعدة البيانات
و لكن ما اريده انه لو البيانات صحيحه يظهر لي رساله و لو خاطئه يظهر لي ايضاً رساله
يعني كل ما اريده هو إظهار كلمه 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
وجزاكم الله خيراً
التحقق من تحقيق الشرط ؟ - Sajad - 05-12-12
السلام عليكم
اخي العزيز كيف تريد التحقق من الجدول وانت اصلا لم تمليء الجدول بالبيانات عن طريق الFill للDataset???????
اولا يجب ملىء الdataset بالبيانات ومن ثم تنفيذ الشرط
بالتوفيق ان شاءالله
التحقق من تحقيق الشرط ؟ - السكر المغرور - 05-12-12
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
مع اني ما افضل هذا الوضع بتمرير المتغيرات مباشرة لقاعدة البيانات في الاستعلام خصوصا انه باسورد لانه بهذي الحاله اقدر اخترقها بالحقن
جرب تدخل احد هذي العلامات في التكست بوكس ' [ ] << راح تلاحظ يطلع خطأ ،، و عشان تحلها استخدم الممررات
بهذا الشكل لاحظ معاي
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
التحقق من تحقيق الشرط ؟ - Mido9 - 05-12-12
sajad كتب :السلام عليكم
اخي العزيز كيف تريد التحقق من الجدول وانت اصلا لم تمليء الجدول بالبيانات عن طريق الFill للDataset???????
اولا يجب ملىء الdataset بالبيانات ومن ثم تنفيذ الشرط
بالتوفيق ان شاءالله
جزاك الله خيرا اخي الفاضل على المساعده ,, بارك الله فيك
حاولت اطبق الى انتا قولتلي عليه و فعلا نجحت العمليه بارك الله فيك
و اصبح الكود هكذا
إقتباس :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
جزاك الله خيراً اخي الفاضل ,, دائماً انت تنقذني فى المشاكل ^_^
التحقق من تحقيق الشرط ؟ - Mido9 - 05-12-12
السكر المغرور كتب :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
مع اني ما افضل هذا الوضع بتمرير المتغيرات مباشرة لقاعدة البيانات في الاستعلام خصوصا انه باسورد لانه بهذي الحاله اقدر اخترقها بالحقن
جرب تدخل احد هذي العلامات في التكست بوكس ' [ ] << راح تلاحظ يطلع خطأ ،، و عشان تحلها استخدم الممررات
بهذا الشكل لاحظ معاي
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
جزاك الله خيراً اخي الفاضل على المساعده ,, بارك الله فيك , طريقتك جيده و حلوه و نفعت الحمد لله
شكرااا لك
التحقق من تحقيق الشرط ؟ - Mido9 - 05-12-12
اخواني الافاضل حبيت انوه عن شئ للمبتدئين مثلي , و اكيد انتم الخبراء تعرفونه
انه عندما اقوم بجلب النتائج من جدول بإسم ( user ) لا يفلح معي و يبدو انه من الكلمات المحجوزه , لاني حولت اسم الجدول إلى userr و اصبح الإستعلام صحيح بلا اي مشكلة !