怎么用ADO组件创建数据库及表

如何用ADO组件创建数据库及表
RT 知道的帮忙说下，最好有图，有代码，菜鸟求教谢谢了！！！

------解决方案--------------------
好好看看sql，sql语句都可以干

create database
create table
------解决方案--------------------
数据源
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'\fz1.mdb;User ID=admin;Password=;'+'Persist Security Info=true;Jet OLEDB:Database Password=111';
ADOquery1.Connection:= ADOConnection1;
------解决方案--------------------
sql.Text := 'create table tableName(FromUser char(30) not null,TargetUser char(30) not null)';
execsql;
------解决方案--------------------

Delphi(Pascal) code

uses ComObj;
    实现部分：
    procedure TFormOffice.BitBtn1Click(Sender: TObject);
    var
      CreateAccess:OleVariant;
    begin
      CreateAccess:=CreateOleObject('ADOX.Catalog');
      CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco.mdb');
    end;

怎么用ADO组件创建数据库及表

相关推荐