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!
Answers
Tes.xls
Description: 2417687534-Tes.xls
