1. 如何在 ACCESS 2003 中一次執行多條sql查詢語句
在ACCESS窗體里編寫VBA代碼可以一次執行多條SQL語句
例如：
PrivateSubCommand1_Click()
DimSql1AsString,Sql2,AsString,Sql3AsString
Sql1="insertintot1(id,name)values('001','Zhangsan');"
Sql2="insertintot1(id,name)values('002','Lisi');"
Sql3="insertintot1(id,name)values('003','Wanghwu');"
WithCurrentProject.Connection
.ExecuteSql1
.ExecuteSql2
.ExecuteSql3
EndWith
EndSub
前提是每條SQL語句都是可以被正確執行的
2. 怎樣在Access sql語句 Insert into 批量添加數據
在asp里用for ...next 批量執行！
在asp里你那是是錯誤的寫法。
因為access也不支持！
批量錄入 都是用for ...next的多！
for i =0 to 8
你要執行的語句
if i=8 then exit for
next
3. 在access資料庫中怎麼執行sql語句
1，打開該access資料庫，然後點擊創建，點擊查詢設計，把跳出來的顯示表關閉。
2，點擊工具欄左上角的SQL，然後就會出現一個框，這個框就是輸入SQL語句是框，輸入語句後點擊保存，點擊運行，就可以看到效果了。
4. access如何批量執行sql語句
Access Jet引擎不支持同時運行多條語句，如果想要執行多條語句，用VBA寫Macro宏腳本吧。
5. 如何在access中同時提交多條sql語句
使用ACCESS查詢對象是無法一次運行多個SQL語句的，但是通過ACCESS VBA代碼可以實現一次運行多個SQL語句。下面是具體實現方案;
1)新建一個ACCESS窗體，窗體添加一個命令按鈕；
2）編寫按鈕單擊事件過程
1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim strSql as string
strSQL="Update Policy SET LatestDueDate=Year(Date()) & '-' & Format(PolicyDate,'mm-dd')"
DoCmd.RunSql strSQL '運行第一個更新語句
strSQL="UPDATE Policy SET LatestDueDate= DateAdd('yyyy',1,LatestDueDate) WHERE (((Month(Date())-Month(LatestDueDate)) > 6) and(PaymentMode='H'))"
DoCmd.RunSql strSQL '運行第二個更新語句
End Sub
跟著點擊該命令按鈕就可以一次執行兩條語句了。
*******不過這里必須指出樓主這種通過UPDATE更新來獲取繳費提醒的辦法絕對是一種非常糟糕的解決方案，其壞處除了你說的，我可以指出N多條！具體就不說了。******
其實要獲取你要獲取保單續期提醒日期,無需分兩步只要一句SELECT語句就能搞定，完全沒必要去更新數據表。
將下列SQL語句保存為一個名為「RenewAlertPolicies的選擇查詢
1
2
select PolicyNo,PolicyDate,DateAdd('yyyy',1,PolicyDueDate) as LatestDueDate
from Policy where DateDiff('m',PolicyDate, Date()) > 6 order by PolicyDate desc;
注意：上面「保單號」欄位名是我虛構的，請替換為實際的保單號欄位名。如果不想看太舊的保單，篩選可以用時間段來限制，例如...where DateDiff('m',PolicyDate, Date()) between 7 and 12 ....
當你要查看需要提示續保的保單列表時，簡單地雙擊該查詢就好了，你可以隨要隨查，非常方便，查詢結果將會展示最新的情況，完全沒必要去考慮如何更新LatestDueDate的問題。
6. 在ACCESS如何批量執行 UPDATE 語句，這些語句有上百條，先放到ACCESS表格里.實現按順序依次執行。
請看下面例子，這是我寫的一個通用保存模塊
Public Function SaveData(strSQL As String)
' On Error GoTo Err_SaveData
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object
If MsgBox("您確認要保存嗎?", vbOKCancel + vbInformation, "提示!!!") = vbOK Then
If AddTag = True Then
Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
rst.AddNew
Else
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.Edit
End If
For Each ctl In ctlFormName
'Debug.Print ctl.Name
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
'Debug.Print fld.Name
If fld.Name = ctl.Name Then
rst(fld.Name) = ctl
Exit For
End If
Next
End If
Next
rst.Update
rst.Close
Set rst = Nothing
MsgBox "數據保存成功!", vbInformation, "提示!!!"
End If
Exit_SaveData:
Set rst = Nothing
Exit Function
Err_SaveData:
If Err = 3022 Then
MsgBox "同一節點下不能存在相同的子節點，請修改後再點保存！", vbCritical, "警告!!!"
Else
MsgBox Err.Source & " #" & Err & vbCrLf & vbCrLf & Err.Description, vbCritical
On Error Resume Next
End If
Resume Exit_SaveData
End Function
7. 如何在access中執行sql語句
Access在小型系統開發中等到了廣泛使用。雖然Access提供了可視化的操作方法，但許多開發人員還是喜歡直接用SQL語句操作數據表。如何在Access中打開SQL視圖，對於初次使用Access的程序員可得費點時間呢。
1、ACESS2007
（1）點擊「創建」--點擊 「查詢設計」
（2）點擊關閉
（3）點擊左上角的"SQL視圖"就可以打開SQL窗口了
2、ACCESS 2003
（1）點擊對象里的「查詢」
（2）點擊 「在設計視圖創建查詢」 ，再點擊「關閉」
（3）再點擊 左上角的"sql"
（4）就可以輸入sql語句了
3、Access里like語句通配符
Access里like的通配符用法是這樣：「?」表示任何單一字元；「*」表示零個或多個字元；「#」表示任何一個數字。如:
select * from tablename where fieldname like '*沙洲*'
8. Access2010中如何運行SQL執行SQL語句
1、打開ACCESS資料庫，找到右邊的空數據，單擊彈出對話框，讓你選擇資料庫保存的路徑和名稱，大家根據自己的實際情況保存吧，我這里使用默認的。
9. AcceSS 2007如何通過執行SQL語句批量創建表,丟人了,竟不知道怎麼執行創建語句
以下是Access 2007幫助中摘取的樣例。
Sub CreateTableX1()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")
' Create a table with two text fields.
dbs.Execute "CREATE TABLE ThisTable " _
& "(FirstName CHAR, LastName CHAR);"
dbs.Close
End Sub
可用通過VBA讀取SQL語句，然後調用dbs.Execute方法逐條語句執行。
10. Access資料庫批量執行語句
用查詢對象，或在VBA中執行SQL語句來批量操作，而不是用ADO或DAO的Recordset一行一行的搞！資料庫你就應該用資料庫本身的強大功能，而不是當成讀文本文件一樣處理！