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一行一行的搞！数据库你就应该用数据库本身的强大功能，而不是当成读文本文件一样处理！