【新手入门】之二十二：浅谈ADO之Conmmand番外篇——创建参数

roych · 发表于 2023-5-25 00:41:09

昨天Access交流群里有群友提问，如果不愿意拼接SQL，该如何使用ADO进行追加数据。
我记得之前猫神好像写过一个帖子，但时间久远，一时间我也找不到了。所以打算自己随意写一个帖子。
不拼接SQL，通常需要使用占位符来处理。在使用占位符的时候，自然需要设置好数据类型，那么传入的值就会按既定数据类型进行处理了。这有些像Access的参数查询一样：

PARAMETERS userName Text ( 255 ), age Short, logDate DateTime;
SELECT 表1.userName, 表1.age, 表1.logDate
FROM 表1;

复制代码

如上代码，先创建3个参数，运行的时候，只要用户按指定的数据类型输入，那么就能查询出正确的数据了。
对于ADO，可以使用同样的思路来处理。先创建ADO数据连接（connection），再设置命令（command），通过command来创建参数，再执行带参数的SQL命令即可。代码如下：

Private Sub cmdInsert_Click()
Dim cmd As New ADODB.Command
Dim cnn As ADODB.Connection
Dim strSQL As String
Set cnn = CurrentProject.Connection
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
strSQL = "INSERT INTO 表1 (userName, age, logDate, remark) VALUES (?, ?, ?, ?)"
'。参数名不必和字段名一致，但参数必须与字段的数据类型一一对应。
'也可以写成以下。不过一般情况下，建议还是像上面一样，加上字段名便于理解。
'strSQL = "INSERT INTO 表1 VALUES (?, ?, ?, ?)"
cmd.Parameters.Append cmd.CreateParameter("myUser", adVarChar, adParamInput, 255, Me.userName)
cmd.Parameters.Append cmd.CreateParameter("myAge", adInteger, adParamInput, , Me.age)
cmd.Parameters.Append cmd.CreateParameter("myDate", adDate, adParamInput, , Me.logDate)
cmd.Parameters.Append cmd.CreateParameter("myRemark", adVarChar, adParamInput, 255, Me.Remark)
cmd.CommandText = strSQL
cmd.Execute
cnn.Close
Set cmd = Nothing
Set cnn = Nothing
End Sub

复制代码

roych · 发表于 2023-5-25 00:59:12

附件在压缩时可能有点问题。由于原帖中含有SQL语句，因此没法更新原帖附件了。
如有错误，请使用此处的附件。
或者将原帖附件中的窗体和表导入到您的数据库中再使用（使用前请确保引用了ADO库）。
顺带说一下，使用本方法，在Access里是不支持一条语句批量插入的【即：i nsert into values (数据1), (数据2), (数据3)】。因此，尽管减少了字符串拼接所引起的错误，但执行效率上还是比导入或者追加查询要差一点。

accben · 发表于 2023-5-26 16:41:00

重温Command的参数。

wuwu200222 · 发表于 2023-6-21 11:23:31

学习

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[ADO/DAO] 【新手入门】之二十二：浅谈ADO之Conmmand番外篇——创建参数

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)