[vb6] prima domanda: datagrid :(

[Novellino85]

Ciao a tutti ragazzi
Sono nuovo e ho molta voglia di imparare e, fatto questo, di aiutare
Ma iniziamo con l'imparare ahaha

Ho iniziato a programmare con vb6 e ho fatto un paio di cosucce carine

Ora volevo iniziare a collegarci i db.

Pensavo di iniziare con il popolare una datagrid.
Ho trovato molti tutorial, ma nessuno mi ha soddisfatto, anche perchè molti mi mostravano come riempirla non da codice, come voglio invece fare io.


So il procedimento più o meno, ma non so come proseguire

Riuscireste a scrivermi o anche darmi il link per una guida???
Però mi servirebbe passo per passo, non per chi già sa abbastanza...

La stringa di connessione la so, la teoria me l'ero studiata abbastanza!

Mi servirebbe popolare la tabella con "SELECT * From Lavorazione Where codAnomalie <> 0"

[Novellino85]

Rieccomi!
Ho trovato la soluzione
Però mi servirebbe un aiuto ulteriore

Devo fare in modo di colorare le righe

Praticamente in una colonna ho un codice.
Se questo codice è diverso da 0 la riga deve essere rossa!
Qualcuno riuscirebbe ad aiutarmi?

Posto il codice:

 Dim rs As New ADODB.Recordset
    Dim szSql As String
    Dim l As ListItem
    Dim i As Long
    
    Lista.ListItems.Clear
    
    On Error GoTo err_hand
    
    szSql = "Select id, data, ora, codAnomalie, Anomalie From Lavorazione"
    rs.Open szSql, connMain, adOpenStatic, adLockReadOnly
    
    If rs.EOF And rs.BOF Then Exit Sub
    
    On Error Resume Next
    
    While Not rs.EOF
    
        Set l = Lista.ListItems.Add
        i = i + 1
        l.Tag = rs!idVernice
        l.Text = i
        Dim myData As String
        Dim myA As String
        Dim myMe As String
        Dim myG As String
        myG = Right(rs!data, 2)
        myMe = Mid(rs!data, 4, 2)
        myA = Left(rs!data, 4)
        myData = myG + "/" + myMe + "/" + myA
        l.SubItems(1) = myData
        
        Dim myOra As String
        Dim myH As String
        Dim myMi As String
        Dim myS As String
        myH = Left(rs!data, 2)
        myMi = Mid(rs!data, 2, 2)
        myS = Right(rs!data, 2)
        myOra = myH + ":" + myMi + ":" + myS
        l.SubItems(2) = myOra
        l.SubItems(3) = rs!codAnomalie
        l.SubItems(4) = rs!Anomalie
        
        If rs!codAnomalie.Value <> 0 Then
                l.SubItems(3).ForeColor = vbRed
        End If
        rs.MoveNext
    Wend


err_hand:

[Novellino85]

Ho aggiunto quell'If alla fine per provare, ma ovviamente non funziona D:

[gibra]

A parte il fatto che hai scritto Datagrid nel titolo ma invece stai usando un ListView...
...scrivere non funziona non significa nulla.
Devi dare qualche indicazione più precisa.

Oltretutto non è corretto scrivere:

Dim rs As New ADODB.Recordset


Ma separare dichiarazione e assegnazione.

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

[Grumpy]

Non devi dichiarare le variabili all'interno del ciclo While...Wend.
Se scrivi On Error Resume Next non scoprirai mai gli errori del tuo codice.