1、先打開控制面板-管理工具-打開數(shù)據(jù)源-系統(tǒng)DSN-添加驅(qū)動程序

?2、這里要輸入你想要連接的哪個服務(wù)器上的數(shù)據(jù)庫

?

?3、這里要輸入數(shù)據(jù)庫的帳戶跟密碼

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

?5、連接成功后、接下來就是用VB連接SQL SERVER、導(dǎo)入數(shù)據(jù)到EXCEL表格中

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

7、先點開發(fā)工具里的--設(shè)計模式--然后雙擊按扭

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

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

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

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

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

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。