执行插入语句 cnnmoney.Execute sqlmoney 时系统说“至少一个参数没被指定值”,但参数都是13个啊！

[cnlipeng]

sqlmoney = "insert into 费用表(用户代码,日期,底度,电度,基本电费,力率电费,附加电费,线路代码,用户类型,用户类型2,比例,片区代码,倍率) " & _
" select 用户代码,'" & DTPicker1.Value & "'," & Trim(Text4.Text) & "," & dian & "," & Trim(Text6.Text) & "," & Trim(Text8.Text) & ", " & Trim(Text7.Text) & ", " & _
" 用户表.线路代码,用户表.类型代码,用户表.类型代码2,比例,用户表.片区代码,用户表.倍率 from 用户表 where 用户代码='" & Trim(Text9.Text) & Trim(Text1.Text) & "'"

'sqlmoney = "insert into 费用表(用户代码,日期,底度,电度,基本电费,力率电费,附加电费,) values ('" & Trim(Text9.Text) & Trim(Text1.Text) & "','" & DTPicker1.Value & "'," & Trim(Text4.Text) & "," & dian & "," & Trim(Text6.Text) & "," & Trim(Text8.Text) & ", " & Trim(Text7.Text) & ")"
If cnnmoney.State <> adstatedclosed Then cnnmoney.Close
cnnmoney.Open str
cnnmoney.Execute sqlmoney
cnnmoney.Close

[cnlipeng]

sqlmoney = "insert into 费用表(用户代码,日期,底度,电度,基本电费,力率电费,附加电费,线路代码,用户类型,用户类型2,比例,片区代码,倍率) " & _
" select 用户代码,'" & DTPicker1.Value & "'," & Trim(Text4.Text) & "," & dian & "," & Trim(Text6.Text) & "," & Trim(Text8.Text) & ", " & Trim(Text7.Text) & ", " & _
" 用户表.线路代码,用户表.类型代码,用户表.类型代码2,比例,用户表.片区代码,用户表.倍率 from 用户表 where 用户代码='" & Trim(Text9.Text) & Trim(Text1.Text) & "'"

If cnnmoney.State <> adstatedclosed Then cnnmoney.Close
cnnmoney.Open str
cnnmoney.Execute sqlmoney
cnnmoney.Close


不好意思，最前面的代码贴错了！

[myhgyp]

select子句要么不带表名，要么全带，不要有的带有的不带，试一下吧

[cnlipeng]

问题已解决！我的用户表里面没有台区这个字段所以出错，
散分！

[dearwader]

你的SQL语句我没看。不是参数的指定的问题，
是你的语句有错误，可能是：
字段名称拼写不对，你仔细检查吧。不要盯着出错提示

[jornet]

应该是上下不匹配，可能是你select出来的值是空，最好设置断点，检查一下

[TechnoFantasy]

你的数据库是什么数据库？
确保你通过文本框传递的值：如果是字符串，使用单引号括起来，如果是日期，使用单引号或者#号括起来（根据你数据库而定）

[sbfinger]

你的字段的定义的类型无法看清楚。你可以这样试试，去掉几个字段，剩几个类型相同的字段试试。然后再一个一个加，就能查出问题出在哪儿？

[lxcc]

好像你的括号有问题，
建议用debug.print sqlmoney
看看sqlmoney 的内容，然后到查询分析器里面看看那出错

[test7979]

是不是<费用表>中还有其它必须填充的字段啊?

[zhenglc]

select子句字段名重复的要带表名

[自由之眼]

不是你的SQL语句有问题，而是你的数据库连接有问题
检查你的数据库连接字符串

[yijiansong]

将查询在数据库工具软件中执行成功后写进程序中