14-09-19, 08:50 PM
الصفحات : 1 2
14-09-19, 09:25 PM
14-09-19, 10:51 PM
(14-09-19, 09:25 PM)Rabeea Qbaha كتب : [ -> ]قم بتحميل : Microsoft Access Database Engine
https://www.microsoft.com/en-us/download...x?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 Class14-09-19, 11:18 PM
(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:23 PM
فكرة السيريال و تزامه مع البرنامج و قاعدة البيانات .. إلقِ نظرة على هذا الملف مثلاً ..
تحياتي
14-09-19, 11:53 PM
ممكن شرح للبرنامجين واى منهما وشكرا
15-09-19, 12:08 AM
(14-09-19, 11:53 PM)Mina Botros كتب : [ -> ]ممكن شرح للبرنامجين واى منهما وشكرا
كلاهما مكمل للآخر و الاشتغال عليهما معًا ..
حاولي فهمهما .. حتّى تتضّح الرؤية لديك و بعدها أجيب و كل الإخوة على إستفساراتك إن شاء الله
تحياتي
15-09-19, 12:10 AM
شكرا اخى فهمتهم لكن عذرا انا شب
15-09-19, 12:20 AM
(15-09-19, 12:10 AM)Mina Botros كتب : [ -> ]شكرا اخى فهمتهم لكن عذرا انا شب
أخ عزيز أو أخت عزيزة .. ألف مرحبا
تقريبا لا نستعمل هذا الاسم إطلاقا بالجزائر و لذلك لم أتمكن من تمييزه .. أرجو المعذرة
تحياتي واحتراماتي
الصفحات : 1 2