Access VBA中如何使用SQL語句

1樓：匿名使用者

提問裡是一段開啟ado記錄集物件的**，並不完整且含有錯誤。下面提供一個完整一點的**供參考：

private sub command111_click()

dim sql as string

'宣告ado記錄集物件

dim rs as adodb.recordset

set rs = new adodb.recordset '例項化記錄集物件

'拼寫sql語句並賦值到變數

sql = "select dgzy.usename from dgzy where (((dgzy.usename) like '張三'));"

'開啟記錄集

rs.open sql, currentproject.connection, adopenkeyset, adlockoptimistic

'利用記錄集物件進行所需的有關操作，**略

end sub

2樓：officecn交流

建立查詢

右鍵-sql檢視

寫入sql語句

儲存（命名）

參考：office中國論壇

3樓：育知同創教育

access vba中使用sql的方法舉例:

private sub command12_click()

dim sqlstr as string

dim condstr as string

dim db as database

dim rs as recordset

dim f as field

set db = currentdb

sqlstr = "select 品名.名稱, 品名.性質（分類）, 品名.類別, 品名.用法,品名.有效病菌 from [品名]"

if me.名稱 <> "" then

condstr = " 品名.名稱 = '" & me.名稱 & "'"

elseif me.性質 <> "" then

condstr = " 品名.性質（分類） = '" & me.性質 & "'"

elseif me.用法 <> "" then

condstr = " 品名.用法 = '" & me.用法 & "'"

elseif me.類別 <> "" then

condstr = " 品名.類別 = '" & me.類別 & "'"

elseif me.有效病菌 <> "" then

condstr = " 品名.有效病菌 = '" & me.有效病菌 & "'"

end if

if condstr <> "" then

sqlstr = sqlstr & " where " & condstr

end if

set rs = db.openrecordset(sqlstr, dbopendynaset)

me.查詢資料.form.recordsource = sqlstr

me.查詢資料.requery

end sub

4樓：匿名使用者

private sub command1_click()dim sql as string

dim rst as dao.recordsetsql = "select dgzy.usename from dgzy where (((dgzy.

usename) like " & '張三' & "))"

set rst = currentdb.openrecordset'然後你就可以處理rst了，rst就是返回的記錄集end sub

如何檢視sql 執行sql語句

5樓：兄弟連北京校區

在sql server裡按下ctrl+m,然後執行一個你需要分析的sql語句，在結果框邊上會有一個execultion plan,看這裡面就行

6樓：愛可生雲資料庫

sql 語句摘要可以用在mysql的各個方面，比如效能字典裡對語句的分析，查詢重寫外掛規則改寫等等。

接下來依次看下語句摘要在這兩方面的使用。

1. 效能字典

mysql> call sys.ps_setup_enable_consumer('statements');

+---------------------+

| summary |

+---------------------+

| enabled 4 consumers |

+---------------------+

1 row in set (0.00 sec)

query ok, 0 rows affected (0.00 sec)

開啟後，執行幾次之前的幾條 sql。

完後可以很方便的從 sys 庫裡分析這類語句的執**況，包括執行次數，執行時間，掃描的記錄數，鎖定的時間，是否用到排序等等。

2. 查詢重寫外掛

比如要阻止對錶 p1 通過欄位 r1 的刪除動作，可以用查詢重寫外掛在 mysql 語句分析層直接轉換，這時候就得用到摘要函式 statement_digest_text。

假設：表 p1 欄位 id 值全部為正。

delete from p1 where id = 1000;

要改寫為，

delete from p1 where id = -1;

利用函式 statement_digest_text 來定製這條 sql 的重寫規則。

mysql> insert into query_rewrite.rewrite_rules (pattern, replacement,pattern_database) -> values( -> statement_digest_text('delete from p1 where id = 1000') , -> statement_digest_text('delete from p1 where id = -1'), -> 'ytt' -> );query ok, 1 row affected (0.01 sec)

語句被查詢重寫後的效果：

mysql> delete from p1 where id = 20000;query ok, 0 rows affected, 1 warning (0.00 sec)

mysql> show warnings\g*************************** 1. row *************************** level: note code:

1105message: query 'delete from p1 where id = 20000' rewritten to 'delete from `p1` where `id` = - 20000' by a query rewrite plugin1 row in set (0.00 sec)mysql> select count(*) from p1;+----------+| count(*) |+----------+| 9000001 |+----------+1 row in set (1.

59 sec)

總結mysql 8.0 新增的語句摘要函式可以很方便的分析 sql 語句執行的各個方面，比以前分析類似的場景要簡單的多。

Access VBA中如何使用SQL語句

Excel中SUBSTITUTE如何使用

cad中如何使用極軸追蹤

如何使用photoshop中的cameraraw進行簡單後期

其他用戶還看了：