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
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
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-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/
