تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن حد يساعدني سويت الخطوات كلها كامله ومار
#1
ممكن حد يساعدني اضفت كل حاجه لكنه يطلعلي انه  da.Fill(dt)

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=|DataDirectory|\bin\Debug\lapsoft.accdb")
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'LapsoftDataSet.login' table. You can move, or remove it, as needed.
Me.LoginTableAdapter.Fill(Me.LapsoftDataSet.login)
Me.LoginBindingSource.AddNew()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing Then
MsgBox("يجب عليك ادخال اسم المستخدم", MsgBoxStyle.Information, "تنبيه")
TextBox1.Focus()
Exit Sub
End If
If TextBox2.Text = Nothing Then
MsgBox("يجب عليك ادخال كلمة المرور ", MsgBoxStyle.Information, "تنبيه")
TextBox2.Focus()
Exit Sub
End If
dt.Clear()
da = New OleDbDataAdapter("select * from login where username = '" & TextBox1.Text & "' and pass = '" & 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("اسم المستخدم او كلمة المرور غير صحيحة ", MsgBoxStyle.Information, "تنبيه")
End If
End Sub
End Class
 (رَبِّ إِنِّي لِمَا أَنْزَلْتَ إِلَيَّ مِنْ خَيْرٍ فَقِيرٌ)
اعمل شير للخير تبعث يوم الحساب امير
ازرع خير تلقيه يوم القيامه كبير 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن كيفية اخراج فاتوره البيع كامله للاستعلام فقط حسين ادريس 4 232 24-01-22, 07:35 PM
آخر رد: علاء الكبابي
  [سؤال] ممكن شرح او رابط افضل طرق عرض البيانات في الداتاجريد و التعامل معها غدير الصليحي 2 455 19-01-22, 01:46 AM
آخر رد: رضوان الجماعي
  ممكن برنامج sap المتألق9 4 209 02-01-22, 12:19 AM
آخر رد: aljzazy
  [سؤال] محتاج حد يساعدني في مسئله حسن الجلب 0 104 28-12-21, 03:05 AM
آخر رد: حسن الجلب
  ممكن روابط شروحات في برنامج التقارير تبع اوراكل reports builder oracle غدير الصليحي 0 187 19-12-21, 11:25 AM
آخر رد: غدير الصليحي
  [كود] ممكن كود تشغيل ملف امتداد reg jam3h 0 198 03-12-21, 09:42 PM
آخر رد: jam3h
  ممكن شرح و توضيح لسطر الاتصال غدير الصليحي 12 529 24-11-21, 11:09 AM
آخر رد: سعود
  ممكن مثال على كيفية تعليق فاتورررة tfarejdz 4 533 22-11-21, 02:10 AM
آخر رد: Taha Okla
  ممكن شرح اضافة مشغل mpv بداخل الفورم masport tv 6 556 19-11-21, 03:34 AM
آخر رد: معاند الحظ
  ممكن حل في عمل احصائيات مربوطة access crazykinko 9 459 11-11-21, 01:59 PM
آخر رد: crazykinko

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


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