Sub connDB() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim cnnStr As String Set cnn = New ADODB.Connection cnnStr = "Provider=MSDASQL.1;Password=admin;Persist Security Info=False;User ID=sa;Data Source=test;Initial Catalog=whlxy" cnn.Open cnnStr If cnn.State = adStateOpen Then MsgBox "测试连接成功!" 'cnn.Close End If 'Set cnn = Nothing s$ = "select * from 部门信息表" Set rst = cnn.Execute(s$) Do Until rst.EOF Print rst.Fields.Item(0).Value & " " & rst.Fields.Item(1).Value rst.MoveNext Loop End Sub
