用EditConnectionString(Adoconection1) 

解决方案 »

  1.   

    var DS: string;
    begin
      DS:=ExtractFilePath(Application.ExeName)+'students.mdb';
      sStr := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'
             +'Data Source='+DS+';Mode=Share Deny None;'
             +'Extended Properties="";Locale Identifier=1028;'
             +'Persist Security Info=False;Jet OLEDB:System database="";'
             +'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'
             +'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;'
             +'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
    你说的双引号是多于的啊,这是我现有程序里copy出来的,没有问题。
      

  2.   


    双引号也有用的,如果password为空不用双引号怎么表示啊?