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;