UC知道vb登录问题
来源：百度知道 编辑：UC知道 时间：2024/07/08 22:29:50
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
Label3.Text = "请确认你的输入"
End If
Dim conn As SqlConnection = New SqlConnection("Data soure=localhost;initial catalog=Ticket;uid=sa;pwd=1985")
Dim sql As String = "select * from User where User=@User and Password=@Password"
Dim comm As SqlCommand = New SqlCommand(sql, conn)
comm.Parameters.Add(New SqlParameter("@User", Data.SqlDbType.Char, 16))
comm.Parameters("@User").Value = TextBox1.Text
comm.Parameters.Add(New SqlParameter("@Password", Data.SqlDbType.Char, 16))
comm.Parameters("@Password").Value = TextBox2.Text
conn.Open()
Dim dr As SqlDataAdapter
dr = comm.Execute
If TextBox1.Text = "" Or TextBox2.Text = "" Then
Label3.Text = "请确认你的输入"
End If
Dim conn As SqlConnection = New SqlConnection("Data soure=localhost;initial catalog=Ticket;uid=sa;pwd=1985")
Dim sql As String = "select * from User where User=@User and Password=@Password"
Dim comm As SqlCommand = New SqlCommand(sql, conn)
comm.Parameters.Add(New SqlParameter("@User", Data.SqlDbType.Char, 16))
comm.Parameters("@User").Value = TextBox1.Text
comm.Parameters.Add(New SqlParameter("@Password", Data.SqlDbType.Char, 16))
comm.Parameters("@Password").Value = TextBox2.Text
conn.Open()
Dim dr As SqlDataAdapter
dr = comm.Execute
你机器上有SQL吗？
如果没有 去装一个，建一个库名叫Ticket
sa的密码改成1985
然后库里建个表 叫use 里面有两列User 和Password 是Char类型长度16 然后你再试试看看能不能运行．