在DELPHI中如何生成ACCESS数据库表 在DELPHI中如何生成ACCESS数据库表 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.CreateMDB(DBName: string); //系统需要安装MADACvar CreateAccess: OleVariant;begin CreateAccess := CreateOleObject('ADOX.Catalog'); CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName);end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, ADODB, comobj, ExtCtrls;type TForm1 = class(TForm) ADO: TADOConnection; ADOQuery1: TADOQuery; Button2: TButton; Button3: TButton; Memo1: TMemo; Image1: TImage; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button2Click(Sender: TObject);var Source,str_sql:string; CreateDB:Variant;begin //判断数据库是否已经存在 if FileSearch('DB.MDB',ExtractFileDir(Application.ExeName)+'\')<>'' then begin Application.MessageBox('数据库已经存在!','提示',64); exit; end; // 创建数据库 Source:=' Provider=Microsoft.Jet.OLEDB.4.0; ' +' Data Source= ' +ExtractFileDir(Application.ExeName) +'\DB.MDB'; try CreateDB:=CreateOleObject('ADOX.Catalog'); CreateDB.Create(Source); Application.MessageBox('数据库创建成功','提示',64); except Application.MessageBox('数据库创建失败','提示',64); end; //创建数据库中的表 ADO.ConnectionString:=Source; ADO.Connected:=true; ADOQuery1.Connection:=ADO; ADOQuery1.Close; ADOQuery1.SQL.Clear; str_sql:=' create table T ( ID char(10) ) '; ADOQuery1.SQL.Add(str_sql); try ADOQuery1.ExecSQL; Application.MessageBox('数据表创建成功','提示',64); except Application.MessageBox('数据表创建失败','提示',64); end;end;procedure TForm1.Button3Click(Sender: TObject);var DBName,s_sql:string;begin//删除数据表 ADOQuery1.Close; ADOQuery1.SQL.Clear; s_sql:=' drop table T '; ADOQuery1.SQL.Add(s_sql); try ADOQuery1.ExecSQL; Application.MessageBox('数据表删除成功','提示',64); except Application.MessageBox('数据表删除失败','提示',64); end;// 删除数据库 DBName:=ExtractFileDir(Application.ExeName)+'\DB.MDB'; try DeleteFile(DBName); Application.MessageBox('数据库删除成功!','提示',64); except Application.MessageBox('数据库删除失败!','提示',64); end;end;end. excel中图表的字体大小怎么设置? 关于interbase注册服务器 一个看似简单,但实际有比较伤神的select语句???? 在线等待!!!急急....如何用OLE操作EXCEL??? 谁有Delphi 7正式版下载地址? 都是98惹的祸(再贴) 想和各位讨论一下c中指针是如何实现动态数组的。 简单的问题 如何在delphi中打开ie文件? 各位兄弟救我,一个很简单的问题害的我好苦 知道一个pchar类型的变量及其长度,如何将它的内容付值给另一个pchar类型的变量呢 关于调用快捷键
var
CreateAccess: OleVariant;
begin
CreateAccess := CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName);
end;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, ADODB, comobj, ExtCtrls;type
TForm1 = class(TForm)
ADO: TADOConnection;
ADOQuery1: TADOQuery;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
Image1: TImage;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button2Click(Sender: TObject);
var Source,str_sql:string;
CreateDB:Variant;
begin
//判断数据库是否已经存在
if FileSearch('DB.MDB',ExtractFileDir(Application.ExeName)+'\')<>'' then
begin
Application.MessageBox('数据库已经存在!','提示',64);
exit;
end;
// 创建数据库
Source:=' Provider=Microsoft.Jet.OLEDB.4.0; '
+' Data Source= '
+ExtractFileDir(Application.ExeName)
+'\DB.MDB';
try
CreateDB:=CreateOleObject('ADOX.Catalog');
CreateDB.Create(Source);
Application.MessageBox('数据库创建成功','提示',64);
except
Application.MessageBox('数据库创建失败','提示',64);
end; //创建数据库中的表
ADO.ConnectionString:=Source;
ADO.Connected:=true; ADOQuery1.Connection:=ADO;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
str_sql:=' create table T ( ID char(10) ) ';
ADOQuery1.SQL.Add(str_sql);
try
ADOQuery1.ExecSQL;
Application.MessageBox('数据表创建成功','提示',64);
except
Application.MessageBox('数据表创建失败','提示',64);
end;end;procedure TForm1.Button3Click(Sender: TObject);
var DBName,s_sql:string;
begin
//删除数据表
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
s_sql:=' drop table T ';
ADOQuery1.SQL.Add(s_sql);
try
ADOQuery1.ExecSQL;
Application.MessageBox('数据表删除成功','提示',64);
except
Application.MessageBox('数据表删除失败','提示',64);
end;// 删除数据库
DBName:=ExtractFileDir(Application.ExeName)+'\DB.MDB';
try
DeleteFile(DBName);
Application.MessageBox('数据库删除成功!','提示',64);
except
Application.MessageBox('数据库删除失败!','提示',64);
end;
end;end.