para master, tolong bantuin saya. butuh pencerahan segera neh. Queri1 mengarah ke MS SQL 2000 Queri2 Mengarah ke MySql gimana caranya memecah 1 filds hasil queri1 menjadi 3 field biar bs insert ke MySql trs gimana caranya sebelum insert tabel yg di mysql di cek dulu, bila ada maka di update sesuai dengan hasil queri 1, makasih sebelumnya

@Alfando: ...butuh pencerahan segera neh. Queri1 mengarah ke MS SQL 2000 Queri2 Mengarah ke MySql[/quote:1c5a52356d]dikau harus buat 2 data connection, dimana connection1 mengarah ke mySQL-nya, dan satu lg ke msSQL, pergunakan sesuai maksud kebutuhan dikau. [quote:1c5a52356d="Alfando"]gimana caranya memecah 1 filds hasil queri1 menjadi 3 field biar bs insert ke MySql[/quote:1c5a52356d]nah klo yg ini ane kurang paham maksud 1fields menjadi 3fields.. [quote:1c5a52356d="Alfando"]trs gimana caranya sebelum insert tabel yg di mysql di cek dulu, bila ada maka di update sesuai dengan hasil queri 1, makasih sebelumnya

banyak cara utk bisa mengetahui ada apa tdknya sebuah data, bisa pake cara index dg metode findkey(), bisa dg cara locate() ato bisa pake query lg,

query.sql.add('select * from table where fieldsygdicari = '+quotestr(query1.fieldbyname('namaygdicari').asstring);
query.open;
if query.recordcount<=0 then
   showmessage('datanya sudah ada)
else shomessage('datanya belum ada');

xixixi... setelah terposting, kurang tanda kutif dan kurang huruf w utk yg dibawah

database sudah terkonek boz. maksutnya output queri di MS SQL 1 fields, tapi di table mysql 3 fields. (contoh di ms sql fields nomer_polisi=B1234BMW, di mysql nomer_polisi1=B, nomer_polisi2=1234 nomer_polisi3=BMW) biar hasil queri di mysql bisa langsung di insert ke mysql caranya gima, trs sebelum insert di tabel mysql d cek dulu sudah ada apa belum, jika sudah ada maka update, kalo belum insert.

misalnya table ini namanya TableMySQL n cuma punya 3 filed doank. query1.Close; query1.SQL.Clear; query1.SQL.add('insert into TableMySQL values(:a,:b,:c)'); query1.Prepared := true; query1.Params[0].Value := copy('B1234BMW',0,1); // ngambil string B query1.Params[1].Value := copy('B1234BMW',1,4); // ngambil string 1234 query1.Params[2].Value := copy('B1234BMW',4,3); // // ngambil string BMW query1.ExecSQL;

ok deh, trs gimana caranya membandingkan 2 data, jika di table mysql sudah makan update, kalo belum insert

@Alfando: ok deh, trs gimana caranya membandingkan 2 data, jika di table mysql sudah makan update, kalo belum insert

Walah piyee.. kumaha kunaon jadi bingung bilangnya, kan udah dikasi tau diatas.. byk cara sesuai dg kemampuan dikau ber-iang2 ria.. coba baca lg yg diatas itu

// di tabel MySql ada field nopola, nopolb, nopolc, gabungan dari 1 fields hasil query ms sql Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('proses ambil data di MS SQL 2000') Query1.Open; while not Query1.Eof do begin PisahNopolJadi3(Query1.fieldbyname('no_polisi').asstring, A1,A2,A3); (procedure pisah nopol dah jadi) with ZQuery1 do begin Close; SQL.Clear; SQL.Add('select * from alfa where nopola=''A1'' and nopolb=''A2'' and nopolc=''A3'' '); Open; if ZQuery1.RecordCount <=0 then Close; SQL.Clear; SQL.Add('delete alfa where nopola=''A1'' and nopolb=''A2'' and nopolc=''A3'' '); ExecSQL; // Proses insert data ke Server SMS database MySql Close; SQl.Clear; SQL.Add(' proses insert ke mysql sudah jadi') ExecSQL;

bingung aku boz, gimana solusinya?

misalnya table ini namanya TableMySQL n cuma punya 3 filed doank. query1.Close; query1.SQL.Clear; query1.SQL.add('insert into TableMySQL values(:a,:b,:c)'); query1.Prepared := true; query1.Params[0].Value := copy('B1234BMW',0,1); // ngambil string B query1.Params[1].Value := copy('B1234BMW',2,4); // ngambil string 1234 query1.Params[2].Value := copy('B1234BMW',6,3); // // ngambil string BMW query1.ExecSQL;