masalah coding DBF-->SQL nya dah kelar.. makasih semuanya..
nambah pertanyaan lg nihh..
Gimana coding kolo kita mo zip file dalam suatu folder mis : dari folder A ke folder B dg vb ? dan secara otomatis isi folder A yg telah di zip td pindah ke folder B
destroyer_maniac <[EMAIL PROTECTED]> wrote:
destroyer_maniac <[EMAIL PROTECTED]> wrote:
ini rumus SQL untuk mengimport data DBF ke SQL SERVER.
Rumus Pertama :
"insert into [NmTabel](Field1,NmField2,NmField3) SELECT
Field1,NmField2,NmField3 FROM OpenDataSource
('Microsoft.Jet.OLEDB.4.0','Data Source=G:\rifa;User
ID=Admin;Password=;Extended properties=DBASE IV')...NamaFileDBF"
Rumus KE 2(Jika Susunan Field Tabel yang di SQLSERVER telah sama
dengan Susunan Field yang ada di DBF):
"insert into [NmTabel] SELECT * FROM OpenDataSource
('Microsoft.Jet.OLEDB.4.0','Data Source=G:\rifa;User
ID=Admin;Password=;Extended properties=DBASE IV')...NamaFileDBF"
Praktek untuk lebih jelas Ke VB NYa :
Dim cn As New ADODB.Connection
Private Sub Import()
If cn.State = 1 Then cn.Close
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;pwd=rm;Initial Catalog=SQL;Data Source=SERVER"
cn.CursorLocation = adUseClient
cn.Execute "insert into [NamaTabel] SELECT * FROM OpenDataSource
('Microsoft.Jet.OLEDB.4.0','Data Source=G:\rifa;User
ID=Admin;Password=;Extended properties=DBASE IV')...Penjualan"
End Sub
Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2ยข/min or less.
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
