我保存程序如下, var existfile,newfile:pchar; begin try existfile:='D:\PHS_SYSTEM\PHS.MDB'; if SaveDialog1.Execute then begin self.SaveDialog1.InitialDir:='d:\PHS_SYSTEM'; if self.SaveDialog1.FileName='' then showmessage('文件名不能为空') else begin newfile:=pchar(self.SaveDialog1.filename+'.MDB') ; CopyFile(ExistFile, NewFile, false); 打开程序如下, opendialog1.Filter:='access 数据库 |*.mdb'; if opendialog1.Execute then self.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+opendialog1.FileName; self.ADOConnection1.Connected:=true; ADOTABLE1.Connection:=self.ADOConnection1; ADOTable1.TableName:= 'phs_leader970 '; adotable1.Active:=true; } 但是打开的是ADO ,我的子程序都用BDE 如何连接,谢谢,
有关用法,建议看看书。
然后就可以用ADOQUERY进行操作了啊
COPYFILE 把整个数据库拷贝作为保存,但是我打开只能用ADO,
而我的其他调用的表都是BDE请问如何办,
var
existfile,newfile:pchar;
begin
try
existfile:='D:\PHS_SYSTEM\PHS.MDB';
if SaveDialog1.Execute then
begin
self.SaveDialog1.InitialDir:='d:\PHS_SYSTEM';
if self.SaveDialog1.FileName='' then showmessage('文件名不能为空') else
begin
newfile:=pchar(self.SaveDialog1.filename+'.MDB') ;
CopyFile(ExistFile, NewFile, false);
打开程序如下, opendialog1.Filter:='access 数据库 |*.mdb';
if opendialog1.Execute then
self.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+opendialog1.FileName;
self.ADOConnection1.Connected:=true; ADOTABLE1.Connection:=self.ADOConnection1;
ADOTable1.TableName:= 'phs_leader970 ';
adotable1.Active:=true; }
但是打开的是ADO ,我的子程序都用BDE 如何连接,谢谢,
我的子程序里调用DATABASE ,也都用 TABLE 或 QUERY,怎么办,谢谢,
换adotable,connection换adoconnection,quary换adoquary就可以了。具体
的完全和BDE 一样哦
要做保存和打开
我总有个保存数据和打开吗,我的数据是从仪器里读出来,我直接把它存到作好的表了,但是如何,保存,打开
在用ADO控间实现你所希望得到的数据
ADO里的和QUERY和TABLE还有DATEBASE用法基本相同
我用上面方式合适吗,看看我的程序,
再用ADO里的控间实现功能
ADO的控间和QUERY\TABLE\DATEBASE
的用法基本相同!