Dim blUser As Boolean
Dim sql_conn As New SqlClient.SqlConnection("data source=.;initial catalog=test;user id=sa;password=123456;")
sql_conn.Open()
Dim sql_comm As New SqlClient.SqlCommand("Select user from table where user='123'", sql_conn)
Dim reader As SqlClient.SqlDataReader
reader = sql_comm.ExecuteReader
reader.Read()
If reader.HasRows Then
blUser = True
End If
reader.Close()
sql_conn.Close()
内容全部来源于网络收集，如有侵权，请联系网站删除！