我想用一个procedure TCRTCLATABForm.Button1Click(Sender: TObject);事件来动态创建一个数据表!ACCESS表,可是做了很久都没有做成功,
不过我看了一些例子,用BDE中TABLE到是可以做得!这里就是一个用BDE中TABLE做得一个例子!
with Table1 do begin
Active := False;
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo'; { Don't overwrite an existing table } if not Table1.Exists then begin
{ The Table component must not be active }
{ First, describe the type of table and give }
{ it a name }
{ Next, describe the fields in the table }
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
{ Next, describe any indexes }
with IndexDefs do begin
Clear;
{ The 1st index has no name because it is
{ a Paradox primary key }
with AddIndexDef do begin
Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
{ Call the CreateTable method to create the table }
CreateTable;
end;
end;
可是在ADO中我就不知道怎么做了!小弟是菜鸟,还望各位高手大哥大姐指教了!
不过我看了一些例子,用BDE中TABLE到是可以做得!这里就是一个用BDE中TABLE做得一个例子!
with Table1 do begin
Active := False;
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo'; { Don't overwrite an existing table } if not Table1.Exists then begin
{ The Table component must not be active }
{ First, describe the type of table and give }
{ it a name }
{ Next, describe the fields in the table }
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Field1';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin Name := 'Field2';
DataType := ftString;
Size := 30;
end;
end;
{ Next, describe any indexes }
with IndexDefs do begin
Clear;
{ The 1st index has no name because it is
{ a Paradox primary key }
with AddIndexDef do begin
Name := '';
Fields := 'Field1';
Options := [ixPrimary];
end;
with AddIndexDef do begin Name := 'Fld2Indx';
Fields := 'Field2';
Options := [ixCaseInsensitive];
end;
end;
{ Call the CreateTable method to create the table }
CreateTable;
end;
end;
可是在ADO中我就不知道怎么做了!小弟是菜鸟,还望各位高手大哥大姐指教了!
解决方案 »
- 加急问题...搞了我很久了..高手进来看下
- 弱弱的问:怎么判断电脑是否重启
- 在delphi 7中有没类似static的静态方法?
- 为什么我编译时提示出错的行数于实际行数不一样
- 数据赋值问题?
- 在线等待 20分 delphi7.0中 怎么安装mwedit 0.92a 第三方控件啊
- 在DELPHI中如何编写多线程的程序?
- 各位朋友来谈谈dxdbgrid和EPrintSystemSD7控件是否注册问题
- dbchart控件的柱图上所显示的数据为什么一个高一个低。
- 如何将一个类型文件的其中一个记录删除?请指点
- 朋友,请教在delphi中,如何在任务栏添加图标,并使用鼠标右键一点,就可以弹出菜单
- 不支持UNICODE的程序如何使其支持中文?
Create Table Tab1 (
ID Counter,
Name string,
Age integer)