[رضوان الجماعي]

كود :

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 Oledbatabase 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;")

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

[Jounior_P]

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

[رضوان الجماعي]

(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

[Jounior_P]

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

اسم الملف الموجود بالخطأ هو 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 بعد ما وضعت ملف الاكسل في الديبج جوار البرنامج وعذروني اتعبتكم معي لكن كما يقول الاستاذ ابراهيم ايبو انتظر الاجر من الله .

[رضوان الجماعي]

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