主题:求助有关登陆代码的
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conn As New SqlClient.SqlConnection
Dim myda As New SqlClient.SqlDataAdapter
Dim mycomm As New SqlClient.SqlCommand
Dim myset As New DataSet
conn.ConnectionString = "data source=(local);initial catalog=xs;integrated security=SSPI"
myda.SelectCommand = New SqlClient.SqlCommand("select ,姓名,,密码,, from student", conn)
conn.Open()
If
End If
End Sub
请问中间IF应该怎样编写吖?
实现的功能是验证姓名和密码正确就可以进入系统......
Dim conn As New SqlClient.SqlConnection
Dim myda As New SqlClient.SqlDataAdapter
Dim mycomm As New SqlClient.SqlCommand
Dim myset As New DataSet
conn.ConnectionString = "data source=(local);initial catalog=xs;integrated security=SSPI"
myda.SelectCommand = New SqlClient.SqlCommand("select ,姓名,,密码,, from student", conn)
conn.Open()
If
End If
End Sub
请问中间IF应该怎样编写吖?
实现的功能是验证姓名和密码正确就可以进入系统......