Dear focusdgtl,
Code yang kamu kirimkan itu keliatannya berfungsi untuk mengurutkan data
berdasarkan kolom yang dipilih.
Kalau untuk koneksinya coba ketikkan syntax berikut :
Dim cn as new adodb.connection
Dim rs as new adodb.recordset
Private sub form_load()
Cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Pantes.mdb;Persist
Security Info=False"
Rs.open "stok", cn, adopenkeyset, adlockbatchoptimistic
With rs
X = 1
Do while not rs.eof
LVTrial.ListItems.Add X, , !BarangID
LVTrial.ListItems(X).SubItems(1) = !JumlahAw
LVTrial.ListItems(X).SubItems(2) = !JumlahMas
LVTrial.ListItems(X).SubItems(3) = !Tanggal
X = X + 1
Rs.movenext
Loop
End with
End sub
Kalau ada errornya betul2in dikit ya ..
Semoga membantu
Best Regards,
Dhani Aristyawan, S.Kom.
EDP Supervisor PT. Trias Sentosa, Tbk.
Desa Keboharan KM 26
Krian - Sidoarjo
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of focusdgtl
Sent: Monday, August 07, 2006 11:37 PM
To: [email protected]
Subject: [indoprog-vb] Re: sort grid
Mas dhani... ( jadi ingat penyanyi juga...)
sorry mas, jangan kapok njawabnya ya
soalnya aku masih awam banget pake vb6
masalah viewnya udah bisa, tapi data tetep nggak keluar ( cara
menghubungkan ke adodcnya?)
codenya kan gini....
Private Sub Dft_HeadClick(ByVal ColIndex As Integer)
Z = Dft.Columns(ColIndex).DataField
Dim rsTmp As New ADODB.Recordset
rsTmp.Source = "select * from M_RawMaterial where (stsDel <> 1) And
(stsOut<>1) ORDER BY " & Z & ""
rsTmp.Open rsTmp.Source, cn, adOpenKeyset, adLockBatchOptimistic
rsTmp.Requery
Set Dft.DataSource = rsTmp
Dft.Refresh
end sub
mis: databaseku namanya pantes.mdb, yg mau ditampilin table stok,
kolom keterangan. yang harus diganti bagian mananya??
trims
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
