vba資料庫查詢
『壹』 利用VBA從Access資料庫中查找數據
這當然可以查找啦！因為本身你就可以從裡面查到其他的數據和總的數據來源。
『貳』 VBA 連接Access資料庫查詢
你數據對不上是少數據嗎?你的語句中用了like,但沒有通配符,試試修改
sqls = "SELECT * FROM NDYX where FIELD(0) like'*" & a & "*'" '定義SQL查詢命令字元串"
『叄』 Excel使用VBA在指定框中輸入資料庫查詢出的數據
參考下面
網頁鏈接
『肆』 VBA 要寫一個在資料庫查詢的代碼，要如何修改才是正確的寫法
.FindFirst "工單編號='" & TextBox118.Value & "'" & " AND 物料編號 OR 替代物料3 OR 替代物料2 LIKE '%" & TextBox40.Value & "%'"
AND前少了空格是最主要的
『伍』 vba sql查詢
sql一般用在多條件查詢，對資料庫讀寫等。
1. VBA如何建立sql連接
A．在VBA Project 窗口中，「工具—引用—Microsoft ActiveX Data Objects 2.0 Library」，如下圖所示
B． VBA語句
Private Sub CommandButton1_Click()
Dim cnn As ADODB.Connection』定義變數
Dim sql$, Stext$, i As Integer
Worksheets(3).Cells.Clear
Stext = IIf(TextBox1.Value = "", "*", TextBox1.Value)
Set cnn = CreateObject("adodb.connection")』生成對象
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName』打開資料庫
If TextBox1 = "" Then
sql = "select * from [sheet2$]"』sql語句
Else
sql = "select * from [sheet2$] where 姓名 like '" & TextBox1.Value & "'"
End If
Worksheets(3).[a1].CopyFromRecordset cnn.Execute(sql)』執行sql語句
cnn.Close
Set cnn = Nothing
End Sub
2. sub text()
Dim cnn As ADODB.Connection』定義變數
Dim rs as adodb.recordset
Set cnn = CreateObject("adodb.connection")』生成對象,若定義變數時為Dim cnn As New ADODB.Connection，此句可省略
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName』打開資料庫
sql = "select * from [sheet2$] where 姓名 like '" & TextBox1.Value & "'"
rs.open sql,cnn,adOpenKeyset.adLockOptimistic』生成查詢記錄，為後面出書數據准備
Worksheets(3).[a1].CopyFromRecordset rs
end sub
________________________________________________________________________
以下根據網路整理
2 Select SQL語句
SELECT * FROM table_name WHERE column1 = xxx [AND column2 > yyy] [OR column3 <> zzz]
'*'表示全部的欄位都列出來，如果不全部列出，則可以寫欄位名稱如 學號，姓名……；WHERE 之後是接條件式，把符合條件的資料列出來，table_name如果為工作表名稱，書寫格式[工作表名$]，下同。
SELECT column1,AVG(column2) FROM table_name GROUP BY column1 HAVING AVG(column2) > xxx
說明： 1.GROUP BY: 以column1 為一組計算 column2 的平均值必須和 AVG、SUM等整合性查詢的關鍵字一起使用。2.HAVING : 必須和 GROUP BY 一起使用作為整合性的限制。
復合性的查詢：SELECT * FROM table_name1 WHERE EXISTS (SELECT * FROM table_name2 WHERE conditions )
說明：1.WHERE 的 conditions 可以是另外一個的 query。2. 在此是指存在與否。
SELECT column1,columns2,...FROM table_name
說明：把table_name 的特定欄位資料全部列出來
SELECT COUNT (*) FROM table_name WHERE column_name = xxx
說明：查詢符合條件的資料共有幾筆。
1.計算出總和，所選的欄位必須是可數的數字形態。2.除此以外還有 AVG() 是計算
SELECT SUM(column1) FROM table_name
說明：平均、MAX()、MIN()計算最大最小值的整合
SELECT * FROM table_name1 WHERE column1 BETWEEN xx AND yy
說明：BETWEEN 表示 column1 的值介於 xx 和 yy 之間。
3. update SQL語句
UPDATE table_name SET column1='xxx' WHERE conditoins
說明：1.更改某個欄位設定其值為'xxx'。
2.conditions 是所要符合的條件、若沒有 WHERE 則整個 table 的那個欄位都會全部被更改。
4. deletesql語句
刪除資料： DELETE FROM table_name WHERE conditions
說明：刪除符合條件的資料。
說明：關於WHERE條件後面如果包含有日期的比較，不同資料庫有不同的表達式
5．SQL中通配符用
• "%" 表示零個或多個，
• "_"表示任何單一字元
• [charlist] 字元列中的任何單一字元
• [^charlist] [!charlist] 不在字元列中的任何單一字元
• select * from databasename where fieldname like '%XX%'
• SELECT * FROM Persons WHERE City LIKE '[AOF]%'
• 從上面的 "Persons" 表中選取居住的城市以 "A" 或 "O" 或 "F" 開頭的人
• SELECT * FROM Persons WHERE City LIKE '[!AOF]%'
• 從上面的 "Persons" 表中選取居住的城市不以 "A" 或 "O" 或 "F" 開頭的人
『陸』 vba如何調用Access的查詢,並顯示查詢結果
1.點擊：創建--宏。打開宏編輯器。
『柒』 如何用Excel VBA構建數據查詢界面
一般有2種方式。
1種是在Sheet頁面設計：
後台VBA連接SQLServer，我連接的是Objects 2.8