当用户通过一个输入界面输入数据,我想把这些数据保存成一张数据表。怎么做?
解决方案 »
- delphi调用vc编写dll出错的请教
- ring0下hook API
- 有关导入数据问题.
- 关于Delphi擦作HDIB
- 如何在窗体中动态地添加若干个图标并排列整齐(例如x行y列)?
- 怎样在程序中用语句使DBGRID所显示的记录全部被选中(急)?
- 高分解决sql问题。在线等待。
- 急诊:怎样得到一个中文字符的十六进制值?
- 我有一個Delphi反匯編的程式,但是不太好用,有更好用的嗎?
- ADODataSet 的 OnFetchProgress 事件的问题
- adotable查询问题。
- 在delphi中根据ComboBox1显示的数据库中楼盘名称的内容,取数据库select楼盘编号,并显示到edit中,这个代码怎么写?
begin
close;
SQL.Clear;
SQL.Add('create table abc (id decimal(5) not null,name char(20))');
ExecSQL;
end;
var
zldT:Ttable;
begin
zldT:=Ttable.Create(Self);
withzldTdo
begin
DatabaseName:=’DBDEMOS’;{预定义的别名数据库工作区名}
TableName:=’ZLDDBASE’;{将定义的数据库名}
TableType:=ttDbase;{数据库类型,可为ttParadox、ttASCII、ttDbase}
withFieldDefsdo{数据库结构信息}
begin
Clear;
Add(’ZLS’,ftInteger,0,false);
Add(’ZLD’,ftBoolean,0,false);
Add(’ZEZ’,ftString,10,false);
Add(’XL’,ftDate,0,false);
{....}//------在这增加其它字段
end;
withIndexDefsdo{索引文件信息}
begin
Clear;
Add(’Primary’,’ZEZ’,[ixPrimary,ixUnique]);
{....}////------在这增加索引
end;
CreateTable
end;
end; 通过以上方法建立数据库,如果已经存在同名数据库,将被覆盖,数据将全部丢失。 当修改一个数据库的结构时,也可以利用Ttable的方法CreateTable。先打开欲修改的数据库,取得该数据库的结构信息,再对其修改,然后用修改后的结构信息重新建立一个新数据库,再将原数据库中相同的列写入新数据库中,删除原数据库,改新数据库名为原数据库名即可。
with Query1 do
begin
close;
SQL.Clear;
SQL.Add('create table abc (id decimal(5) not null,name char(20))');
ExecSQL;
end;
使用sql语句创建,abc 表的名子, id ,name 字段, decimal,char 数据类型,在query1中执行sql语句。
//建 t_milk_info 表
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('create table t_milk_info(');
sql.add('milk_id smallint primary key not null,');
sql.add('milk_name varchar(30),');
sql.add('milk_brand varchar(20),');
sql.add('milk_product varchar(50),');
sql.add('sell_price currency,');
sql.add('balance_price currency,');
sql.add('reg_time datetime,');
sql.add('staff_rate currency,');
sql.add('deliver_price currency)'); execsql;
end;