[delphi是什么牌子]delphi中使用ADOQuery时的几个问题解决方案

2009-09-13 Delphi 阅读:

问题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中是否等价于两个单引

[delphi是什么牌子]delphi中使用ADOQuery时的几个问题解决方案

http://m.quanqiunao.cn/bianchengkaifa/14899/

推荐访问:delphi语言 delphi法

Delphi推荐文章

推荐内容

上一篇:delphi实现的线程同步_Delphi实现的线程池代码单元 下一篇:win32/bearfoos.a!ml|Win32/Induc.A是什么?Win32/Induc.A病毒怎么解决?