怎样得到当前被添加记录的ID号? 如果是SQL Server,select @@identity 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 还有一个,我不知道Borland是否支持。D6好像给TField增加了一个属性:AutoGenerateValue,可以将其设为arAutoInc。这个特性我没有试过,不过我猜测增加这个属性就是为了解决从数据库取值得问题。 Query1:select Max(id) from 表名DataModule3.ADOTable2.FieldByName('saveid').AsVariant:=Query1.Fields.Fields[0].AsInteger+1;—————————————————————————————————MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。';if Not Assigned(I) then I := TI.Create(Nil);I.Maxim := MaximStr;I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';I.Desire := '加不加分随你';————————————————————————————————— 我用ODBC连接SQL的库不出现这个问题 或者将字段ID的属性required设为false,不给ID赋值就提交。—————————————————————————————————MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。';if Not Assigned(I) then I := TI.Create(Nil);I.Maxim := MaximStr;I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';I.Desire := '加不加分随你';————————————————————————————————— 这种方式我用过,没取到有ID值:select Max(id) from 表名真是奇怪了,这个ID时有时无的 一定给你搞定!DataModule3.ADOTable2.FieldByName('id').value改为DataModule3.ADOTable2.FieldByName('id').asstring(字符型,如果整数型,用asinteger) TNND,原来ACCESS文件里有病毒,好在我有NORTON这个分如何分呢?平分了吧,呵呵 在Access里不能自己设字段名为"ID",因为Access里有一个自动添加添加ID的功能,当你在Delphi中查找ID字段的值时会找不到的.你可以设为不同于"ID"这个字段名的其它字段(例:'ID_1'等等,就是不等于'ID'就可以了),就不会出现问题. TList问题 请教:delphi编译后的程序运行时候为什么提示连接网络呢? 程序抓图的问题 游戏,让我很罪恶感 TAdoDataSet过滤(Filter)和定位(Locate)时不能区分大小写的问题(在线等待帮助……) 图文混排数据库查询问题?解决立即给分,急!!急 谁有infoPower2000 for delphi5的安装包(不是试用版本的) 怎么知道代码是在delphi的那个版本下写的? 散分,今天手机离开我10秒又回来了, Installshield 12/14 不包括BDE?? 三层保存,急用!!!!!! 如果某个控件一部分在屏幕上不可见或者是被其他控件遮盖,怎么取得控件的图像
D6好像给TField增加了一个属性:AutoGenerateValue,可以将其设为arAutoInc。
这个特性我没有试过,不过我猜测增加这个属性就是为了解决从数据库取值得问题。
select Max(id) from 表名DataModule3.ADOTable2.FieldByName('saveid').AsVariant:=
Query1.Fields.Fields[0].AsInteger+1;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
DataModule3.ADOTable2.FieldByName('id').value
改为DataModule3.ADOTable2.FieldByName('id').asstring(字符型,如果
整数型,用asinteger)
这个分如何分呢?平分了吧,呵呵