sonia hamooleh
سه شنبه 04 تیر 1387, 10:29 صبح
Public Class Form1
Dim con1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ; data source = F:\vb.netttttttt\taxi\access")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim query As String
query = "select usr,pass from user where usr='" & TextBox1.Text & "' AND pass='" & TextBox2.Text & "'"
Dim da As New OleDb.OleDbDataAdapter(query, con1)
Dim ds As New DataSet()
da.Fill(ds, "db1")
If ds.Tables("db1").Rows.Count = 1 Then
Form2.Show()
Else
MsgBox("رمز ورود اشتباه است", MsgBoxResult.Ok + MsgBoxStyle.Critical + MsgBoxStyle.SystemModal, "اخطار")
End If
End Sub
End Class
سلام .... من این کد رو که می نویسم همش به این خط ایراد میگره
da.Fill(ds, "db1")
وقتیکه این خطم اضافه میکنم بازم همین ایرادو میگیره
con.Open()
Dim con1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ; data source = F:\vb.netttttttt\taxi\access")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim query As String
query = "select usr,pass from user where usr='" & TextBox1.Text & "' AND pass='" & TextBox2.Text & "'"
Dim da As New OleDb.OleDbDataAdapter(query, con1)
Dim ds As New DataSet()
da.Fill(ds, "db1")
If ds.Tables("db1").Rows.Count = 1 Then
Form2.Show()
Else
MsgBox("رمز ورود اشتباه است", MsgBoxResult.Ok + MsgBoxStyle.Critical + MsgBoxStyle.SystemModal, "اخطار")
End If
End Sub
End Class
سلام .... من این کد رو که می نویسم همش به این خط ایراد میگره
da.Fill(ds, "db1")
وقتیکه این خطم اضافه میکنم بازم همین ایرادو میگیره
con.Open()