Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Membuat Koneksi ADO di Delphi

Share on :
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;  

2 komentar on Membuat Koneksi ADO di Delphi :

dikrivan mengatakan... 31 Mei 2011 pukul 05.17

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

Deni mengatakan... 2 Agustus 2011 pukul 15.31

ok...keep koment jg y :p

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini