kenapa gak pake DTS nya aja ? nanti simpan ke VB Script, nah masukin ke modul di VB, jadi deh
Thanks Ronald Irawan http://www.Foodinvestment.com/?id=ronald_delgeano http://www.agloco.com/r/BBDK9147 Jakarta saripudin hidayat <[EMAIL PROTECTED]> Sent by: [email protected] 24/10/2007 11:33 AM Please respond to [email protected] To [email protected], thebad kalong <[EMAIL PROTECTED]> cc kiki cahyadi <[EMAIL PROTECTED]> Subject [indoprog-vb] Convert File SQL Server 2000 ke Excel 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] [Non-text portions of this message have been removed]
