delphi的bde更新问题 在线等待,解决立刻揭帖送分

runnerrunning 2003-10-17 01:08:43
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后还是没有解决这个问题

请问大家碰到这个问题没有?如何解决的?




...全文
72 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
runnerrunning 2003-10-20
  • 打赏
  • 举报
回复
楼上的没有解决我的问题阿

有没有版主啊?
这么冷清阿

100分当学费送分也好啊
jin_zai 2003-10-17
  • 打赏
  • 举报
回复
超过255的字符(char)字段,会被bde截掉,解决的办法是在sqlserver中将operation字段的类型该为text,其他操作跟用char一样即可

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧