UC知道VB连SQL问题求助
来源：百度知道 编辑：UC知道 时间：2024/05/30 07:01:14
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名！", vbInformation, "警告"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入密码！", vbInformation, "警告"
Text2.SetFocus
Exit Sub
End If
Set conn = New adodb.Connection
Set rs = New adodb.Recordset
Dim strconn As String
strconn = "Driver={sql server};server=bt-bbt;uid=sa;pwd=;database=tssj"
Dim db_conn As New adodb.Connection
conn.ConnectionTimeout = 30
db_conn.Open strconn
rs.Open "select username from use where username='" & Trim(Text1.Text) & ", db_conn.con, adOpenStatic, adLockReadOnly"
a = "select * from use where [username]='" & Text1.Text & "'"
rs.Open a, db_conn.con, adOpenKeyset, adLockOptimistic, adCmdText
If rs!UserName <> Text1.Text T
If Text1.Text = "" Then
MsgBox "请输入用户名！", vbInformation, "警告"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入密码！", vbInformation, "警告"
Text2.SetFocus
Exit Sub
End If
Set conn = New adodb.Connection
Set rs = New adodb.Recordset
Dim strconn As String
strconn = "Driver={sql server};server=bt-bbt;uid=sa;pwd=;database=tssj"
Dim db_conn As New adodb.Connection
conn.ConnectionTimeout = 30
db_conn.Open strconn
rs.Open "select username from use where username='" & Trim(Text1.Text) & ", db_conn.con, adOpenStatic, adLockReadOnly"
a = "select * from use where [username]='" & Text1.Text & "'"
rs.Open a, db_conn.con, adOpenKeyset, adLockOptimistic, adCmdText
If rs!UserName <> Text1.Text T
rs.Open "select username from use where username='" & Trim(Text1.Text) & ", db_conn.con, adOpenStatic, adLockReadOnly"
a = "select * from use where [username]='" & Text1.Text & "'"
rs.Open a, db_conn.con, adOpenKeyset, adLockOptimistic, adCmdText
rs 打开一次就行了 因为你只操作了user表
同一个rs是不能连续打开的 只有关闭了前面的
后面的才能打开 否则就会报错
要是你想打开多个rs
你可以定义
dim rs1 as new ...
dim rs2 as new....
你自己再试一下啊
我觉得你的vb比我用的好。。。看不出什么问题。。我只能看懂一点语句但是自己不会编