Sub ConnectToServer() '連接服務器 
  On Error GoTo Errorhandle 
  Set MyConn = New ADODB.Connection 
  With MyConn 
  .Provider = "SQLOLEDB.1" 
  .ConnectionString = "Driver={SQL Server};SERVER=computer\mdfss;DATABASE=stljsh;UID=sa;PWD=***" 
  .CursorLocation = adUseClient 
  .Open 
  End With 
Exit Sub 
Errorhandle: 
  MsgBox "出現錯誤：" & Err.Description 
   
End Sub




+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
VBA連接數據庫
2007年12月05日 星期三 上午 10:37
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j為整數變量；sht 為excel工作表對象變量，指向某一工作表
Dim cn As New ADODB.Connection '定義數據鏈接對象 ，保存連接數據庫信息；請先添加ADO引用
Dim rs As New ADODB.Recordset '定義記錄集對象，保存數據表
Dim strCn As String, strSQL As String '字符串變量
Dim strCond As String
strCn = "Provider=sqloledb;Server=hljxhj;Database=app2;Uid=saa;Pwd=saa;" '定義數據庫鏈接字符串

'下面的語句將讀取數據表數據，并將它保存到excel工作表中：畫兩張表想像一下，工作表為一張兩維表，記錄集也是一張兩維表

strSQL = "select b from a " '定義SQL查詢命令字符串

cn.Open strCn '與數據庫建立連接，如果成功，返回連接對象cn
rs.Open strSQL, cn '執(zhí)行strSQL所含的SQL命令，結果保存在rs記錄集對象中
i = 2

Set sht = ThisWorkbook.Worksheets("sheet1") '把sht指向當前工作簿的sheet1工作表
Do While Not rs.EOF '當數據指針未移到記錄集末尾時，循環(huán)下列操作
  sht.Cells(i, 1) = rs("b") '把當前記錄的字段1的值保存到sheet1工作表的第i行第1列
  '把當前字段2的值保存到sheet1工作表的第i行第2列
  rs.MoveNext '把指針移向下一條記錄
  i = i + 1 'i加1，準備把下一記錄相關字段的值保存到工作表的下一行
Loop '循環(huán)
rs.Close '關閉記錄集，至此，程序將把某數據表的字段1和字段2保存在excel工作表sheet1的第1、2列，行數等于數據表的記錄數

cn.Close '關閉數據庫鏈接,釋放資源
End Sub