delphi的bde更新问题 在线等待,解决立刻揭帖送分
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]
GO
username为主健
sql serv2000因为以前是用bde廉洁的老版本,先在继续沿用bde
如果改为ado是没有问题的,请大家不要谈论ado
我的机器上运行如下代码:
unit Unit1;
interface
uses
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后还是没有解决这个问题
请问大家碰到这个问题没有?如何解决的?