vb连接sql数据库问题

来源：百度知道编辑：UC知道时间：2024/06/02 20:11:11

sql库名supermarket 里面的表叫use 里面两个项叫username和password

vb编程如下：
Private Sub Command1_Click()
Dim rs_login As New ADODB.Recordset
Dim SQL As String
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=xu;PWD=xu;Initial Catalog=supermarket;Data Source=(local)"
Conn.Open
Text1.SetFocus
SQL = "select * from use where username='" & Text1.Text & "'"
rs_login.Open SQL, Conn, adOpenKeyset, adLockPessimistic ？？？？
If rs_login.EOF = True Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation
Text1.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
Username = Text1.Text

rs_login.Close
Unload Me
MDIForm1.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
Text2.SetFocus
End If
End If

End Sub

运行提示在关键字“use”附近有语法错误点调试

use是sql server中的一个函数，如果你要用它做表名那麼在写sql语句的时候必须在表名上加上[]号加以识别，即将
SQL = "select * from use where username='" & Text1.Text & "'"
改成
SQL = "select * from [use] where username='" & Text1.Text & "'"

没看出来SQL有什么错.
你再看看,有什么字段名拼写错误?

vb连接SQL数据库关于VB连接SQL数据库的问题 VB编程连接SQL SEVER数据库问题 vb 连接sql数据库中recordset问题 VB如何连接SQL数据库 VB怎么连接 SQL 数据库？ vb使用adodc连接数据库的SQL语句问题 vb系统中SQL SERVER数据库的数据源连接问题 VB中使用ADODB连接SQL数据库的问题 VB连接数据库问题