تقييم الموضوع :
  • 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 م ب / التحميلات : 22)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 96 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 80 29-02-24, 07:14 PM
آخر رد: asdfar1977
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775

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


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