[vb6]verifica dati database

[h2mac]

ciao a tutti

potrei avere un piccolo aiuto?
mi sono fermato su una parte
praticamente ho un programma con tre form
nel terzo form ci sono delle texbox che inviano i dati al data base
vorrei che nel primo form nel pulsante che carica la pagina form3

capisse che nel database ci sono gia i dati e che quindi mi caricase il form 2 anziche il form3 mi dite come si fa?mi sono ammattito in giro ma non è che sia chiarissima la cosa...

grazieeee infinite

[Sypher]

na cosa del genere? mettiamo la condizione sia verificata, ovviamente quello sarebbe il form_load del Form3

Private Sub Form_Load()
    condizioneDB = True
    If condizioneDB = True Then
        Unload Me
        Form2.Show
    End If
End Sub

[h2mac]

ciao grazie per l'aiuto
pero mettendo il codice che mi hai dato mi carica il form 2 anche se il data base è vuoto.

io vorrei che tramite il pulsante nel form due mi rimandasse la pagina form 2 in caso ci siano dati sul form viceversa se non ci sono dati carichi il form 3

scusami tanto ma sono nuovo

[Sypher]

io mio codice nn ce lo devi mettere così com'è, per come l'ho scritto io ti rimanderà sempre al form2
il codice che ti interessa è solo questo

If condizioneDB = True Then
        Unload Me
        Form2.Show
    End If

condizioneDB lo devi ottenere tu, poi rtamite quell if se la condizione è vera ti manda al form2 altrimenti carica il form3

[h2mac]

grazie ora ho capito pero' mi sorge un altro problema. praticamente ho creato un data base e l'ho portato al 97 comedice la guida, ora sul form ho inserito il comando data e sul pulsante salva come dicela guida ho scritto

data1.recordset.addnew

pero' se nel data base non ho almeno un recod mi da errore quindi tutta la trafila con cui mi hai aiutato prima non serve piu' perche praticamente ho sempre un record scritto.

come risolvo?come mai mi da errore se il data base è vuoto?

grazie infinite

[LMondi]

Ciao h2mac,
anch'io in un programma che sto realizzando devo verificare se una, o diverse, Tbl del DB Access ha record salvati o è vuota. Il problema l'ho risolto in questo modo (ti posto il codice per un solo record, ma potrai effettuare la verifica anche su più recod con il comando Move):
- in un modulo bas dichiaro una o più variabili byte Pubbliche;
- faccio la connessione con il DB e un'operazione di Select
- il tutto in una routine Public, in modo che le predette variabili possano essere viste in qualsiasi posizioni mi trovi.

Code:

Public Sub RiscontroCD()
On Error Resume Next

Dim ConCD1 As New ADODB.Connection
Dim RSTcd1 As New ADODB.Recordset

'Esegue la connessione con il DataBase TblPippo:
With ConCD1
.ConnectionString = DataConnessione
.CommandTimeout = 15
.Open
End With

RSTcd1.Source = "SELECT Totale FROM TblPippo;"
RSTcd1.Open , ConCD1, adOpenDynamic

RSTcd1.Move (1)
sglRiscCosti1 = RSTcd1("Totale")
If sglRiscCosti1 > 0 Then
byRiscCosti2 = 1
Else
byRiscCosti2 = 0
End If

'Chiude e cancella il recordSet:
RSTcd1.Close
Set RSTcd1 = Nothing
'Chiude e cancella la connessione:
ConCD1.Close
Set ConCD1 = Nothing
End Sub

Fine CODE

In questo modo se il record selezionato con Move(1) del Campo Totale della TblPippo è vuoto o è uguale a 0, o la Tbl non ha records, la variabile sglRiscCosti1 sarà vuota "" o uguale a 0 e di conseguenza la variabile byRiscCosti2 sarà = 0. Nel caso opposto sarà = 1.
Avendo acquisito l'informazione necessaria, poi potrai fare le tue scelte.
Ciao.