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
