+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ممكن حد يساعدني سويت الخطوات كلها كامله ومار (/showthread.php?tid=38107)
ممكن حد يساعدني سويت الخطوات كلها كامله ومار - رضوان الجماعي - 22-03-21
ممكن حد يساعدني اضفت كل حاجه لكنه يطلعلي انه 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