用以下程序创建access数据库,但提示错误,说没有注册类,为何?请赐教uses ComObj;
function CreateDatabase(mDatabaseName: string): Boolean;
var
CreateAccess: OLEVariant;
begin
Result := False;
try
CreateAccess := CreateOleObject('ADOX.Catalog');
try
CreateAccess.Create(Format( //运行到此错误
'Provider=Microsoft.Jet.OLEDB.3.51;Data Source=%s%s.mdb',
[ExtractFilePath(Application.ExeName), mDatabaseName]));
finally
CreateAccess := Unassigned;
end;
except
Exit;
end;
Result := True;
end;
function CreateTable(mDatabaseName: string; mADOQuery: TADOQuery): Boolean;
begin
Result := False;
try
mADOQuery.Close;
mADOQuery.ConnectionString := Format(
'Provider=Microsoft.Jet.OLEDB.3.51;Data Source=%s%s.mdb',
[ExtractFilePath(Application.ExeName), mDatabaseName]);
mADOQuery.SQL.Text := 'CREATE TABLE Table1 (Field1 varchar(10), Field2 varchar(10))';
mADOQuery.ExecSQL;
except
Exit;
end;
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'test.mdb');
CreateDatabase('test');
CreateTable('test', ADOQuery1);
end;
function CreateDatabase(mDatabaseName: string): Boolean;
var
CreateAccess: OLEVariant;
begin
Result := False;
try
CreateAccess := CreateOleObject('ADOX.Catalog');
try
CreateAccess.Create(Format( //运行到此错误
'Provider=Microsoft.Jet.OLEDB.3.51;Data Source=%s%s.mdb',
[ExtractFilePath(Application.ExeName), mDatabaseName]));
finally
CreateAccess := Unassigned;
end;
except
Exit;
end;
Result := True;
end;
function CreateTable(mDatabaseName: string; mADOQuery: TADOQuery): Boolean;
begin
Result := False;
try
mADOQuery.Close;
mADOQuery.ConnectionString := Format(
'Provider=Microsoft.Jet.OLEDB.3.51;Data Source=%s%s.mdb',
[ExtractFilePath(Application.ExeName), mDatabaseName]);
mADOQuery.SQL.Text := 'CREATE TABLE Table1 (Field1 varchar(10), Field2 varchar(10))';
mADOQuery.ExecSQL;
except
Exit;
end;
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'test.mdb');
CreateDatabase('test');
CreateTable('test', ADOQuery1);
end;
解决方案 »
- 利用外网ip建立的ftp服务器需要去工信部备案吗?
- 这个转成时间是多少?
- SQL Server 数据库表异地备份为excel
- delphi向外部程序发磅按键
- bookmark定位的问题
- delphi封装dll传进传出字符串
- ado的奇怪问题
- 难道真的没有人会了吗???????????
- 您好! 查询控件(query)的afterscroll事件?
- 关于原delphi5中使用DsgnIntf.pas,现在delphi6.0中如何修改?
- 请问我的应用程序在最小化的时候,图标已经加入了启动栏里,但任务栏里也有窗体,我想不要任务栏的,该怎么办?
- 用ExcelApp.Cells[1,4].Value := '第一行第四列'来设置单元格内容编译出错
装个MDAC2.7
改为OLEDB.4.0后提示“找不到可安装的ISAM.”
是 Data Source=
而非Data Source=
一个控格之差
绝对谣言
???
try
CreateAccess := CreateOleObject('ADOX.Catalog');
try
CreateAccess.Create(Format( //运行到此错误
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s%s1.mdb',
[ExtractFilePath(Application.ExeName), mDatabaseName]));
//CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\97.mdb');//Persist Security Info=False
finally
CreateAccess := Unassigned;
end;
except
Exit;
end;