VSUALIZZAZIONE TABELLE

lunedì 25 settembre 2006 - 16.06

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Slave Profilo | Junior Member

101 messaggi | Data Invio: lun 25 set 2006 - 16:06

salve a tutti...volevo chiedere come era possibile,tramite una connessione ADO in vb ad un database access,poter visualizzare nella form un'intera tabella....se è possibile....

fasol Profilo | Junior Member

125 messaggi | Data Invio: gio 28 set 2006 - 12:33

Ovviamente si... fai la connessione e usa una datagrid o una msflexgrid...decidi tu dimmi qlk cosa...

meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....

Slave Profilo | Junior Member

101 messaggi | Data Invio: gio 28 set 2006 - 16:08

Eh....ho provato ad usare un datagrid ma non capisco come inserire i dati...e poi una volta iseriti(mettendo che ci riuscissi.....)come faccio ad agire sui singoli campi modificando anche il database........

fasol Profilo | Junior Member

125 messaggi | Data Invio: lun 2 ott 2006 - 10:33

200_riempire_grid con info into db

Ti mando qlk esempio magari ti chiarisci le idee...

DOPO FAMMI SAPERE ...
ps nn l'ho provato dovrebbe funzionare la funzione più critica è fillUpgrid

meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....

Slave Profilo | Junior Member

101 messaggi | Data Invio: lun 2 ott 2006 - 11:07

emmm....non me lo fa aprire...mi dice che non e possibile aprire la pagina internet perche non e stata trovata...

fasol Profilo | Junior Member

125 messaggi | Data Invio: lun 2 ott 2006 - 11:20

ti metto qui il listato OK...

Private Sub btnRiempi_Click()
Dim conn As ADODB.Connection
Dim rcst As ADODB.Recordset
'inserisco intestazione tabella
Call insertHeader("cmpA,cmpB,cmpC,cmpD", ",", Me.msGrid)
'inserisco informazioni prese da db
Set conn = New ADODB.Connection
Set rcst = New ADODB.Recordset
conn.Open()
rcst.Open
Call fillUpGrid
End Sub

Private Sub insertHeader(s_header As String, s_delimiter As String, msFlexGridX As MSFlexGridLib.MSFlexGrid)
Dim s_v_header() As String
Dim indexCol As Integer
s_v_header = Split(s_header, s_delimiter)
msFlexGridX.Cols = UBound(s_v_header) + 1
msFlexGridX.Row = 0
For indexCol = 0 To UBound(s_v_header)
msFlexGridX.Col = indexCol
msFlexGridX.Text = s_v_header(indexCol)
Next indexCol
End Sub

Private Sub fillUpGrid(rcst As ADODB.Recordset, msgridX As MSFlexGridLib.MSFlexGrid)
Dim indexCol As Integer
Dim indexRow As Integer
indexRow = 1
Do While Not rcst.EOF
msgridX.Row = indexRow
For indexCol = 0 To 3
msgridX.Col = indexCol
msgridX.Text = rcst.Fields(indexCol)
Next indexCol
rcst.MoveNext
indexRow = indexRow + 1
msgridX.Rows = msgridX.Rows + 1
Loop
End Sub

FAMMI SAPERE

meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....

Slave Profilo | Junior Member

101 messaggi | Data Invio: lun 2 ott 2006 - 11:38

OTTIMO!!!! sei un mito!!!!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !