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

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

(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

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

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