Betul juga Bang,,, Kenapa tidak kepikir sampe kesitu ya .. :D Thanx banget Bang
2009/1/29, aksan kurdin <[email protected]>: > main logika saja, > yang konek ke db1 kasi prefix di nama table jadi misalnya: db1_tabel1, > db1_tabel2, db1_tabel3 .... db1_tabeln > yang konek ke db2 kasi prefix di nama table jadi misalnya: db2_tabel1, > db2_tabel2, db2_tabel3 .... db2_tabeln > nanti dari script bisa di kondisikan dengan for each nya: > > for each td in db.tabledefs > select case left(td.name,4) > case "db1_": > td.connect = ";DATABASE=" & NewConString1 > td.RefreshLink > case "db2_": > td.connect = ";DATABASE=" & NewConString2 > td.RefreshLink > end select > next td > > > aksan kurdin > > 2009/1/29 Teguh JAP <[email protected]>: >> Bang Aksan dan Guru2 yg laen >> Saya sudah coba utak atik lagi neh, dan hasilnya sukses.. >> >> For Each td In db.TableDefs >> If td.Name = "BELI" Or td.Name = "JUAL" Or td.Name = "STOCK" or >> ... or... or.. (s.d 50 X ) Then >> td.Connect = ";DATABASE=" & NewConString1 >> td.RefreshLink >> ElseIf td.Name = "MASTER" or ... or... or.. (s.d 50 X) Then >> td.Connect = ";DATABASE=" & NewConString2 >> td.RefreshLink >> End If >> Next td >> >> Hanya saja tetap kita harus menuliskan nama-nama tabelnya ya ... >> Kalo 50 tabel tetap saja ditulis 50 tabel tsb, weks... :(( >> >> Ada yg lebih sederhana ga ?? >> Thx >> >> Pada tanggal 29/01/09, Teguh JAP <[email protected]> menulis: >> >>> Bang Aksan, Bang Haer, Bang Edi, dan para Abang Guru yg lain >>> >>> Saya sudah coba, dan tidak ada error.. >>> Tapi kok linknya tidak berubah.. >>> Apa ada penulisan kode yg salah >>> Bersama ini saya lampirkan filenya >>> >>> ThanX >>> >> >> > > > > -- > Aksan Kurdin >
