我初次学习VB连接SQL数据库,这是一个小程序:我让窗口显示是在文本中显示students数据库中student表中的Sname
Private Sub Form_Load()
Dim mycon As New adodb.Connection
Dim rs As adodb.Recordset
Dim cnstr As String
Dim rssql As String
cnstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student"
mycon.Open (cnstr)
rssql = "select * from student"
Set rs = mycon.Execute(rssql, , adCmdTable)
Text1.Text = rs.Fields(Sname)
End Sub
不过运行是出错,说“在关键字select附近有语法错误”,我找不出,望大家帮忙,十分感谢!!!
Private Sub Form_Load()
Dim mycon As New adodb.Connection
Dim rs As adodb.Recordset
Dim cnstr As String
Dim rssql As String
cnstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student"
mycon.Open (cnstr)
rssql = "select * from student"
Set rs = mycon.Execute(rssql, , adCmdTable)
Text1.Text = rs.Fields(Sname)
End Sub
不过运行是出错,说“在关键字select附近有语法错误”,我找不出,望大家帮忙,十分感谢!!!
Dim mycon As New adodb.Connection
Dim rs As new adodb.Recordset
Dim cnstr As String
Dim rssql As String
cnstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student"
mycon.Open cnstr
rssql = "select * from student"
rs.open rssql,mycon, adOpenKeyset, adLockOptimistic
if rs.eof=false and rs.bof=false then
Text1.Text = rs("sname")
endif
rs.close
set rs=nothing
End Sub
Set rs = mycon.Execute(rssql, , adCmdTable)
rs.open rssql,mycon, adOpenKeyset, adLockOptimistic
为什么下一句行,上一句不行