我是在里面加了个OpenDialog/SaveDialog然后用它象导入一个新的数据库和保存一个数据库,怎么实现啊???? 就像ACCESS那样!谁有源代码发给小弟好吗???????  最好是ADO用连接实现的!我得谢谢!真的很感谢!!!

解决方案 »

  1.   

    我的是打开,保存的功能相似,记得在保存时将ADOCONNECTION的连接去掉就可以保存了,不然出现独占的提示^_^//使用ADO控件集动态打开ACCESS数据库列程
    //本方法主要面向客户选择目标ACCESS数据库
    //取代弹出的ConnectionString的设置对话框
    //注:ADOTable和ADOQuery控件的连接字串不同
    //著名关心CSDN结贴率爱国人士-实用库Tip No 1 - 2003-9-25
    function FileName_DataBasePassWord(FileName:string; DataBasePassWord:string=''):string;
    begin
    FileName_DataBasePassWord:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                               'User ID=Admin;Data Source='+
                               form1.OpenDialog1.FileName+  //数据库文件路径
                               ';Mode=Share Deny None;Extended Properties="";'+
                               'Jet OLEDB:System database="";'+
                               'Jet OLEDB:Registry Path="";'+
                               'Jet OLEDB:Database Password='+
                               DataBasePassWord+ //数据库密码
                               ';Jet OLEDB:Engine Type=5;'+
                               'Jet OLEDB:Database Locking Mode=1;'+
                               'Jet OLEDB:Global Partial Bulk Ops=2;'+
                               'Jet OLEDB:Global Bulk Transactions=1;'+
                               'Jet OLEDB:New Database Password="";'+
                               'Jet OLEDB:Create System Database=False;'+
                               'Jet OLEDB:Encrypt Database=False;'+
                               'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
                               'Jet OLEDB:Compact Without Replica Repair=False;'+
                               'Jet OLEDB:SFP=False';
    end;procedure TForm1.DynamicOpenAdoAccess_BtnClick(Sender: TObject);
    begin
         form1.OpenDialog1.Filter:='Text files (*.mdb)|*.MDB';
         form1.OpenDialog1.DefaultExt:='MDB';
         form1.OpenDialog1.InitialDir:=application.GetNamePath;
         form1.OpenDialog1.Title:='指定Access数据库Mdb文件的位置';
      if form1.OpenDialog1.Execute then
         begin
         form1.ADOConnection1.LoginPrompt:=false;
         //带密码数据库的使用
         //form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName,'ghyghost');
         //不带密码数据的使用
         form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName);
         form1.ADOConnection1.Open;
         form1.ADOQuery1.open; //ADOQuery1's SQL Properties is 'select * from [tablename]'
         end;
    end;//﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏
    //天天蹬三轮-虽然很累-但很充实
    //﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋