[Mina Botros]

  LogunForm.rar (الحجم : 216.05 ك ب / التحميلات : 1)
  LogunForm.rar (الحجم : 216.05 ك ب / التحميلات : 1)

[Rabeea Qbaha]

قم بتحميل : Microsoft Access Database Engine

https://www.microsoft.com/en-us/download...x?id=13255

[Mina Botros]

(14-09-19, 09:25 PM)Rabeea Qbaha كتب : قم بتحميل : Microsoft Access Database Engine

https://www.microsoft.com/en-us/download...x?id=13255

شكرا اخى كريم ولكن نفس المشكلة هل ارسل لك الكود للفقده ام ماذا ؟

[عبد العزيز البسكري]

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

إضافة لما طرحه الأخ الغالي " ربيع " جزاه الله خير الجزاء

يجب إستبدال عبارة Ace إلى Jet

و الرقم 12 إلى 4

بجملة الإتّصال

تحياتي

كود :

Imports System.Data.OleDb
Public Class Form1
   Public con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|Datadirectory|\Database.mdb")
   Dim dt As New DataTable
   Dim da As New OleDbDataAdapter
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox1.Text = Nothing Then
           MsgBox("UserName IS UN Courect", MsgBoxStyle.Information, "Info")
           TextBox1.Focus()
           Exit Sub
       End If
       If TextBox2.Text = Nothing Then
           MsgBox("Password IS UN Courect", MsgBoxStyle.Information, "Info")
           TextBox2.Focus()
           Exit Sub
       End If
       dt.Clear()
       da = New OleDbDataAdapter("select * from login where UserName= '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'", con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           Form2.Label1.Text = dt.Rows(0).Item("UserName")
           Form2.Show()
           Me.Close()
       Else
           MsgBox("UserName Or Password Is Un Courect")
       End If
   End Sub
End Class

[Mina Botros]

(14-09-19, 10:55 PM)عبد العزيز البسكري كتب :

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

إضافة لما طرحه الأخ الغالي " ربيع " جزاه الله خير الجزاء

يجب إستبدال عبارة Ace إلى Jet

و الرقم 12 إلى 4

بجملة الإتّصال

تحياتي

كود :

Imports System.Data.OleDb
Public Class Form1
   Public con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|Datadirectory|\Database.mdb")
   Dim dt As New DataTable
   Dim da As New OleDbDataAdapter
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox1.Text = Nothing Then
           MsgBox("UserName IS UN Courect", MsgBoxStyle.Information, "Info")
           TextBox1.Focus()
           Exit Sub
       End If
       If TextBox2.Text = Nothing Then
           MsgBox("Password IS UN Courect", MsgBoxStyle.Information, "Info")
           TextBox2.Focus()
           Exit Sub
       End If
       dt.Clear()
       da = New OleDbDataAdapter("select * from login where UserName= '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'", con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           Form2.Label1.Text = dt.Rows(0).Item("UserName")
           Form2.Show()
           Me.Close()
       Else
           MsgBox("UserName Or Password Is Un Courect")
       End If
   End Sub
End Class

شكرا لكم اخوانى الاعزاء لكم جزيل الشكر والحب

طلب اخير اخى اريد انا ازامن مثلا سيريال فى قاعدة الاكسيس مع البرنامج وشكرا جزيلا

[عبد العزيز البسكري]

فكرة السيريال و تزامه مع البرنامج و قاعدة البيانات .. إلقِ نظرة على هذا الملف مثلاً ..

تحياتي

[Mina Botros]

ممكن شرح للبرنامجين واى منهما وشكرا

[عبد العزيز البسكري]

(14-09-19, 11:53 PM)Mina Botros كتب : ممكن شرح للبرنامجين واى منهما وشكرا

كلاهما مكمل للآخر و الاشتغال عليهما معًا ..

حاولي فهمهما .. حتّى تتضّح الرؤية لديك و بعدها أجيب و كل الإخوة على إستفساراتك إن شاء الله

تحياتي

[Mina Botros]

شكرا اخى فهمتهم لكن عذرا انا شب

[عبد العزيز البسكري]

(15-09-19, 12:10 AM)Mina Botros كتب : شكرا اخى فهمتهم لكن عذرا انا شب

أخ عزيز أو أخت عزيزة .. ألف مرحبا

تقريبا لا نستعمل هذا الاسم إطلاقا بالجزائر و لذلك لم أتمكن من تمييزه .. أرجو المعذرة

تحياتي واحتراماتي