تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[Acces2010] اريد مساعدة فى حل هذا الخطأ
#1

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
قم بتحميل : Microsoft Access Database Engine

https://www.microsoft.com/en-us/download...x?id=13255
الرد
تم الشكر بواسطة: asemshahen5 , Mina Botros , ابراهيم ايبو
#3
(14-09-19, 09:25 PM)Rabeea Qbaha كتب : قم بتحميل : Microsoft Access Database Engine

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

شكرا اخى كريم ولكن نفس المشكلة هل ارسل لك الكود للفقده ام ماذا ؟
الرد
#4
السّلام عليكم و رحمة الله و بركاته
إضافة لما طرحه الأخ الغالي " ربيع " جزاه الله خير الجزاء
يجب إستبدال عبارة 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
الرد
#5
(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

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

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


الملفات المرفقة
.zip   ملف المستخدم و العميل.zip (الحجم : 2.56 م ب / التحميلات : 21)
الرد
تم الشكر بواسطة: asemshahen5 , Rabeea Qbaha , ابراهيم ايبو
#7
ممكن شرح للبرنامجين واى منهما وشكرا
الرد
تم الشكر بواسطة: asemshahen5
#8
(14-09-19, 11:53 PM)Mina Botros كتب : ممكن شرح للبرنامجين واى منهما وشكرا

كلاهما مكمل للآخر و الاشتغال عليهما معًا ..
حاولي فهمهما .. حتّى تتضّح الرؤية لديك و بعدها أجيب و كل الإخوة على إستفساراتك إن شاء الله
تحياتي
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#9
شكرا اخى فهمتهم لكن عذرا انا شب
الرد
#10
(15-09-19, 12:10 AM)Mina Botros كتب : شكرا اخى فهمتهم لكن عذرا انا شب

أخ عزيز أو أخت عزيزة .. ألف مرحبا
تقريبا لا نستعمل هذا الاسم إطلاقا بالجزائر و لذلك لم أتمكن من تمييزه .. أرجو المعذرة
تحياتي واحتراماتي
الرد
تم الشكر بواسطة: asemshahen5 , Mina Botros , Rabeea Qbaha , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم