Ok kali ini saya bantu code nya. Saya tidak menggunakan ADO melainkan
directly ke EXCEL.dan bisa untuk jumlah record yang variable alias berubah
rubah..silahkan gunakan file tes.xls yang anda kirimkan sebagai test
case.saya sengaja tidak memberikan secara lengkap fungsi - fungsi seperti
yang anda minta agar bisa meng-oprek2 sendir agar benar - benar bisa
mengerti cara kerja code ini..simple banget kok bro
On Error Resume Next
Dim excelApp As Object
Dim excelSheet As Object
Dim row As Long
Set excelApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set excelApp = CreateObject("Excel.Application")
End If
row = 2
excelApp.Workbooks.Open FileName:="C:\tes.xls" ''ubah ke relative path
atau gunakan common dialog
Set excelSheet = excelApp.ActiveSheet
Do
If excelSheet.Cells(row, 1) Is Nothing Then
Exit Do
Else
If excelSheet.Cells(row, 1) = Null Then
Exit Do
ElseIf excelSheet.Cells(row, 1) = "" Then
Exit Do
End If
End If
Dim tmp As String
tmp = ""
For col = 1 To Val(3)
If excelSheet.Cells(row, col) Is Nothing Then
Exit For
Else
If excelSheet.Cells(row, col) = Null Then
Exit For
End If
End If
mvalue = excelSheet.Cells(row, col)
'rutin untuk menampilkan isi setiap row nya -> Fungsi DISPLAY
If col < 3 Then
tmp = tmp & mvalue & " | "
Else
tmp = tmp & mvalue
End If
'Rutin Untuk menambahkan "x" di setiap cell ->Fungsi UPDATE
excelSheet.Cells(row, col) = mvalue & "x"
Next col
'display hasil nya
MsgBox tmp
row = row + 1
Loop
excelApp.ActiveWorkbook.Close True
excelApp.Quit
Set excelSheet = Nothing
Set excelApp = Nothing
Thanks
Salam,
Teguh Santoso
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of acholyte vb
Sent: Saturday, September 29, 2007 12:51 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[email protected]
Subject: [Programmer-VB] Excell Jadi Database
Dear All Member,
Tolongin saya donk, saya punya sampe read data excell spt ini,
Dim cn As New ADODB.Connection
Dim com As New ADODB.Command
Dim rec As New ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\Tes Excell\Tes.xls;" & _
"Extended Properties=Excel 8.0;"
.Open
If rec.State = adStateOpen Then rec.Close
com.CommandText = "Select * from [sheet1$A1:C4]"
com.ActiveConnection = cn
rec.Open com, , adOpenDynamic, adLockOptimistic
rec.MoveFirst
Do While Not rec.EOF
MsgBox rec(0) + rec(1) + rec(2)
rec.MoveNext
Loop
End With
Tapi saya ingin tahu bagaimana cara utk Find, Update dan Delete, Record di
file excell dan looping baca row tapi utk proses looping adalah sebanyak n
kali, karena jumlah record tidak tetap, saya sedang butuh referensi yang
lengkap, pokoknya manipulasi record, karena program yg memakai excell
sebagai database sangat jarang referensi sql query-nya, saya dapat koding
diatas juga, sangat sulit dapatnya, mohon bantuaannya, karena tidak boleh
convert ke database lainnya, Mohon Solusi dan Waktunya, ASAP
Saya pakai Vb 6 + Excel 2003 Prof
Terlampir Attach
Best Regard's
Benny
_____
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
<http://sg.rd.yahoo.com/mail/id/footer/def/*http:/id.answers.yahoo.com/>
Answers
