在ADP中为什么这些语句不能运行?

yodong

Set rs = New ADODB.Recordset

Dim str As String
Dim aa As String
Dim a As String
a = "DD040317-053"
aa = FORMs![frm订单]![Text58].value
str = "INSERT INTO dbo.tbl订单明细 (订单号, 产品名称)"
str = str & " SELECT(a as 订单号,产品名称) "
str = str & " FROM dbo.表1 where　"
str = str & "号 =" & aa
'MsgBox str
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
出现的提示是:在关键字'AS'附近有语法错误!

各位朋友帮我看一下原因,如果AA变量的值是日期型,则应怎样变化呢?
谢谢各位了!!
还有,在ADP中是不是没有DOCMD.RUNSQL这样的语句了呢?

zhuyiwen

Set rs = New ADODB.Recordset

Dim str As String
Dim aa As String
Dim a As String
a = "DD040317-053"
aa = FORMs![frm订单]![Text58].value
str = "INSERT INTO dbo.tbl订单明细 (订单号, 产品名称)"
str = str & " SELECT(a as 订单号,产品名称) "
str = str & " FROM dbo.表1 where　"
str = str & "号 =" & aa
'MsgBox str
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

===>

Set rs = New ADODB.Recordset

Dim str As String
Dim aa As String
Dim a As String
a = "DD040317-053"
aa = FORMs![frm订单]![Text58].value
str = "INSERT INTO dbo.tbl订单明细 (订单号, 产品名称)"
str = str & " SELECT('" & a & "' as 订单号,产品名称) "
str = str & " FROM dbo.表1 where　"
str = str & "号 =" & aa
'MsgBox str
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

yodong

谢谢热心的朱亦文朋友.谢谢!!