[مجـ متعلم ـرد]

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

اخواني الأعزاء

اريد أكواد عمل لوحة دخول مرتبطة بقاعدة بيانات من نوع اكسس

حاولت بكل الأكواد الي حصلتها في المنتدى وما ضبط معي نهائيا


عندي قاعدة بيانات تحتوي على ثلاث جداول
الجدول الخاص ببيانات الدخول اسمه Logen



وفي المشروع الخاص بي مسوي الاتصال من مدويل كونكيشن



المشروع مرفق

أرجو منكم حلها لي ووضع الكود وإرسال الكود لي وتوضيح الكود إذ امكن

---

للتوضيح فقط اريده بعد لوحة الدخول يذهب للفورم رقم 7

[wahmed]

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 


[مجـ متعلم ـرد]

الله يجزاك الف الف الف خير

ضبط ضبط الكود

كان عندي خطأ اسفل اني ضفت sub end

زيادة وجاني خطأ فيها

والحين ضبط تمام التمام

الله يجزاك الجنة