[VB] Rappresentare dei dati in una tabella

[Dave83]

Io devo rappresentare dei dati in una tabella composta da 4 colonne, 2 prese da un database, 1 presa da un altro database e 1 in cui assegno io i valori nel sorgente Vb in base a delle condizioni

Ho provato con un oggetto DBGrid ma non capisco come modificare i dati nel sorgente...riesco a mettere un database nella Grid ma nn a modificare un singolo campo.

Qualcuno sa dirmi che istruzioni servono x modificare un campo? (nei database è .recordset("nomecolonna") = "valore") E anche come spostarti al suo interno (per scegliere un altro campo da modificare)?

Oppure sapete consigliarmi un'altro oggetto con cui rappresentare i dati con le relative funzioni di modifica e spostamento (ho visto ke ci sn molte altre tabelle)?

La cosa migliore sarebbe una tabella dove posso rappresentare questi dati ed evidenziare con un colore i record ke soddisfano un requisito.....ma questo è opzionale

p.s: sn alle prime armi di vb

help!

[amodio]

conqusto puoi caricare un msflexgrid

Private Sub Caricagriglia()

'RECORDSET APERTO
If Source = "" Then
   MsgBox "Inserire almeno un dato", vbCritical, App.Path
   Unload Me
   Exit Sub
End If

Set GrsContatti = New ADODB.Recordset
    GrsContatti.Open Source, Csource


Lriga = 1
    
   Do While GrsContatti.EOF = False
        
        Me.FXG_Griglia.Rows = Me.FXG_Griglia.Rows + 1
        Me.FXG_Griglia.Row = Lriga
            
             Me.FXG_Griglia.Col = 0
             Me.FXG_Griglia.Text = GrsContatti("codid")
             
             Me.FXG_Griglia.Col = 1
             Me.FXG_Griglia.Text = GrsContatti("NOMINATIVO")
             
             Me.FXG_Griglia.Col = 2
             Me.FXG_Griglia.Text = GrsContatti("datanascita")
             
             Me.FXG_Griglia.Col = 3
             Me.FXG_Griglia.Text=GrsContatti("luogonascita")            
                  
              
          Lriga = Lriga + 1
        Me.FXG_Griglia.Row = Me.FXG_Griglia.Row + 1
   
       GrsContatti.MoveNext   
       
   Loop
    GrsContatti.Close
End Sub
Private Sub settaVariabili()   
        
         
        Me.FXG_Griglia.Col = 0
        objContatti.LcodID = Trim(Me.FXG_Griglia.Text)
        Me.out_LcodID = Me.FXG_Griglia.Text
        'variabile controllo
        
        Me.FXG_Griglia.Col = 1
        objContatti.Snominativo = Trim(Me.FXG_Griglia.Text)
        
        Me.FXG_Griglia.Col = 2
        objContatti.DataNascita = Trim(Me.FXG_Griglia.Text)
        
        Me.FXG_Griglia.Col = 3
         objContatti.SLuogoNascita = Trim(Me.FXG_Griglia.Text)
         
        Me.FXG_Griglia.Col = 4
        objContatti.Sindirizzo = Trim(Me.FXG_Griglia.Text)
        
               
        
End Sub

fai bene att3enzione e leggi mlto piano xche mi sa che ti ho spedito
troppo codice
allora
prima setto le colonne, poi carco una riga alla volta
fino ad esaurimento rige del database

con un po' di pazienza riuscirai anche a caricare pezzi che voui tu che nn sono di un database