标题: 在ADP中为什么这些语句不能运行? [打印本页] 作者: yodong 时间: 2004-3-19 23:49 标题: 在ADP中为什么这些语句不能运行? 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 时间: 2004-3-20 05:43
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 时间: 2004-3-23 19:46
谢谢热心的朱亦文朋友.谢谢!!