vbexcelsql資料庫

Ⅰ 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我！

Ⅱ 用VB編寫一個導入EXCEL文件數據到SQL2000資料庫中的程序，怎麼編寫的

操作方法如下：
1、導入Excel數據，同時創建表:
select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1;DATABASE=文件路徑','select* from [Excel表名(默認為Sheet1)$]')。
2、在表中插入Excel數據：
insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1; DATABASE=文件路徑','select * from [Excel表名(默認為Sheet1)$]')。
3、導出數據到Excel中：
insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=0; DATABASE=文件路徑','select* from [Excel表名(默認為Sheet1)$]') select * from 表名；需要創建Excel文件並指定列名後才可以導出。

Ⅲ 用VB做怎麼將Excel數據導入SQL資料庫中

用VB做，將Excel數據導入SQL資料庫中：
法一:可以試著用VB書寫一段調用SQL Server資料庫DTS的代碼,然後就可以像直接使用DTS進行數據導入一樣就行Excel與SQL Server數據之間的遷移了。
方法二:可以用VB來 作EXCEL,然後一條數據一條數據的 入到資料庫中,這種方法不 使用,因為VB 作EXCEL是非常慢的,如果數據量太大,很有可能會造成宕機。

Ⅳ VB 從SQL資料庫中把數據導出到Excel表格中，怎麼寫

SubdataToExcel()
DimconnAsString
DimrsAsNewADODB.Recordset
DimexcelAsObject
DimworkbookAsObject
DimsheetAsObject
Dimi&,j&
'SQL資料庫的連接字串
conn="Provider=SQLOLEDB.1;Datasource=伺服器地址;initialcatalog=資料庫名稱;UserId=資料庫登錄賬號;Password=資料庫登錄賬號"
'打開到sql的連接，讀取xxx表數據到rs
rs.Open"select*fromxxx",conn,adOpenKeyset,adLockReadOnly
'excel對象、工作簿、工作表
Setexcel=CreateObject("Excel.Application")
Setworkbook=excel.workbooks().Add()
Setsheet=workbook.sheets(1)
excel.Visible=True
'循環讀取rs並寫入到excel
Fori=1Tors.Fields.Count
j=1
rs.MoveFirst
DoWhileNotrs.EOF
sheet.cells(j,i)=rs.Fields(i-1).Value
rs.MoveNext
j=j+1
Loop
Next
rs.Close
Setrs=Nothing

EndSub