[vb6] Riempi Textbox Da Mshflexgrid

[gioviskius]

Ciao popolo di HTML

Vi ringrazio in anticipo per la risposta, tanto so che saprete aiutarmi.

Descrizione: Leggo il mio database e popolo le colonne della MSHFlexGrid. Fin qui tutto a posto.

Domanda: ora vorrei fare questo

****
Doppio click su un record(scelto dall utente), e mi deve popolare le text con i dati di quel record, cosi da predisporre la modifica dei dati.

Come posso fare?
****

Se non sono stato chiaro ditemi

[gibra]

Guarda uno di questi progetti

ProvaLogin
http://nuke.vbcorner.net/Progetti/VB...3/Default.aspx

ADO, Parametri ed affini
http://nuke.vbcorner.net/Articoli/VB...5/Default.aspx

ADO DataProject 2
http://nuke.vbcorner.net/Progetti/VB...8/Default.aspx

Progetti vari: DataGrid_FilterSearch
http://nuke.vbcorner.net/Progetti/VB...9/Default.aspx

[gioviskius]

Non c è quello che cercavo

Ma grazie lo stesso.

[gibra]

Originariamente inviato da gioviskius
Non c è quello che cercavo

Ma grazie lo stesso.

Caspita!
In 15 minuti hai già visto tutto.
Più veloce della luce.

[gioviskius]

si si si si


visto tutto. però ho trovato cose che mi serviranno nel mio progetto

[gibra]

Comunque trovi anche il doppio-clic sulla riga per aprire il form di modifica, ma nei miei progetti è implementato nel DataGrid (invece che con il MSHFlexGrid) ma il concetto è identico.

Se ci guardi con calma vedrai che c'è, dato che io uso solo e sempre questo metodo.

[gioviskius]

OK..

GUARDERO MEGLIO



grazie ancora

[StegcO]

Ho capito cosa cerchi, lo stò facendo io ora, io faccio così:

Private Sub fgd_main_Click()

'##### Controllo se esiste almeno un Record #####

Set Rs = Conn.Execute("SELECT COUNT(*) FROM (" & SQL & ")")

'##### Se esiste popolo le Info #####

If Rs(0) = 0 Then
    Exit Sub
    Else
    ID = fgd_main.TextMatrix(fgd_main.RowSel, 0)
    Call Popola_Info
End If

End Sub

ID è una variabile globale, nel Popola Info non faccio altro che eseguire una SELECT in base all'ID su cui si è cliccato, appunto, e riempire le TextBox coi vari campi.

[gioviskius]

grande

ora provo subito

[gioviskius]

Ciao grande....

allora ho fatto cosi:
__________________________________________________ ___________________________
Private Sub MSHFlexGrid_DblClick()

Set cn = New Connection
cn.CursorLocation = adUseClient

cn.ConnectionString = "PROVIDER=SQLNCLI;SERVER=STEFANO-XP\STEFANO_XP;Database=GestioneRapportini;uid=sa;p wd=stefano;" 'stringa di connessione a sql server 2005
cn.Open
sSql = ""
sSql = sSql & "SELECT COUNT(*)" & vbCrLf
sSql = sSql & "FROM GEST_RAP_UTE" & vbCrLf

Set rs = cn.Execute(sSql)

'##### Se esiste popolo le Info #####

If rs(0) = 0 Then
Exit Sub
Else
ID = MSHFlexGrid.TextMatrix(MSHFlexGrid.RowSel, 0)
Call Popola_info
End If
rs.Close
End Sub
__________________________________________________ ________________________
Sub Popola_info()
Set cn = New Connection
cn.CursorLocation = adUseClient

cn.ConnectionString = "PROVIDER=SQLNCLI;SERVER=STEFANO-XP\STEFANO_XP;Database=GestioneRapportini;uid=sa;p wd=stefano;" 'stringa di connessione a sql server 2005
cn.Open
sSql = ""
sSql = sSql & "SELECT *" & vbCrLf
sSql = sSql & "FROM GEST_RAP_UTE" & vbCrLf
sSql = sSql & "WHERE id = '" & ID & "'"

Set rs = cn.Execute(sSql)

txt_ute.Text = rs!Cod_ute
txt_pas.Text = rs!Password_ute
cbo_tip.Text = rs!tipo_utente


End Sub
__________________________________________________ ___________________________

Il problema è che la variabile "ID" rimane vuota, quindi la select successiva non me la esegue correttamente.

Aiuto