Temen-temen ada yang tahu cara konversi file SQL Server 2000 Ke Excel lewat
modul form VB ?
Mohon bantuannya ! Terima kasih
Dibawah ini saya tuliskan contoh koding program yang masih ada errornya
Private Sub Command1_Click()
konf = MsgBox("Pastikan File Excel Tidak dalam keadaan Terbuka, Jika Siap Klik
OK", vbOKCancel + vbInformation, "Import Excel")
If konf = vbOK Then
Dim x As Excel.Application
Set x = CreateObject("Excel.application")
x.Workbooks.Open FileName:=App.Path & "\DataImport.xls"
x.Sheets("Sheet1").Activate
x.Range("A3").Select
If RsKaryawan.RecordCount <> 0 Then
RsKaryawan.MoveFirst
prg1.Min = 0
prg1.Max = RsKaryawan.RecordCount
For a = 1 To prg1.Max
prg1.Value = a
x.Selection.EntireRow.Insert
x.Range("A3").Value = RsKaryawan.Fields(0)
x.Range("B3").Value = RsKaryawan.Fields(1)
x.Range("C3").Value = RsKaryawan.Fields(2)
x.Range("D3").Value = RsKaryawan.Fields(3)
x.Range("E3").Value = RsKaryawan.Fields(4)
x.Range("F3").Value = RsKaryawan.Fields(5)
x.Range("G3").Value = RsKaryawan.Fields(6)
x.Range("G3").Value = RsKaryawan.Fields(7)
RS.MoveNext
Next a
x.Selection.Sort key1:=x.Range("A3")
x.ActiveWorkbook.Save
x.Application.Quit
MsgBox "Proses selesai"
Set x = Nothing
Set cn = Nothing
Set RsKaryawan = Nothing
End If
End Sub
Private Sub Form_Load()
BukaKoneksi
cn.CursorLocation = adUseClient
Set RsKaryawan = New ADODB.Recordset
StrSql = "select * from tbKaryawan order by 1, 2 asc"
RsKaryawan.Open StrSql, cn, adOpenDynamic, adLockOptimistic
If RsKaryawan.RecordCount <> 0 Then
RsKaryawan.MoveFirst
End If
'Set db = OpenDatabase(App.Path & "\Penjualan.Mdb")
'Set RS = db.OpenRecordset("PenjualanBackup")
End Sub
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
[Non-text portions of this message have been removed]
