'数据库连结参数
Dim sqlstr As String                            '执行的sql语句
Dim rs As ADODB.Recordset                       '数据集
Dim cn As New ADODB.Connection                  '连接
Private Sub Form_Load()
'设置数据库连结
  Set cn = New ADODB.Connection
  cn.ConnectionTimeout = 60
  cn.Provider = "sqloledb"
  cn.Properties("Data Source").Value = gaSqlSrv
  cn.Properties("Initial Catalog").Value = gaOldSqlBase
  cn.Properties("Integrated Security").Value = "SSPI"
  cn.CursorLocation = adUseClient
  cn.Open
  Set rs = New ADODB.Recordset多谢了!!!

解决方案 »

  1.   

    提供一个简单可行而且偷懒的方法
    1:在SQL数据库里加一个拥护ABC。把他的密码设置成123。确保用此用户登陆成功
    2:打开VB,添加ADODC控件
    3:用它的连接数据库向导,连接SQL数据库,到输入用户名称和密码的地方,输入ABC和123
    4:连接成功
    5:这时候你可以在连接向导里得到它的连接字符串
    6:CN.connectionString=连接字符串
    7:cn.open
      

  2.   

    cn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=ABC;Initial Catalog=gaOldSqlBase;Data Source=gaSqlSrv"
    cn.CursorLocation = adUseClient
    cn.open