⑴ Access VBA中如何使用 sql 語句。
提問里是一段打開ADO記錄集對象的代碼，並不完整且含有錯誤。下面提供一個完整一點的代碼供參考：
PrivateSubCommand111_Click()
DimsqlAsString
'聲明ADO記錄集對象
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset'實例化記錄集對象
'拼寫SQL語句並賦值到變數
sql="SELECTDGZY.usenameFROMDGZYWHERE(((DGZY.usename)Like'張三'));"
'打開記錄集
rs.Opensql,CurrentProject.Connection,adOpenKeyset,adLockOptimistic
'利用記錄集對象進行所需的有關操作，代碼略
EndSub
⑵ 如何在Excel，VBA中執行SQL語句
sub test()
Dim Conn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rs As New ADODB.Recordset
strConn = "Provider=sqloledb;Server=192.168.1.111;Database=db2014;Uid=用戶名;Pwd=密碼;"
Conn.Open strConn
Max_row = Range("A1").CurrentRegion.Rows.Count
for i=1 to Max_row
strSQL = "select name from sales2014 where id='" & range("A" & i).value & "'"
Conn.Execute strSQL
rs.Open strSQL, Conn, 1, 1
range("B" & i).value= rs(0)
rs.Close
Set rs = Nothing
next i
'關閉資料庫
Conn.Close
end sub
⑶ 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" 開頭的人
⑷ 求助，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
⑸ 用VBA語言調用sql資料庫數據到excel中
VBE 工具 引用,選中 Microsoft ActiveX Data Object 2.8 Library
我不清楚是不是UFDATA_013_2008表的VENDOR列的數據,如果不是,你自己改一下SQL語句吧,sql = "select VENDOR from UFDATA_013_2008"
Sub SQL數據導入()
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Dim sql As String
Dim i As Integer
str = "Provider=SQLOLEDB;Data Source=SQLSERVER伺服器名或IP;DATABASE=資料庫;UID=用戶名;PWD=密碼"
cn.Open str
Set rs = New ADODB.Recordset
sql = "select VENDOR from UFDATA_013_2008"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
For i = 1 To rs.RecordCount
Sheet2.Cells(i, 1).Value = rs.Fields(0).Value
Next i
rs.MoveNext
End If
rs.Close
cn.Close
End Sub
⑹ access2013 VBA中怎樣運行sql語句
sql在vba里的運用比較專業需要認真的學習研究一下，給你詳細一點的資料和一個實例
你自己學著模擬練習一下
一、簡單的查詢
1、建立查詢
數據選項卡—現有連接—瀏覽更多或者按快捷鍵Alt+D+D+D
選擇要查詢的Excel文件和文件中的的工作表，就可以將相應工作表的數據取過來。表現形式可以是表，也可以是數據透視表等。
2、SQL查詢語句
如果是挑選部分列數據，就需要用SQL語句（取所有數據也可以用SQL語句）。
建立查詢時，選擇工作表後不要點擊「確定」按鈕，而是先點擊「屬性」按鈕，彈出窗口中選擇「定義」選項卡，在命令文本框中輸入SQL查詢語句（原來的工作表名稱，表示所有數據，可以認為是取所有數據的SQL的一種特殊寫法）：
Select欄位列表from[工作表名$]
--其中欄位列表就是需要選擇的欄位，數據源用工作表名稱加「$「再用中括弧括起來，例如：
selectprov_name,city_name,xs_mc,xs_codefrom[Sheet1$]
select*from[Sheet1$]--取所有數據
偶然發現，欄位名不能用no，估計是保留字，如需要，用中括弧括起來，例如：
select[no],prov_name,city_name,xs_mc,xs_codefrom[Sheet1$]
欄位名中含有特殊字元的也要用中括弧括起來，如/?空格等
Excel查詢沒有偽表概念，對於表達式的計算直接用select既可，例如
Select23+45--返回68
Selectdate()--返回當前日期
3、修改查詢語句
方法：點擊右鍵—彈出菜單—表格—編輯查詢
通過修改SQL語句可以變更所取的數據，也可以將建立查詢時的簡單SQL語句改成復雜的SQL語句。
欄位名更換：如果想換個欄位名，用「as新欄位名」既可，例如：
selectprov_nameas省,city_nameas城市,xs_mcas縣市,xs_codeas編碼from[Sheet1$]
非正常表格：數據區域（含欄位名）不在第一行
需要在工作表名稱後面指定數據范圍，例如：
selectprov_name,city_name,xs_mc,xs_codefrom[Sheet1$B2:G2000]
或者，將數據塊定義為一個名稱，假設定義為mydata，SQL語句如下：
selectprov_name,city_name,xs_mc,xs_codefrommydata
注意：使用名稱時沒有$符號，也沒有方括弧了。
數據更新：數據源發生變化，需要更新數據，方法：點擊右鍵—彈出菜單—刷新
意外：如果打開Excel文件後彈出不是選擇工作表的窗口而是一個「數據連接屬性」窗口，可以關閉這個窗口，然後將Excel應用極小化再極大化方式消除，或者在彈出選擇文件的窗口時，退回上一級文件夾，刪除那個Queries文件夾，就行了。
二、復雜的查詢
1、多表聯合
相同結構的多個表合並到一起，用union連接SQL語句，例如：
Select*from[財務部$]unionallSelect*from[市場部$]
Union是去重復的，即相同的記錄保留一個（類似distinct），Unionall則是直接相加兩個結果，不去重復。
增加一個部門欄位可以將查詢結果中的區分開來，以便知道數據來自哪個表。Union的三個一致，即：欄位的數量、類型和順序。例如：
Select「財務部」as部門,*from[財務部$]unionallSelect「市場部」as部門,*from[市場部$]
多表聯合查詢
Select*from[部門$]bm,[員工$]ygwherebm.部門編碼=yg.部門編碼跨工作簿查詢果數據不僅來自不同的工作表，還來自不同的文件，一樣可以用union聯合，例如：
Select「分公司1」as公司,「財務部」as部門,*from[F:SQL之Excel應用分公司1.xlsx].[財務部$]unionall
Select「分公司1」as公司,「市場部」as部門,*from[F:SQL之Excel應用分公司1.xlsx].[市場部$]unionall
Select「分公司2」as公司,「財務部」as部門,*from[F:SQL之Excel應用分公司2.xlsx].[財務部$]unionall
Select「分公司2」as公司,「市場部」as部門,*from[F:SQL之Excel應用分公司2.xlsx].[市場部$]
因為SQL中已經指定了文件名和表名，所以建立連接時連接誰並不重要，這種情況下，建立連接的時候就連接自己，然後再改寫SQL語句。
SubUsingSQL()
DimSqlAsString
DimjAsInteger
DimrAsInteger
DimCnnAsADODB.Connection
DimrsAsADODB.Recordset
WithSheet1
.Cells.Clear
SetCnn=NewADODB.Connection
WithCnn
.Provider="Microsoft.ACE.OLEDB.12.0"
.ConnectionString="ExtendedProperties=Excel12.0;"_
&"DataSource="&ThisWorkbook.Path&"數據.xlsx"
.Open
EndWith
Setrs=NewADODB.Recordset
Sql="Select*From[Sheet1$]"
rs.OpenSql,Cnn,adOpenKeyset,adLockOptimistic
Forj=0Tors.Fields.Count-1
.Cells(1,j+1)=rs.Fields(j).Name
Next
r=.Cells(.Rows.Count,1).End(xlUp).Row
.Range("A"&r+1).CopyFromRecordsetrs
EndWith
rs.Close
Cnn.Close
Setrs=Nothing
SetCnn=Nothing
EndSub
⑺ 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語句實現增刪改查