procedure CreateDatabase(varMDBFile);
var
ADOXCatalog:Variant;
ConnString:String;
begin
ConnString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+'Data Source='+varMDBFile;
{创建数据库}
ADOXCatalog:=CreateOleObject('ADOX.Catalog');
//创建 ADOX.Catalog 对象
ADOXCatalog.Create(ConnString);
//生成数据库文件
ADOXCatalog:=Unassigned;
end;
procedure CreateODBC(varODBCName,varMDBName:String);
var
reg:TRegistry;
begin
reg:=TRegistry.Create();
//创建 TRegistry 对象
reg.RootKey:=HKEY_LOCAL_MACHINE;
//设置根目录
if reg.OpenKey('SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources',True) then
//打开指定路径
begin
reg.WriteString(varODBCName,'Microsoft Access Driver (*.mdb)');
reg.CloseKey;
end;
if reg.OpenKey('SOFTWARE/ODBC/ODBC.INI/'+varODBCName,True) then
begin
reg.WriteString('DBQ',varMDBName);
reg.WriteString('Description','说明一');
reg.WriteString('Driver','C:/WINDOWS/System32/odbcjt32.dll');
reg.WriteInteger('DriverId',$19);
reg.WriteString('FIL','MS Access;');
reg.WriteInteger('SafeTransactions',$0);
reg.WriteString('UID','');
reg.CloseKey;
end;
if reg.OpenKey('SOFTWARE/ODBC/ODBC.INI/'+varODBCName+'/Engines',True) then
reg.CloseKey;
if reg.OpenKey('SOFTWARE/ODBC/ODBC.INI/'+varODBCName+'/Engines'+'/Jet',True) then
begin
reg.WriteString('ImplicitCommitSync','Yes');
reg.WriteInteger('MaxBufferSize',$800);
reg.WriteInteger('PageTimeout',$5);
reg.WriteInteger('Threads',$3);
reg.WriteString('UserCommitSync','Yes');
reg.CloseKey;
end;
reg.Free;
//释放 TRegistry
end;
procedure CreateDataTable(AmdbFile:String);
var
ADODBConnection:Variant;
ConnString:String;
begin
ConnString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+'Persist Security Info=False;'
+'Data Source='+AmdbFile;
ADODBConnection:=CreateOleObject('ADODB.Connection');
//创建 ADODB.Connection
ADODBConnection.Open(ConnString);
//连接数据库
ConnString:='CREATE TABLE InfoManu([ManuID] BYTE, [ManuName] CHAR(50))';
ADODBConnection.Execute(ConnString);
//
ADODBConnection.Close;
//断开数据库
ADODBConnection:=Unassigned;
end;
