Kalau Excel sebagai media Database, coba cara ini ;
Dim Rs As New ADODB.Recordset, koneksi_excel As New ADODB.Connection, I As
Integer
sql = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & _
"\Data.xls;extended properties=excel 8.0"
koneksi_excel.ConnectionString = sql
koneksi_excel.CursorLocation = adUseClient
koneksi_excel.Open
For I = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = I
If Rs.State = 1 Then Rs.Close
sql = "insert into [customer$] values ('" & DataGrid1.Columns("KOLOM_1").Value
& _
"','" & DataGrid1.Columns("KOLOM_2").Value & "', '" &
DataGrid1.Columns("KOLOM_3").Value & _
"', '" & DataGrid1.Columns("KOLOM_4").Value & _
"', '" & DataGrid1.Columns("KOLOM_5").Value & _
"', '" & DataGrid1.Columns("KOLOM_6").Value & "', '" &
DataGrid1.Columns("KOLOM_7").Value & "')"
Rs.CursorLocation = adUseClient
Rs.Open sql, koneksi_excel, adOpenKeyset, adLockBatchOptimistic
Next I
Set Rs = Nothing
mungkin ini yang di maksud ??
----- Original Message -----
From: eko santoso
To: [email protected]
Sent: Wednesday, February 07, 2007 12:04 PM
Subject: Re: [indoprog-vb] Re:mengambil data dr excel (untuk kesekian kalinya)
terima kasih ya atas bantuannya :)
kan filenya ada diluar .xls yang saya inginkan adalah kita bisa mengambil
data dari file tersebut sesuai dengan kolom dan baris nya yang telah kita
tentukan sebelumnya di VB....Excel sebagai database
raige banner <[EMAIL PROTECTED]> wrote: Anda ingin menggunakan Excel sebagai
database atau SQL Server sebagai database dengan datanya diambil dari Excel?
Atau hanya untuk mengambil data dari excel untuk ditampilkan diprogram?
---------------------------------
Need a quick answer? Get one in minutes from people who know. Ask your
question on Yahoo! Answers.
[Non-text portions of this message have been removed]
---------------------------------
TV dinner still cooling?
Check out "Tonight's Picks" on Yahoo! TV.
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
