--- xcepotx <[EMAIL PROTECTED]> wrote: > sebelumnya saya ucapkan trima kasih banyak atas > tanggapannya, > sebetulnyakan transact-sql secara otomatis lewat vb > juga bisa kan, > ketika waktu yg kita set = waktu sekarang maka > jalankan scriptsnya > mas eko gitu logika nya. > > tapi masalah yg saya hadapi sebetulnya gimana cara > mendeteksi access > yg akan diimport ke oracle itu sedang dibuka / g. > misal jika access masih dibuka maka muncul message > "Access sedang > dibuka" > > klo untuk import langsung dari oracle nya memang > bisa tapi saya > kesusahan untuk membikin prosedurenya, sehingga ya > pake vb. > > > > > --- In [email protected], "Eko Heri > Susanto" > <[EMAIL PROTECTED]> wrote: > > > mas eko, > > > cara buat script transact-sql bisa otomatis ga? > > > atau pake prg apa gitu? > > > > Mau dibikin otomatis juga bisa, kalo saya sih > biasanya untuk hal2 > > seperti itu tool yg saya pake cuman excel doang, > caranya simple aja > > sih cukup convert datanya dari access ke excel, > trus di excel > tinggal > > nambahin perintah "Insert into namatable (nama > field) values (...) > > selesai deh urusannya :). Atau kalo pingin yg agak > canggih dikit > bisa > > ditambahin macro untuk generate script. Atau kalo > mau bikin dari VB > > gampang sekali tinggal bikin connection ke > database access tsb, > ambil > > data dan simpan di recordset, trus seperti biasa > recordset tsb > > dilooping. Algoritma kira2 seperti ini : > > > > Dim cn As New ADODB.Connection > > Dim rs As New ADODB.Recordset > > Dim strSql As String > > > > cn.ConnectionString = "bla..bla..bla" > > cn.Open > > Set rs = cn.Execute("Select * from namatable") > > While Not rs.EOF > > strSql = strSql & "Insert Into namatable > (field1, field2) Values > > ('" & rs.Field(0) & "','" & rs.Field(1) & "')" & > vbCrLf > > rs.MoveNext > > Wend > > Text1.Text = strSql > > >
Send instant messages to your online friends http://uk.messenger.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hssklhj/M=362329.6886308.7839368.1510227/D=groups/S=1705689267:TM/Y=YAHOO/EXP=1123659056/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992 ">Fair play? Video games influencing politics. Click and talk back!</a>.</font> --------------------------------------------------------------------~-> Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Ikuti juga forum diskusi VB.net dengan mengirim email kosong ke [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
