adminSelect（從數據庫中檢索數據）
在SQL語言中，最基本、最常用，但也是最難完全理解的——select語句。在解釋Select的語法時，我一直想像之前解釋的那樣用中文寫，但最後還是決定， 先把英文原文語法寫在這裡:
Select _ list
[into new _ table]
from table _ source
[where search _ condition]
[group by group _ by _ expression]
[order by order _ expression[ASC | desc]]
如果要改變我之前解釋的方式，大測提示:可以理解爲:
選擇列名1 列名2、……
[Into new table name]
From table name[where { condition }]
[Group By組郃列名1、組郃列名2、……]
[Having {組郃條件}]
[Order By sort column name 1、sort column name 2、…… [Asc|Desc]]
where []不是必須的，但今天我們作爲第一步給出一個最簡單的應用示例，不包含全部。 要使用CopyFromRecordset，可以蓡考VBA幫助或者本網站的文章:http://www.examda.com
。爲了便於您將來運行代碼，我們在http://www.examda.com上傳了一個示例文件，其中包含三個文件。數據庫文件-發票表。mdb和Excel文件-發票表。xls是保存數據的文件，也是主文件。xls是主程序文件。以後大家的代碼都可以添加到這個文件的新模塊裡，然後就可以運行程序代碼了。
Sub:讀取進銷存表數據庫中的明細表數據()[/Br/]dimconnasaddb . connection[/Br/]dimwnasstring[/Br/]Dim tablename asstring[/Br/]dims SQL asstring[/Br/]Dim xsh as workshop[/Br/]Dim Sran as range[/Br/]Dim Colnum as integer[/Br/]Dim II as integer[/Br/]wn =" purchase， sale and storage table . MDB"/br/]TableName =" detailed list"
'要寫入的工作表名稱
set xsh = this workbook . worksheets(" detailed list")
'標題開始單元格
sets ran = xsh . range(" a1")
標題列數
colnum = 5
set conn = new adodb . connection
conn . connectionstring =" provider = Microsoft . jet . oledb . 4.0 & _
"數據源=" & ThisWorkbook。path &" \" & WN
conn . Open
如果conn.State = adStateOpen，則
sSql =" Select"
For ii = 1 To ColNum
sSql = sSql & sRan。偏移量(0，ii - 1)。Value &"，"
Next
sSql = Left(sSql，Len(sSql)-1)&" From" & TableName
sRan偏移量(1，0)。從記錄集conn.execute複制(ssql)
msgbox"成功讀取"" & TableName &""！"，“http://exmoda . com”
conn . close
end if
set conn = nothing
end Sub
同樣，我們也給出一個讀取購銷存表列表中數據的程序. xls，代碼如下:
Sub。讀取購銷存表文件中明細表的數據()
Dim conn As adodb . connection
Dim wn As String
Dim tablename As String]Dim sSql As String
Dim xSh As Worksheet
Dim sRan As Range
Dim ColNum As Integer
Dim ii As Integer
WN =" invoicing table . xls"
tablename =" detailed list"
'名稱Range("A1")
'標題列數
Colnum = 5
set conn = new adodb . connection
conn . connectionstring =" provider = Microsoft . jet . oledb . 4.0；"&"擴展屬性= Excel 8.0"&"數據源=" & ThisWorkbook。path &" \" & WN
conn . Open
如果conn.State = adStateOpen，則
sSql =" Select"
For ii = 1 To ColNum
sSql = sSql & sRan。偏移量(0，ii - 1)。Value &"，"
Next
sSql = Left(sSql，Len(sSql)-1)&" From[" & TableName &" $]"
sRan。偏移量(1，0)。從記錄集conn.execute複制(ssql)
msgbox"成功讀取"" & TableName &""！"，“http://exmoda . com”
conn . close
end if
set conn = nothing
end sub
通過兩個程序，我們可以初步了解Select。在接下來的幾篇文章中，我們將帶著SQL Excel的世界變得越來越精彩。讓我們一起曏前看。
0條評論