Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Membuat Koneksi ADO di Delphi ...

Untuk mempermudah dalam meng koneksi database acsess,alangkah baiknya kita membuat procedure koneksinya. Sehingga dengan mudah kita memanggil database tersebut sesuai keberadaan file mdb di mana dia berada, tidak terbentur masalah path databasenya..

Koneksi yang di gunakan Microsoft.Jet.OLEDB.4.0

  1. procedure TFConnection.buka(sfile:string);  
  2.   
  3. var s:string;  
  4.   
  5. begin  
  6.   
  7. s:='Provider=Microsoft.Jet.OLEDB.4.0'+  
  8.   
  9. ';User ID=Admin;Data Source='+sFile+  
  10.   
  11. ';Mode=Share Deny None;Extended Properties=""'+  
  12.   
  13. ';Jet OLEDB:System database=""'+  
  14.   
  15. ';Jet OLEDB:Registry Path=""'+  
  16.   
  17. ';Jet OLEDB:Database Password=""'+  
  18.   
  19. ';Jet OLEDB:Engine Type=5'+  
  20.   
  21. ';Jet OLEDB:Database Locking Mode=1'+  
  22.   
  23. ';Jet OLEDB:Global Partial Bulk Ops=2'+  
  24.   
  25. ';Jet OLEDB:Global Bulk Transactions=1'+  
  26.   
  27. ';Jet OLEDB:New Database Password=""'+  
  28.   
  29. ';Jet OLEDB:Create System Database=False'+  
  30.   
  31. ';Jet OLEDB:Encrypt Database=False'+  
  32.   
  33. //';Jet OLEDB:Don't Copy Locale on Compact=False'+  
  34.   
  35. ';Jet OLEDB:Compact Without Replica Repair=False'+ 
  36.  
  37. ';Jet OLEDB:SFP=False'; 
  38.  
  39. ADOConnection1.Close; 
  40.  
  41. ADOConnection1.ConnectionString:=s; 
  42.  
  43. ADOConnection1.LoginPrompt:=false; 
  44.  
  45. ADOConnection1.Open; 
  46.  
  47. end; 
  48.  
  49. Adapun cara pemanggilanya : 
  50.  
  51. bisa menggunakan event form show,creat,atau active. 
  52.  
  53. contoh : 
  54.  
  55. procedure Tform1.FormShow(Sender: TObject); 
  56.  
  57. begin 
  58.  
  59. buka('c:\database.mdb'); // Lokasi database  
  60. end;  

Tagg :

2 Reply :

  1. hehehehe mumet pak....
    terus sharing ye buat luasin ilmu

    BalasHapus
  2. ok...keep koment jg y :p

    BalasHapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.