vb.net 登陆窗口与数据库

来源：百度知道 编辑：UC知道 时间：2024/05/12 13:51:29
用vb.net编写一个登陆窗口,用linq to sql 查询数据库,希望能在验证登陆帐号和密码正确的情况下,进入第二个窗体.登陆窗体中的文本框的信息怎么用来和数据库查询,匹配阿?好像查询的结果是数据库模式的字符串.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim db As New 网吧帐号管理DataContext
Dim adminCusts = From 管理员 In db.Table_1 _
Where 管理员.帐号 = TextBox1.Text _
Select 管理员

If ((adminCusts Is Nothing) = False) Then
Me.Hide()
Form2.Show()

Else
MessageBox.Show("出错")

End If

End Sub

参考代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Then
MsgBox("请输入用户名和密码")
End If
Dim conn As New Data.SqlClient.SqlConnection
conn.ConnectionString = "server=.;uid=sa;pwd=;database=s0601"
Dim cmd As New Data.SqlClient.SqlCommand
cmd.CommandText = "select * from denglu"
cmd.Connection = conn
conn.Open()

Dim dr As Data.SqlClient.SqlDataReader

dr = cmd.ExecuteReader()
Try
While dr.Read()
If dr.Item(0) = Me.TextBox1.Text And dr.Item(1) = Me.TextBox2.Text Then
MsgBox("登录成功 ！")
Form2.Show()
i = 1
Exit While<