http://community.csdn.net/Expert/topic/3959/3959117.xml?temp=.7959864
我要连的是SQL server啊!

解决方案 »

  1.   

    Option ExplicitPrivate Rs As New ADODB.Recordset
    Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
    Dim strConn As String
     
    strConn = "Provider=SQLOLEDB.1;Persist Security Infor=False;User Id=" & UserId & ";Password=" & Password & ";Initial Catalog=" & DatabaseName & ";Data Source=" & ServerName & "" 
    Conn.Open strConn
       
    ' Recordser打开表
     Rs.Open "Select * from 表名", Conn, adOpenKeyset, adLockOptimistic
     
    ' 绑定进DataGrid
    Set DataGrid1.DataSource = Rs
     
    End Sub
      

  2.   

    我按你的试了一下,Initial Catalog=数据库实体,Data Source=服务器名,也不知道是我理解错了,还是其它问题,运行时,总反映出错,在Conn.Open strConn一句反黄,让调试,我简直没招了!
      

  3.   

    仔细看看:
    "Provider=SQLOLEDB.1;Persist Security Info=False;"& _
    "User ID=" & User Id & ";Password=" & Password & _
    ";Initial Catalog=" & DatabaseName & _
    ";Data Source=" & ServerName
    Conn.Open strConn
      

  4.   

    还有错的
    这个变量有问题User Id 。变量不可以有空格
    你先不要用变量试试
      

  5.   

    呵呵,是我看错了。UserId 这样可以的