| Author |
Message |
jimboy |
| Location: |
|
Post subject: saving di dua database yang servernya berbeda sekaligus
 Posted: 27/Jan/2008 07:57
|
|
onBeginner
Joined: 27-Jan-2008
Posts: 4
Status: Offline
|
|
buat para kawula tua delphi, mas-mas & mba-mba yang pinter2,
aq punya masalah di delphi and ms-sql server, ada yang tau bagaimana caranya
agar bisa saving di dua table yang sama tapi lokasi table tsb ada di dua database
yang nama server nya berbeda.
aq coba pake perintah :
server2 := 'SERVER_2';
st := 'Insert into '+server2+'.DB_X.DBO.TABLE_X ';
SQL.Add(st);
SQL.Add('(field_a,fieldb) values("a","b") ');
ExecSQL;
dimana perintah ini dijalankan dari query yg tersambung ke server1,
dan muncul error :
Tapi kalo perintah SQL ini, aq coba di MSSQL Server langsung, tidak terjadi error,
mohon pencerahannya, pleeeeeeeeeeeeeeeeaaaaaaaaaaaasssssssssss.....
help me.
trims,
jimboy |
|
|
| |
|
|
|
 |
|
jimboy |
| Location: |
|
|
Post subject: saving di dua database yang servernya berbeda sekaligus
Posted: 27/Jan/2008 08:12
|
|
onBeginner
Joined: 27-Jan-2008
Posts: 4
Status: Offline
|
|
buat para kawula tua delphi, mas-mas & mba-mba yang pinter2,
aq punya masalah di delphi and ms-sql server, ada yang tau bagaimana caranya
agar bisa saving di dua table yang sama tapi lokasi table tsb ada di dua database
yang nama server nya berbeda.
aq coba pake perintah :
server2 := 'SERVER_2';
st := 'Insert into '+server2+'.DB_X.DBO.TABLE_X ';
SQL.Add(st);
SQL.Add('(field_a,fieldb) values("a","b") ');
ExecSQL;
dimana perintah ini dijalankan dari query yg tersambung ke server1,
dan muncul error : MSDTC on server1 is unavailable.
padahal MS DTC service nya sudah START,
tapi aq jg ngga yakin karena dilihat di program files, MS DTC administrative consolenya masih kosong (belum ada linknya).
Tapi kalo perintah SQL ini, aq coba di MSSQL Server langsung, tidak terjadi error,
mohon pencerahannya, pleeeeeeeeeeeeeeeeaaaaaaaaaaaasssssssssss.....
help me.
trims,
jimboy |
|
|
| |
|
|
|
|
|
Bahrul_power |
| Location: |
|
|
Post subject:
Posted: 27/Jan/2008 12:38
|
|
onSkilled
Joined: 17-Jun-2007
Posts: 99
Status: Offline
|
|
Wah minggu2, sepi banget, mo jalan malas, mending browsing aja ah,
sambil ikut jawab permasalahan teman2, siapa tau bisa membantu.
Kalo mau nyimpan database yang servernya berbeda, mending
menggunakan 2 ADOConnection yang masing2 telah ditujukan ke database
di 2 server tersebut. Misalkan ADOConnection1 untuk konek ke server1 dan
ADOConnection2 untuk konek ke server2
Kemudian pada waktu melakukan penyimpanan, seperti contoh ini:
code : pascal With ADOQuery1 do begin Connection:=ADOConnection1; if active=true then close; SQL.clear; SQL.Add('insert into tabel1(nik,nama,alamat) values(:nk,:nm,:al)'); prepared; parameters[0].Value :='0232'; parameters[1].Value :='Iwan'; parameters[2].Value :='Jakarta Selatan'; execsql; end; With ADOQuery1 do begin Connection:=ADOConnection2; if active=true then close; SQL.clear; SQL.Add('insert into tabel1(nik,nama,alamat) values(:nk,:nm,:al)'); prepared; parameters[0].Value :='0232'; parameters[1].Value :='Iwan'; parameters[2].Value :='Jakarta Selatan'; execsql; end;
 Moga membantu; |
|
|
| |
|
|
|
|
|
barcodebima |
| Location: |
|
|
Post subject:
Posted: 28/Jan/2008 01:39
|
|
onIntermediate
Joined: 12-Jan-2007
Posts: 43
Status: Offline
|
|
mungkin seting user di kompnya belum diset.......
coba deh......  |
|
|
| |
|
|
|
|
|
jimboy |
| Location: |
|
|
Post subject:
Posted: 31/Jan/2008 22:17
|
|
onBeginner
Joined: 27-Jan-2008
Posts: 4
Status: Offline
|
|
Trim's mas, tapi saya pake bde, ngga pake ado, tolong dong, tengkiu.
katenye harus buat multi tier database application biar cepet, apa betul segitu rumitnya mas... ?
mohon petunjuknya, mas. |
|
|
| |
|
|
|
|
|
Bahrul_power |
| Location: |
|
|
Post subject:
Posted: 01/Feb/2008 08:22
|
|
onSkilled
Joined: 17-Jun-2007
Posts: 99
Status: Offline
|
|
Kalo pakai BDE pakai aja 2 komponen Database yaitu Database1 untuk Server1 dan Database2 untuk Server2, sebelumnya bikin 2 Alias terlebih dahulu misalkan DBServer1 dan DBServer2 kemudian gunakan Query untuk eksekusinya
code : pascal With Query1 do begin DatabaseName:=Database1; if active=true then close; SQL.clear; SQL.Add('insert into tabel1(nik,nama,alamat) values(:nk,:nm,:al)'); prepare; params[0].Value :='0232'; params[1].Value :='Iwan'; params[2].Value :='Jakarta Selatan'; execsql; end; With Query1 do begin DatabaseName:=Database2; if active=true then close; SQL.clear; SQL.Add('insert into tabel1(nik,nama,alamat) values(:nk,:nm,:al)'); prepare; params[0].Value :='0232'; params[1].Value :='Iwan'; params[2].Value :='Jakarta Selatan'; execsql; end;
|
|
|
| |
|
|
|
|
|
|
|
