按button1时创建Access数据库及表？

[良鹿]

问题同上，请帮助。
希望有示例。

[DWGZ]

我上次写的一个也许用的上
function CreateAccessDB(ADBName: string): Boolean;
var
CreateAccess: OleVariant;
begin
Result := False;
try
CreateAccess := CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ADBName);
Result := True;
except
Result := False;
end;
end;

创建表简单
with Query1, SQL do
begin
Close;
Clear;
Add('create table yourtable (aa int, bb varchar(10))');
ExecSQL;
end;

[Shiyl]

用SQL建库
create database<database_name>
on[PRIMARY}
[<filespec>[,...n]]
[,<filegroup>[,...]]
[LOG On{<filespec>[,...n]}]
[FOR LOAD | FOR ATTACH]
<filespec>::=
([NAME=logical_file_name,]
FILENAME='os_file_name'
[,SIZE=size][sr]
[,MAXSIZE={max_size|UNLIMITED}]
[,FILEGROWTH=growth_increment])[,...n]
<filegroup>::=FILEGROUP filegroup_name<filespec>[,...n]

SQL建表
CREATE TABLE TestTable
(col1 Char(16),col2 INT.....)

[sy_315]

first : create database
second: create table
建议用adoquery or adodataset

[gselec]

那是创建SQL，要mdb.

[huanglinloverxinyu]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
CreateAccess: OleVariant;
begin
if FileExists(ExtractFilePath(paramstr(0))+'ÎļþÃû.mdb') then
DeleteFile(ExtractFilePath(paramstr(0))+'ÎļþÃû.mdb');
CreateAccess:= CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(paramstr(0))+'ÎļþÃû.mdb');
end;

end.

这是创建数据库的，绝对没问题，至于表嘛，更简单，和sql差不多，只是要注意数据类型，及其长度

[huanglinloverxinyu]

出了点小问题，改正

procedure TForm1.Button1Click(Sender: TObject);
var
CreateAccess: OleVariant;
begin
if FileExists(ExtractFilePath(paramstr(0))+'文件名.mdb') then
DeleteFile(ExtractFilePath(paramstr(0))+'文件名.mdb');
CreateAccess:= CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(paramstr(0))+'文件名.mdb');
end;

end.

[良鹿]

问题没有解决呀

[aceblues]

一共有几十句吧很快学会的

[荣爵]

同意楼上~~

[zgzjbd]

建议学SQL

[boatzm]

mark！找了很久！

[lijinghe1]

以前我是这样实现的，把一个空的ACCESS文件（很小）放入资源文件，创建时另存一下就OK了