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 ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hov0tbr/M=362329.6886308.7839368.1510227/D=groups/S=1705689267:TM/Y=YAHOO/EXP=1123656435/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/
