我初次学习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附近有语法错误”,我找不出,望大家帮忙,十分感谢!!!

解决方案 »

  1.   

    Private Sub Form_Load()
      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
      

  2.   

    朋友,你能告诉我连接记录时,这两个语句的区别么?
    Set rs = mycon.Execute(rssql, , adCmdTable)
    rs.open rssql,mycon, adOpenKeyset, adLockOptimistic
    为什么下一句行,上一句不行
      

  3.   

    上一句好像是DAO吧!我不用的,一接触就VB用ADO。