delphi版本:build6.240 pack 2
表结构:
CREATE TABLE [operation] (
[operation] [varchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,
[username] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[operdate] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GOusername为主健sql serv2000因为以前是用bde廉洁的老版本,先在继续沿用bde
如果改为ado是没有问题的,请大家不要谈论ado我的机器上运行如下代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, DBCtrls, Grids, DBGrids;type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBMemo1: TDBMemo;
Database1: TDatabase;
Query1: TQuery;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Database1AfterConnect(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
s := '';
for i := 0 to 150 do
s := s + inttostr(i);
with query1 do begin
insert;
fieldbyname('operation').AsString := S;
post;
end;
end;procedure TForm1.Database1AfterConnect(Sender: TObject);
begin
Query1.Active := true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Database1.Connected := true;
end;end.就是给字段operation赋值超过256长度后就被截断,而我的同事的机器上同时安装了delphi6和bcb6,他的机器上bcb和delphi上都不出现这个问题,估计是他的bde新的问题
但是我安装了bcb的bde后还是没有解决这个问题请问大家碰到这个问题没有?如何解决的?
表结构:
CREATE TABLE [operation] (
[operation] [varchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,
[username] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[operdate] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GOusername为主健sql serv2000因为以前是用bde廉洁的老版本,先在继续沿用bde
如果改为ado是没有问题的,请大家不要谈论ado我的机器上运行如下代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, DBCtrls, Grids, DBGrids;type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBMemo1: TDBMemo;
Database1: TDatabase;
Query1: TQuery;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Database1AfterConnect(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : integer;
begin
s := '';
for i := 0 to 150 do
s := s + inttostr(i);
with query1 do begin
insert;
fieldbyname('operation').AsString := S;
post;
end;
end;procedure TForm1.Database1AfterConnect(Sender: TObject);
begin
Query1.Active := true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Database1.Connected := true;
end;end.就是给字段operation赋值超过256长度后就被截断,而我的同事的机器上同时安装了delphi6和bcb6,他的机器上bcb和delphi上都不出现这个问题,估计是他的bde新的问题
但是我安装了bcb的bde后还是没有解决这个问题请问大家碰到这个问题没有?如何解决的?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货