真的沒人會嗎 (100分)

我查了一下资料，ActiveConnection不能像你那样用法，应该定义ADODB.conncetion对象
然后再赋值，但赋值语句总写不对，你参考一下：
conStr:='Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Engine Type=5;Password="";User ID=Admin;Data Source=E:/db1.mdb';
objADOXDatabase := CreateOleObject('ADOX.Catalog');
objADOConnection:= CreateOleObject('ADODB.Connection');
objADOConnection.ConnectionString:=conStr;
objADOConnection.open;

objADOXDatabase.Set_ActiveConnection(objADOConnection.ConnectionObject);//此处不对

to wfzha 還是不行呀﹐難道就這么難嗎
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord2000,objADOXDatabase,objTable,objPubs,objADOConnection: OLEVariant;
conStr,FileName:String;
begin
conStr:='Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Engine Type=5;Password="";User ID=Admin;Data Source=D:/dao.mdb';
objADOXDatabase := CreateOleObject('ADOX.Catalog');
objADOConnection:= CreateOleObject('ADODB.Connection');
objADOConnection.ConnectionString:=conStr;
objADOConnection.open;

objADOXDatabase.Set_ActiveConnection(objADOConnection.ConnectionObject);//也不行﹐到這邊
end;

不是"/DATA.MDB"这样吧
应该是"/DATA.MDB"

这样就行了
var
MSWord2000,objADOXDatabase,objTable,objADOConnection: OLEVariant;
conStr,FileName:String;
begin
conStr:='Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Engine Type=5;Password="";User ID=Admin;Data Source=E:/db1.mdb';
objADOXDatabase := CreateOleObject('ADOX.Catalog');
objADOConnection:= CreateOleObject('ADODB.Connection');
objADOConnection.ConnectionString:=conStr;
objADOConnection.open;
// objadoxdatabase.Set_ActiveConnection(self.ADOConnection1.ConnectionObject);
objADOXDatabase.ActiveConnection:=(objADOConnection);


end;

to wfzha 真的行了

前两天我怎么试也不行，这两天没看，拿过来一下就行了，有意思

接受答案了.