منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس

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

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

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

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

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

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

المشروع مرفق

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

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مجـ متعلم ـرد

wahmed

مجـ متعلم ـرد