Newsgroup: it.comp.lang.visual-basic
Titolo: Click su datagrid.....

Oi!
Ho un datagrid che mi visualizza una parte di un record, e vorrei che
clickando su una riga di questo mi visualizzi i dati completi relativi
al record visualizzato in quella riga, ma non ho idea di come fare, 
vorrei aprire una form in cui c'è un data control a cui venga passato
l'ID della chiave primaria del record nella riga su cui si è cliccato
ma non ho idea di come fare, qualcuno può dirmi come fare, per
piacere?
Grazie mille e 
Axè!


wrote:
Magari, pensavo, si potrebbe fare facendo riferire il datagrid sulla
form 2 al controllo adodc che si trova nella form1. Si puň fare?
Grazie mille e...
Axč!

 ha scritto nel messaggio
news:lpb4jv8il826rph06...@4ax.com...

Con la seguente procedura recuperi la riga selezionata nel datagrid. Con
questa vai a recuperare l'ID della tabella per recuperare tutti i campi.
Private Sub DataGrid1_SelChange(Cancel As Integer)
On Error GoTo Hell
        intRow = DataGrid1.Row
Exit_DataGrid1_SelChange:
    Exit Sub
Hell:
    MsgBox Err.Description, vbCritical, "Errore"
End Sub

 Ho un datagrid che mi visualizza una parte di un record, e vorrei che

Con la seguente procedura recuperi la riga selezionata nel datagrid. Con


questa vai a recuperare l'ID della tabella per recuperare tutti i campi.
err scusa, , ma questo come si fa? :)
grazie mille, e
Axè!

 ha scritto nel messaggio
news:hus4jvcj2lcgdpm4n...@4ax.com...


In questo modo recuperi tutti gli altri campi del record selezionato, poi
nel evento load della frmDettagli assegni i contenuti del recordset ai vari
textbox, label,...
Private Sub CmdVisDettagli_Click()
On Error GoTo Hell
Dim rstDettaglio As New ADODB.Recordset
Dim strID,strQuery As String
    '*---------------------------------------------------------------------
    '* Recupero campo chiave visualizzato nel datagrid
    '*---------------------------------------------------------------------
    DataGrid1.Col = 0 'indice della colonna che contiene l'ID chiave
    DataGrid1.Row = intRow 'Varibiabile che contiene l'indice della riga
selezionata
    strID = DataGrid1.Text 'Questo 'La variabile conterra L'id della riga
cliccata
    strQuery="SELECT * FROM T_MYDB WHERE PK_KEY=' " & (strID) & " '
    rstDettaglio.Open strQuery, conn, adOpenKeyset, adLockOptimistic
   'All'interno del recorset ho tutti i dati della riga selezionata
    FrmDettagli.Show
Exit_CmdVisDettagli_Click:


 ha scritto nel messaggio
news:hus4jvcj2lcgdpm4n...@4ax.com...


In questo modo recuperi tutti gli altri campi del record selezionato, poi
nel evento load della frmDettagli assegni i contenuti del recordset ai vari
textbox, label,...
Private Sub CmdVisDettagli_Click()
On Error GoTo Hell
Dim rstDettaglio As New ADODB.Recordset
Dim strID,strQuery As String
    '*---------------------------------------------------------------------
    '* Recupero campo chiave visualizzato nel datagrid
    '*---------------------------------------------------------------------
    DataGrid1.Col = 0 'indice della colonna che contiene l'ID chiave
    DataGrid1.Row = intRow 'Varibiabile che contiene l'indice della riga
selezionata
    strID = DataGrid1.Text 'Questo 'La variabile conterra L'id della riga
cliccata
    strQuery="SELECT * FROM T_MYDB WHERE PK_KEY=' " & (strID) & " '
    rstDettaglio.Open strQuery, conn, adOpenKeyset, adLockOptimistic
   'All'interno del recorset ho tutti i dati della riga selezionata
    FrmDettagli.Show
Exit_CmdVisDettagli_Click:


 ha scritto nel messaggio
news:hus4jvcj2lcgdpm4n...@4ax.com...


In questo modo recuperi tutti gli altri campi del record selezionato, poi
nel evento load della frmDettagli assegni i contenuti del recordset ai vari
textbox, label,...
Private Sub CmdVisDettagli_Click()
On Error GoTo Hell
Dim rstDettaglio As New ADODB.Recordset
Dim strID,strQuery As String
    '*---------------------------------------------------------------------
    '* Recupero campo chiave visualizzato nel datagrid
    '*---------------------------------------------------------------------
    DataGrid1.Col = 0 'indice della colonna che contiene l'ID chiave
    DataGrid1.Row = intRow 'Varibiabile che contiene l'indice della riga
selezionata
    strID = DataGrid1.Text 'Questo 'La variabile conterra L'id della riga
cliccata
    strQuery="SELECT * FROM T_MYDB WHERE PK_KEY=' " & (strID) & " '
    rstDettaglio.Open strQuery, conn, adOpenKeyset, adLockOptimistic
   'All'interno del recorset ho tutti i dati della riga selezionata
    FrmDettagli.Show
Exit_CmdVisDettagli_Click:


 wrote:
Caspita, grazie mille, davvero :D
Cosě mi guardo pure un pň di uso di queries con SQL... :)
Cmq ti faccio sapere se dovessi avere problemi :)
Grazie ancora e ...
Axč!

End Sub
sull' rstDettaglio.Open mi dà errore, dice che 'arguments are of the
wrong tipe, are out of acceptable range or in conflict with one
another'
Perchè? 
Grazie mille e
Axè!

 Perchè?
forse perchè nel tuo db il campo T_MYDB è numerico, mentre racchiudendolo
tra apici nella query tu ricerchi una stringa.
salutoni
sergio

 sergio
oppure, 'strid' lascerebbe pensare a un cod alfanumerico, ma alla query
viene passata una stringa con uno spazio prima e uno dopo. difficile che un
uguale funzioni.
-- 
ciao, j.
http://www.sundaysw.com/google.gif

 difficile che un uguale funzioni.
vero che è difficile che produca risultati utili, ma però non dovrebbe
generare errori :-)
salutoni
sergio