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

الصفحات : 1 2

كود :

Imports System.Data.OleDb

Public Class Form1

    Public con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Jet OLEDB:Datalap passward=;")

    Dim dt As New DataTable

    Dim da As New OleDbDataAdapter

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Close()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = Nothing Then

            MsgBox("يجب عليك ادخال اسم المستخدم", MsgBoxStyle.Information, "تنبيه")

            TextBox1.Focus()

            Exit Sub

        End If

        If TextBox2.Text = Nothing Then

            MsgBox("يجب عليك ادخال كلمة المرور ", MsgBoxStyle.Information, "تنبيه")

            TextBox2.Focus()

            Exit Sub

        End If

        dt.Clear()

        da = New OleDbDataAdapter("select * from login where username = '" & TextBox1.Text & "' and passward = '" & TextBox2.Text & "'", con)

        da.Fill(dt)

        If dt.Rows.Count > 0 Then

            home.Label1.Text = dt.Rows(0).Item("username")

            home.Show()

            Me.Close()

        Else

            MsgBox("اسم المستخدم او كلمة المرور غير صحيحة ", MsgBoxStyle.Information, "تنبيه")

        End If

    End Sub

End Class

Public Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "\Database.Mdb;User Id=Admin;Jet Oledb Big Grin

atabase Password=")

(26-03-21, 06:28 PM)عبد العزيز البسكري كتب : [ -> ]
Public Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "\Database.Mdb;User Id=Admin;Jet Oledbatabase Password=")

شكرا لك لتفاعلك استاذي واخي الغالي لكن لم تنفع هذه الطريقه لا ادري ما اقوم به

Conne_2019 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|Datadirectory|\LOCATION.mdb;")

شوف ما بعد عبارة الداتا سورس

هو فين الخطأ اللي ظهرلك أساسا ؟؟؟

(26-03-21, 08:34 PM)Jounior_P كتب : [ -> ]هو فين الخطأ اللي ظهرلك أساسا ؟؟؟

لمسار 'C:\Users\رضوان الجماعي\Desktop\ترقية\algomielap\algomielap\bin\Debug\bin\Debug\database.accdb' غير صحيح. تأكد من صحة إملاء اسم المسار ومن اتصالك بالخادم الموجود عليه الملف.

(26-03-21, 08:12 PM)عبد العزيز البسكري كتب : [ -> ]
Conne_2019 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|Datadirectory|\LOCATION.mdb;")

شوف ما بعد عبارة الداتا سورس

اسف جدا تعبتك معايا يا غالي لكن ما باليد حيله سويت الخطوات كامله والكود كامل صحيح ولكن يعملي هذا الرساله اثناء تجربة العمل
لمسار 'C:\Users\رضوان الجماعي\Desktop\ترقية\algomielap\algomielap\bin\Debug\bin\Debug\database.accdb' غير صحيح. تأكد من صحة إملاء اسم المسار ومن اتصالك بالخادم الموجود عليه الملف.والخطى في da.Fill(dt)

السلام عليكم ورحمة الله وبركاته
اخي الكريم رضوان
انت لم تذكر اين المشكلة وفي اي سطر يكون الخطأ ان كان موجودا
ولكن من خلال كودك يبدو ان ليس هناك خطأ كل مافي الامر ان الكود ينفذ ثم يغلق البرنامج وذلك بسبب التالي :

كود :

If dt.Rows.Count > 0 Then

           home.Label1.Text = dt.Rows(0).Item("username")

           home.Show()

           Me.Close()

       Else

           MsgBox("اسم المستخدم او كلمة المرور غير صحيحة ", MsgBoxStyle.Information, "تنبيه")

       End If

انت هنا تقوم بوضع اسم المستهدم في اللايبل للفورم الرشيسية ثم تقوم بعرضها وبعدها تقول اغلق الفورم الحالية وهذا يعني ببساطة اغلاق البرنامج
عدل الاسطر السابقة الى مايلي

كود :

If dt.Rows.Count > 0 Then

             home.Label1.Text = dt.Rows(0).Item("username")

            Me.Hide()

            home.Show()

        Else

            MsgBox("اسم المستخدم او كلمة المرور غير صحيحة ", MsgBoxStyle.Information, "تنبيه")

        End If

هنا ستقوم اولا باخفاء فورم الدخول وستظهر الفورم الرئيسية
طبعا انا لا احبذ هذه الطريقة
=============
الافضل ان تظهر الفورم الرئيسية وعند تحميلها استدعي فورم الدخول وبهذا يمكنك استخدام Me.Close شرظ ان يكون اعلاق البرنامج عند اغلاق أخر فورم مفتوحة وهذه موجود في Properties البند ShutDown Mode

تأكد من بيانات جملة الاتصال فيما يلي :

اسم الملف الموجود بالخطأ هو database ولكن الامتداد مختلف عما ذكرته بجملة الاتصال المكتوبة بالأكواد التي ذكرتها

حيث ان الامتداد المذكور بالخطأ هو accdb وهو ليس المكتوب بالجملة المذكورة ببرنامجك وهو mdb وبذلك فإن الاصدار مختلف

وبالتالي جملة الاتصال المكتوبة ببرنامجك غير صحيحة

استخدم الجملة التالية :

Public Con As New OleDb.OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source =" & Application.StartupPath & "\Database.accdb")

وان كنت افضل تغيير اسم قاعدة البيانات الى اي اسم آخر غير Database

اولا اشكركم مناعماق قلبي استاذ عبدالعزيز البسكري واستاذ ابراهيم ايبو وكمان المبدع joun
رسالة الخطى في da.fill(da)

يقلي تاكد من صحة المسار ومن اتصالك بالخادم اشتغلت عليه فيجوال استديوا 2010 وكمان 2013 ونفس رسالة الخطى رغم اني اتبعت كل الخطوات والمسار اخذته من add new data source بعد ما وضعت ملف الاكسل في الديبج جوار البرنامج وعذروني اتعبتكم معي لكن كما يقول الاستاذ ابراهيم ايبو انتظر الاجر من الله .

هذا الملف كامل وقاعدة البيانات في الديباج اذا مافيها تعب عليكم ممكن تشوفوه

الصفحات : 1 2