Delphi7ADO莫明问题(100分)

  • 主题发起人 主题发起人 mygodsos
  • 开始时间 开始时间
M

mygodsos

Unregistered / Unconfirmed
GUEST, unregistred user!
我在中文win98sp2,delphi6,VFP6简体中文下写的程序好好的,
但在win2000pro简体中文,delphi7,VFP6简体中文,下出现把我中文字符
截掉的错误,莫名其妙。ADO是OLE DB for ODBC,driver 是visual forpro driver
真奇怪!!!!!!
程序如下:
var
i:Integer;
begin
ADOConnection1.Open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO TBZQDM(ZQDM,ZQMC) VALUES(:DM,:MC)');
try
for i:=1 to 1000 do
begin
ADOQuery1.Parameters.ParamValues['dm']:='600597';
ADOQuery1.Parameters.ParamValues['mc']:='光明乳业';
ADOQuery1.ExecSQL;
end;
finally
ADOQuery1.Close;
ADOConnection1.Close;
end;
end;

打开数据库后zqmc只有“光明“,我的zqmc为数是够的,是8个char
真搞不懂。
另外,我用BDE就没出现问题,真奇怪!!!!
乞盼赐教
郁闷中................................
 
你试一下ADOQuery1.ExecSQL;不要,应该可以!!
try
for i:=1 to 1000 do
begin
ADOQuery1.Parameters.ParamValues['dm']:='600597';
ADOQuery1.Parameters.ParamValues['mc']:='光明乳业';
// ADOQuery1.ExecSQL;
end;
 
我的出现错误,无法打开?为什么?提示版本问题,怎么解决
var
i:Integer;
begin
ADOConnection1.Open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from tablename');
try
ADOQuery1.open;
finally
ADOQuery1.Close;
ADOConnection1.Close;
end;
end;
 
将库中内容清空后再执行以下,看是否能够解决:
for i:=1 to 1000 do
begin
ADOQuery1.Parameters.ParamValues['dm']:='600597';
ADOQuery1.Parameters.ParamValues['mc']:='光明乳业';
ADOQuery1.ExecSQL;
[red]adoquery1.close;[/red]
end;
 
看你的ADOQuery1.Parameters.Datatype
是 ftstring 还是 ftWidestring
 
你试一下Access for driver吧,如果没有问题,那就是那个Driver有问题!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
783
import
I
后退
顶部