excelvba處理sql記錄集

㈠ 在excel中如何使用vba實現將sql的數據快速寫入excel

DimconnAsNewADODB.Connection
connStr="Driver={SQLServer};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.OpenconnStr'連接資料庫
DimrsAsNewRecordset
sql="select*froma"'查看錶a
rs.Opensql,conn,3,3
ifNotrs.EOFthen
ForiCols=0Tors.fields.Count-1
Sheets(1).Cells(1,iCols+1).Value=rs.fields(iCols).Name
NextiCols
Sheets(1).Cells(2,1).CopyFromRecordsetrs
endif

㈡ 誰能給我一個EXCEL VBA往SQL資料庫讀取和寫入記錄的例子

• 讀取和寫入操作方式一樣，唯一不同的是sql語句，讀取用select，讀取用insert，以讀取為例子，錄入如下代碼：
  

  'sql完整例子
  Sub testSql()

  '定義連接對象
  Dim cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  
  '定義連接字元串
  Dim conStr As String
  Dim sqlstr As String
  '連接字元串-以下是連接MSSQL資料庫
  conStr = "Provider=sqloledb; " _
  & "Server=192.168.1.121; " _
  & "Database=DATABASENAME;Uid=admin;Pwd=admin;"
  cnn.Open conStr
  
  sqlstr = "SELECT * from tablename"
  rs.Open sqlstr, cnn
  Range("a2").CopyFromRecordset rs
  rs.Close
  cnn.Close

End Sub

㈢ excel vba如何實現根據資料庫sql查詢返回的數據集繪圖表呢

授你一漁：
你這樣做，錄宏，然後操作，數據導入，這樣你得到了一段導入數據的VBA，接下來的處理，你應該能懂的。

㈣ 求助，EXCEL通過VBA操作SQL資料庫

Sub 按鈕1_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 '定義記錄集對象，保存數據表
『工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面兩句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字元串變數
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定義資料庫鏈接字元串

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

strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定義SQL查詢命令字元串

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

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

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

㈤ Excel 怎樣用VBA將數據導入到SQL資料庫

subtest()
Setcnn=CreateObject("ADODB.Connection")

Setrs=CreateObject("Adodb.Recordset")strCn="Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
cnn.OpenstrCn
SQL=""
cnn.OpenstrCn'與資料庫建立連接，如果成功，返回連接對象cn
rs.OpenSQL,cn'執行strSQL所含的SQL命令，結果保存在rs記錄集對象中
cnn.Close
Setcnn=Nothing

endsub

請參考

連接資料庫後，通過寫SQL語句實現增刪改查

㈥ 在excel中用vba實現與sql資料庫的數據比較

先建立一個sheet通過數據頁簽中自其它來源,將資料庫中的資料導入。然後再建立一個sheet通過數據頁簽中的現有連接，然後通過sql語句就可以比較那兩個sheet中的內容了。以後直接點擊刷新數據就可以了

㈦ 如何在EXCEL中使用SQL進行數據處理與分析

在EXCEL中使用SQL進行數據處理與分析步驟有：

工具原料：excel2013版本

1. 打開「excel」，在「數據」選項卡中，找到「自其他來源」；

   
   

   
   

   
   

   ㈧ Excel VBA 連接SQL資料庫後的操作。

   呵呵，以前就幫人家解決過這個，請看下面的代碼，有注釋的！
   Private Sub CommandButton5_Click()
   Dim Conn As New ADODB.Connection '定義ADODB連接對象
   Dim ConnStr As String '定義連接字元串
   Dim xiao As String
   
   xiao = ComData.Text
   
   '對於SQL 2008，如果以IP方式訪問伺服器，必須要啟動SQL Server Browser服務，如果是Express版本，要以「IP(計算機名)\實例名」方式訪問
   ConnStr = txtData.Text
   
   Dim Records As New ADODB.Recordset '定義ADODB對象的記錄集
   Dim Sheet As Worksheet '定義工作表
   
   Set Sheet = ThisWorkbook.Worksheets("Sheet2") '給變數Sheet賦值，注意：是工作簿中索引為1的那個表（通常一個新的工作簿Sheet1的索引為1）
   'Sheet.Name = "Data" '把Sheet名稱改為Data
   Sheet.Cells.Clear '清空表中原有的數據
   
   '連接狀態是打開就不在進行Open操作
   
   Conn.Open ConnStr
   Dim SQLStr As String '要執行的SQL語句
   SQLStr = "select * from Shift_Code where Club='" + xiao + "'" '可以執行更復雜的SQL語句
   
   Records.Open SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '讀取SQL查詢結果到Records記錄集
   'Records.Open
   Dim i, j, TotalRows, TotalColumns As Integer
   j = 0
   TotalRows = Records.RecordCount
   TotalColumns = Records.Fields.Count
   
   '下面的循環把表頭（即列名）寫到Excel表的第一行
   For i = 0 To TotalColumns - 1
   Sheet2.Cells(1, i + 1) = Records.Fields(i).Name
   Next
   
   '下面的循環把查詢結果寫到Excel表中
   Do While Not Records.EOF
   
   For i = 0 To TotalColumns - 1
   Sheet2.Cells(j + 2, i + 1) = Records.Fields(i).Value
   Next
   
   Records.MoveNext
   j = j + 1
   
   Loop
   Records.Close '關閉記錄集
   Conn.Close '關閉連接
   
   Set Records = Nothing '清空對象
   Set Conn = Nothing '清空對象
   
   End Sub
   
   有什麼不懂的話Hi我！

   ㈨ 在vba中怎麼用sql語句吧excel工作表和資料庫表連接查詢

   摘要 VBA連接SQL SERVER資料庫操作Excel。

   ㈩ 怎樣用excelVBA將sql資料庫中數據的列名讀

   Sub 按鈕1_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 '定義記錄集對象，保存數據表
   『工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
   '下面兩句就不需要增加引用ADO
   Set cn = CreateObject("Adodb.Connection")
   Set rs = CreateObject("Adodb.Recordset")
   Dim strCn As String, strSQL As String '字元串變數
   Dim strCond As String
   strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定義資料庫鏈接字元串