kl cuma buat filter data, sebenarnya bisa pake cara manual
> save csv file as ms excel (.xls)
> aktifkan data filter (menu data > filter)
> filter datanya sesuai kebutuhan
> select all (CTRL + A)
> paste di new workbook
> save workbook tadi as csv file
tapi kalau mau query dari visual basic, saya biasanya save filenya as excel terus query pake cara ini
'---
Set m_cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With m_cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & sFile & ";Extended Properties=Excel 8.0;" 'sfile adalah string variabel yg berisi alamat lengkap file excelnya
.Open
End With
With rs
.ActiveConnection = m_cn
.Source = "SELECT * FROM [worksheetname] WHERE [fieldname] = '" & sKriteria & "'"
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.Open
End With
Set rs = New ADODB.Recordset
With m_cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & sFile & ";Extended Properties=Excel 8.0;" 'sfile adalah string variabel yg berisi alamat lengkap file excelnya
.Open
End With
With rs
.ActiveConnection = m_cn
.Source = "SELECT * FROM [worksheetname] WHERE [fieldname] = '" & sKriteria & "'"
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.Open
End With
'---
[worksheetname] = nama worksheet-nya disini kenali sebagai nama tabel
[fieldname] = yg dikenali sebagai nama field disini adalah baris/row pertama pada worksheet tersebut, jadi sebutkan nama2 field yg diinginkan di row pertama worksheet, dan jangan isi baris pertama worksheet dg data apapun selain data yg diinginkan sebagai field name.
best regards
[wwn]
On 12/24/05, dale carnegie <[EMAIL PROTECTED]> wrote:
temen2 sy mau tanya. masih berhubungan dg file csv.
gimana caranya membuat perintah query utk selection
data dari file csv ?
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
