Question

vb sql 超时已过期 怎么回事啊？

Dim sql As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "***************"
conn.Open
sql = "select * from yhb where name='" & Trim(user.Text) & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs.EOF=ture Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, "登陆"
user.Text = ""
Else
conn.Execute "delete from yhb where name = '" + Trim(user.Text) + "'"
Adodc1.Refresh
MsgBox "删除成功！"
user.Text = ""
End If

Answer 1

超时已过期这种错误，应该是你的数据库连接语句有问题，比如数据库的地址，用户名和密码错误

Answer 2

你使用的connectionstring连接的conn无法连接到你的sql数据库。