Re: [Programmer-VB]Click datagrid

Tue, 30 May 2006 02:05:48 -0700

datagrid itu kan bind control, jadi setiap kali kita memilih sebaris data di datagrid, otomatis posisi row di recordsetnya akan berpindah ke row yg dipilih di datagrid tadi
(currentrow di datagrid akan sama dg di recordset, atau rs.absolutpositionnya = posisi yg kita pilih datagrid.)
 
karena setiap perubahan di datagrid berarti merubah recordset, kita ga perlu lagi melakukan query ke database u. mendapatkan row yg dipilih di datagrid, cukup ambil data yg ada di recordset saja.
 
cara ini tidak berlaku buat unbind control seperti listview, msflexgrid/mshflexgrid, hanya bs buat bind control kayak datagrid, dbgrid, truedbgrid, gridnya infragistic (ultragrid kalau ga salah) dll.
 
karena posisi recordsetnya sesuai dg yg digrid, jadi cara buat ngambil datanya gampang, di event rowcolchange atau sejenisnya, letakkan kode sederhana buat ngambil data dari recordset spt text1.text = rs.fields(0).value
 
sorry kalimatnya muter2 hehehehe...
n please cmiiw...
 
best regards
[wwn]
 
On 5/30/06, Padu Arsana W <[EMAIL PROTECTED]> wrote:
saya coba bantu ya.

gimana memunculkan data di textbox yg di click di datagrid
Private Sub DataGrid1_Click()
      Text1.text =  DataGrid.Text
End Sub
 
gimana cara mensortir data yg ada di databse berdasarkan row cursor di datagrid
rs.Open "select * from barang where kodebarang = '"&  DataGrid1.text &"' ", cn, adOpenKeyset, adLockOptimistic
untuk lebih jelasnya mending mas googling aja dengan keyword : datagrid,vb
 
 
Semoga membantu
 
Salam,
Padu Arsana iW
 

Hasan Fajar <[EMAIL PROTECTED]> wrote:
maaf saya ingin nanya, gimana memunculkan data di textbox yg di click di datagrid dimana data yg ada di datagridnya di dapat dari database.
permasalahannya gimana cara mensortir data yg ada di databse berdasarkan row cursor di datagrid.
 
ini contoh program yg saya buat :
Private Sub DataGrid1_Click()
dim posisicursor as integer 
posisiscursor = DataGrid1.Row
DataGrid1.ShowWhatsThis
koneksi
rs.Open "select * from barang", cn, adOpenKeyset, adLockOptimistic
If rs.EOF Then
    MsgBox "Data not found", vbInformation, App.Title
Else
    DataGrid1.ShowWhatsThis
    posisicursor = DataGrid1.Row
    Text1 = rs("kodebarang")
    Text2 = rs("namabarang")
    Text3 = rs("jenisbarang")
    Text5 = rs("total")
    Text4.Enabled = True
    Command1.Enabled = True
    Text4.SetFocus
End If
DataGrid1.ReBind
End Sub
 
mohon pencerahan dari teman2.


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke