+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس (/showthread.php?tid=39753)
لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس - مجـ متعلم ـرد - 20-10-21
السلام عليكم ورحمة الله وبركاته
اخواني الأعزاء
اريد أكواد عمل لوحة دخول مرتبطة بقاعدة بيانات من نوع اكسس
حاولت بكل الأكواد الي حصلتها في المنتدى وما ضبط معي نهائيا
عندي قاعدة بيانات تحتوي على ثلاث جداول
الجدول الخاص ببيانات الدخول اسمه Logen
وفي المشروع الخاص بي مسوي الاتصال من مدويل كونكيشن
المشروع مرفق
أرجو منكم حلها لي ووضع الكود وإرسال الكود لي وتوضيح الكود إذ امكن
للتوضيح فقط اريده بعد لوحة الدخول يذهب للفورم رقم 7
RE: لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس - wahmed - 20-10-21
PHP كود :
Imports System.Data.OleDb
Public Class Form3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As OleDbConnection = Nothing
Dim cm As OleDbCommand = Nothing
cn = New OleDbConnection(connectionstring)
cm = New OleDbCommand("select * from Logen where User_F=@User_F and Password_F=@Password_F", cn)
cm.CommandType = CommandType.Text
cm.Parameters.Add(New OleDbParameter("User_F", TextBox1.Text))
cm.Parameters.Add(New OleDbParameter("Password_F", TextBox2.Text))
cn.Open()
If cm.ExecuteScalar <> 0 Then
Form7.Show()
Me.Hide()
Else
MsgBox("خطا")
End If
End Sub
End Class
RE: لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس - مجـ متعلم ـرد - 20-10-21
الله يجزاك الف الف الف خير
ضبط ضبط الكود
كان عندي خطأ اسفل اني ضفت sub end
زيادة وجاني خطأ فيها
والحين ضبط تمام التمام
الله يجزاك الجنة