 Kode : Dim db As New ADODB.Connection Dim Rs As New ADODB.Recordset Private Sub Command1_Click() Sql = "--------- CATATAN TABEL A ADALAH PENAMPUNG KE 2 DATABASES ACCESS" & _ " USE PUBS " & _ " DELETE FROM A " & _ " INSERT INTO A SELECT Kd_brg,Nama_brg FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','C:\DB1.MDB';'admin';'', Table1) " & _ " INSERT INTO A SELECT Kd_brg,Nama_brg FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','C:\DB2.MDB';'admin';'', Table1) " & _ "-------- HASIL GABUNGAN DATABASES ACCESS DB1.MDB & DB2.MDB " Set Rs = db.Execute(Sql) Set Rs = db.Execute("SELECT * FROM A") Set DataGrid1.DataSource = Rs End Sub Private Sub Form_Load() Set db = New ADODB.Connection db.CursorLocation = adUseClient db.Provider = "sqloledb.1" db.Properties("DATA SOURCE").Value = "(local)" db.Properties("Initial Catalog").Value = "PUBS" db.Properties("USer Id").Value = "sa" db.Properties("Password").Value = "" db.Open End Sub Tx Robin Sbr |
