Question

VF中的 insert into 问题

源代码：
lnHandle=SQLConnect(lcODBCName,lcDBUser,lcDBPasswd)
If lnHandle>0 &&连接成功
**从库里获得数据)
lnReturn=SQLExec(lnHandle,"select agentid=max(agentid)+1 from vk_agent","Cursorid")
If lnReturn>0 &&运行成功
*显示
thisform.text6.value=agentid
Else &&失败
&&出错处理
EndIf
Else &&连接失败
MessageBox("连接SQL SERVER失败",16,"BUFFER")
EndIf

lnHandle=SQLConnect(lcODBCName,lcDBUser,lcDBPasswd)
If lnHandle>0 &&连接成功
**更新数据)
lnReturn=SQLExec(lnHandle,"insert into vk_agent(agentid,province,city,agent,phone1,phone2,phone3) values ('"+alltrim(thisform.text6.value)+"','"+alltrim(thisform.text1.value)+"','"+alltrim(thisform.text2.value)+"','"+alltrim(thisform.text8.value)+"','"+alltrim(thisform.text9.value)+"','"+alltrim(thisform.text10.value)+"','"+alltrim(thisform.text11.value)+"')")
thisform.command2.click
thisform.command7.enabled=.t.
thisform.command6.enabled=.f.
If lnReturn>0 &&运行成功
messagebox("插入成功")
Else &&失败
&&出错处理
EndIf
Else &&连接失败
MessageBox("连接SQL SERVER失败",16,"BUFFER")
EndIf

一执行，VF给的提示是：函数参数的值、类型或数目无效
调试器出错行：lnReturn=SQLExec(lnHandle,"insert into vk_agent(agentid,province,city,agent,phone1,phone2,phone3) values ('"+alltrim(thisform.text6.value)+"','"+alltrim(thisform.text1.value)+"','"+alltrim(thisform.text2.value)+"','"+alltrim(thisform.text8.value)+"','"+alltrim(thisform.text9.value)+"','"+alltrim(thisform.text10.value)+"','"+alltrim(thisform.text11.value)+"')")

求简化和正确的语句

Answer 1

这一行代码的长度过长

尝试将这行代码分成几行来写

每行不要超过 256 个字符