delphi中使用ADOQuery时的几个问题解决方案

时间:2013-05-24
简介:delphi教程|问题1、文参数的支持问题今天在使用ClientDataSource查询的时候,“divece_name”参数赋值为“%笔记本电脑%”,但是使用SQLServer

问题1、文参数的支持问题
今天在使用ClientDataSource查询的时候,“divece_name”参数赋值为“%笔记本电脑%”,但是使用SQL Server Profiler跟踪后发现查询的语句变为:

查询的数据提交到数据库时不完整,当我把N'@P1 varchar(8)', '%笔记本%'就可以正常执行了

我想可能是数据类型不正确,于是这么写:

cdsEquipment.Close;<br>cdsEquipment.Params.ParamByName('divece_name').DateType := ftWideString;
cdsEquipment.Params.ParamByName('divece_name').Value := '%' + txtDevice.Text + '%';
cdsEquipment.Open;

 但是提交到数据库的数据依然不完整:

最后在中间服务端的ADOQuery控件的BeforeOpen事件中加入如下代码就可以了:

adoqEquipment.Parameters.ParamByName('divece_name').Size := Length(adoqEquipment.Parameters.
ParamByName('divece_name').Value);

 重新设置参数长度,据说这是ADOQuery控件的BUG,对中文参数的支持问题

问题2、ADOQuery错误:ADOQuery1:commandtext does not return a result set 
程序内容: 
ADOQuery1.Close; 
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add('insert into DBhomework values('+Edit1.Text+','+Edit2.Text+','+ComboBox1.Text+','+Edit3.Text+','+Edit4.Text+')');
ADOQuery1.Open; 
解决方法: 
ADOQuery1.Open; 這行改成 ADOQuery1.ExecSQL; 
Select 之類的 SQL 语句才用 ADOQuery1.Open; 
附: 
在select中用open方法,是正确的,但是在insert中代码能够执行,只是显示了上面的错误信息:ADOQuery1:CommandText does not return a result set,后来才知道ExecSQL方法是执行,不会要求SQL服务器给一个返回值,而对于select则能够使用open方法,有返回值。 

问题3、ADOQuery错误:在此上下问中不允许使用名称"张三"。有效表达式包括常量、常量表达式和变量(在某些上下文中)。不允许使用列名。 
程序内容: 
ADOQuery1.Close; 
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add('insert into DBhomework(学号,姓名,性别,手机号码,班级) values('+Edit1.Text+','+Edit2.Text+','+ComboBox1.Text+','+Edit3.Text+','+Edit4.Text+')');
ADOQuery1.ExecSQL; 
其中,“姓名”和“性别”的内容是中文。 
语法上能够通过编译。SQLserver服务器里面是确定表内属性的是字符类型了,在server2005中也能够直接插入"张三"。在delphi中,把张三等中文换成数字或者字母能够成功插入。 
怀疑是ADOQuery组件的问题,所以换成ADOCommand组件,程序内容如下: 
Commandtext:='insert into DBhomework values('+Edit1.Text+','+Edit2.Text+','+ComboBox1.Text+','+Edit3.Text+','+Edit4.Text+')';
Execute; 
出现一样的错误信息。 

解决方法: 
'+Edit2.Text+'和'+ComboBox1.Text+'改成'''+Edit2.Text+'''和'''+ComboBox1.Text+''' 
其他的'也可以换成''' 
附: 
错误原因是:对于字符串字段属性没有加上引号,一直以为是SQLserver数据库建表中用的属性的数据类型问题,后来又想过会不会是Delphi数据类型转换问题,因为只要输入中文就会出现问题,曾经找到答案说加上双引号,试过了不对,不知道双引号在Delphi中是否等价于两个单引

TAGS:方案使用问题中使textadoqueryeditadoquery1

上一编:Delphi安装控件时file not found:designIntf.dcu 时的解决方法

下一编:delphi 编译时提示: circular unit reference to UNIT的问题

NewHot手机版