十分菜的问题！！！DELETE ACCESS数据表中的记录。

[lan_ding]

我要在查询之后删掉一个表中的所有记录。。
用delete table_提示语法错误。。。
if not (rs.EOF and rs.BOF ) then
set condel=server.CreateObject("Adodb.connection")
condel.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword
sqldel = "delete cx "
set rs=server.CreateObject ("adodb.recordset")
rs.Open sqldel,condel,adOpenStatic, adLockReadOnly, adCmdText
end if

[lan_ding]

在线等候

[希偌]

给出全部代码！

[lan_ding]

set con=server.CreateObject("Adodb.connection")
con.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword
sql = "SELECT cx.hh, cx.sh, cx.dfbs, cx.jrdffse, cx.jfbs, cx.jrjffse, cx.dfye, cx.rq FROM cx " '按显示序号排列
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,con,adOpenStatic, adLockReadOnly, adCmdText
.
.
.
if not (rs.EOF and rs.BOF ) then
set condel=server.CreateObject("Adodb.connection")
condel.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword
sqldel = "delete cx "
set rs=server.CreateObject ("adodb.recordset")
rs.Open sqldel,condel,adOpenStatic, adLockReadOnly, adCmdText
end if

[希偌]

set con=server.CreateObject("Adodb.connection")
con.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword
sql = "SELECT cx.hh, cx.sh, cx.dfbs, cx.jrdffse, cx.jfbs, cx.jrjffse, cx.dfye, cx.rq FROM cx " '按显示序号排列
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,con,adOpenStatic, adLockReadOnly, adCmdText
.
.
.
condel.open "provider=sqloledb;data source=数据源地址;uid="&strDatabaseUserName&";pws="&strDataBaseUserPassword&";database="&strDataSourceName
while not (rs.EOF and rs.BOF )
set condel=server.CreateObject("Adodb.connection")
sqldel = "delete from cx"
set rs=condel.Execute(sqldel)
wend

[beitou]

if not (rs.EOF and rs.BOF ) then
set condel=server.CreateObject("Adodb.connection")
condel.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword
sqldel = "delete cx "
condel.Execute
end if

[beitou]

if not (rs.EOF and rs.BOF ) then
set condel=server.CreateObject("Adodb.connection")
condel.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword
sqldel = "delete cx "
condel.Execute sqldel
end if

[lan_ding]

Microsoft VBScript 运行时错误 错误 '800a01c2'

错误的参数个数或无效的参数属性值: 'condel.Execute'

/index.asp, 行260

数据库是ACCESS，

[beitou]

你能把condel.open 后面的参数贴出来吗？

[lan_ding]

condel.open strDataSourceName,strDatabaseUserName,strDataBaseUserPassword

谢谢

[lan_ding]

这些参数全部是放在头文件里。。
strDataSourceName="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("/db/db.mdb")
strDatabaseUserName = "sa"
strDatabaseUserPassword = ""

[beitou]

那么你试一下condel.open strDataSourceName&";user id="&strDatabaseUserName&";password="&strDataBaseUserPassword,3,3

[beitou]

哦，不对，不好意思，我弄错了。

[beitou]

你可以不要后面两个参数，直接condel.open strDataSourceName试试。

[lan_ding]

谢谢。。beitou()　

[beitou]

再试一下把sqldel = "delete cx " 写成sqldel = "delete * from cx "