1、先打開控制面板-管理工具-打開數據源-系統DSN-添加驅動程序

?2、這里要輸入你想要連接的哪個服務器上的數據庫

?

?3、這里要輸入數據庫的帳戶跟密碼

4、然后一直點下一步，到這一步可以先測試能不能連到連據庫

?5、連接成功后、接下來就是用VB連接SQL SERVER、導入數據到EXCEL表格中

6、先打開EXCEL表-開發工具-點擊命令按扭-在表格中隨便拉開

7、先點開發工具里的--設計模式--然后雙擊按扭

8、打開按扭是這樣的、如果按扭是英文名、可以在左邊的地方設置中文，然后把下面的代碼復制到中間這里

9、只要改這2行里的就行了、strcn='數據源；服務器地址；數據庫名稱；帳戶；密碼'

10、第2行就是改SQL語句了

11、修改EXCEL單元表格開始列、還有右邊的修改數據庫表里的字段名稱

Private Sub CommandButton1_Click() Dim cn As Object '定義數據鏈接對象 ，保存連接數據庫信息Dim rs As Object '定義記錄集對象，保存數據表Set cn = CreateObject("ADODB.Connection") '創建數據鏈接對象Set rs = CreateObject("ADODB.RecordSet") '創建記錄集對象，用于接收數據查詢獲得的結果集Dim strCn As String, strSQL As String '字符串變量strCn = "Provider=SQLOLEDB;Server=192.168.5.131;Database=GDERP;Uid=sa;Pwd=663344abc..;" '定義數據庫鏈接字符串strSQL = "select * from inv" '設置SQL語句cn.Open strCn '打開連接rs.Open strSQL, cn '讀取數據庫中的數據Dim i As Integer, j As Integer, sht As Worksheet 'i,j為整數變量；sht 為excel工作表對象變量，指向某一工作表Set sht = ThisWorkbook.Worksheets("sheet1")'循環讀取數據并將數據顯示到excel中Do While Not rs.EOF '當數據指針未移到記錄集末尾時，循環下列操作sht.Cells(i + 2, 1) = rs("invno") '把當前記錄的字段1的值保存到sheet1工作表的第i行第1列sht.Cells(i + 2, 2) = rs("whid") '把當前字段2的值保存到sheet1工作表的第i行第2列sht.Cells(i + 2, 3) = rs("whid2") '把當前字段2的值保存到sheet1工作表的第i行第2列rs.MoveNext '把指針移向下一條記錄i = i + 1 'i加1，準備把下一記錄相關字段的值保存到工作表的下一行Loop '循環rs.Close '關閉記錄集，至此，程序將把某數據表的字段1和字段2保存在excel工作表sheet1的第1、2列，行數等于數據表的記錄數End Sub

?11、保存、然后返回EXCEL表格、點擊查詢、就可以了

總結

以上是生活随笔為你收集整理的VB如何连接SQL SERVER数据库、导入数据到EXCEL表中的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。