Rekan Benny, Saya dulu pernah bikin seperti itu untuk diclient, mhn maaf source-nya belum bisa diberikan karena PC saya habis diformat kena virus. Logikanya adalah, pastikan sheet tsb berisi data konstan. Umpama baris 1 adalah nama field, maka di baca mulai dari baris 2 sampai ke n. Misal kolom A adalah PK-nya, maka dikolom A adalah not null. Baca mulai dari baris 2 hingga isi dari baris n kolom A berisi data alias tidak null. Bila null, exit for. Bila find , saat membaca baris tsb bandingkan antara isi dengan kunci pencarian , bila sama berarti ketemu dan lakukan update, delete atau lainnya.
Mhn maaf bila kurang berkenan. Salam, Nyom2 ----- Original Message ----- From: acholyte vb To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; [email protected] Sent: Saturday, September 29, 2007 12:50 AM 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! Answers ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.13.33/1036 - Release Date: 9/28/2007 3:40 PM
