[VB6]: Inserimento dati e controllo campi obbligatori

[generationweb.i]

Salve ragazzi ho questo codice per fare l'inserimento dati nel database

Private Sub cmdsalva_Click()
'CONTROLLI PER L'INSERIMENTO CAMPI OBBLIGATORI
If Len(Trim(txtcog.Text)) = 0 Then
MsgBox "Il campo Cognome è obbligatorio", vbInformation
txtcog.SetFocus
ElseIf Len(Trim(txtnom.Text)) = 0 Then
MsgBox "Il campo Cognome è obbligatorio", vbInformation
txtnom.SetFocus
ElseIf Len(Trim(txtrag.Text)) = 0 Then
MsgBox "La ragione sociale è un campo obbligatorio", vbInformation
txtrag.SetFocus
ElseIf Len(Trim(txtind.Text)) = 0 Then
MsgBox "L'indirizzo è un campo obbligatorio", vbInformation
txtind.SetFocus
ElseIf Len(Trim(txtiva.Text)) = 0 Or IsNumeric(txtiva.Text) = False Or Len(Trim(txtiva.Text)) > 11 Or Len(Trim(txtiva.Text)) < 11 Then
MsgBox "Il campo IVA deve essere numerico e di 11 caratteri", vbInformation
txtiva.SetFocus
ElseIf Len(Trim(txttel.Text)) = 0 Or IsNumeric(txttel.Text) = False Then
MsgBox "Il telefono è un campo obbligatorio e numerico", vbInformation
txttel.SetFocus
Else
'apre la connessione al database
ApriConnessione ("INSERT INTO clienti ( nom, cog, ind, rag, ema, iva, tel, tip, zona) VALUES ('" & txtnom.Text & "', '" & txtcog.Text & "', '" & txtind.Text & "', '" & txtrag.Text & "', '" & txtema.Text & "', " & txtiva.Text & "," & txttel.Text & "," & txttip.Text & "," & txtzona.Text & ");")
ChiudiConnessione
'Pulisco i campi
txtnom.Text = ""
txtcog.Text = ""
txtind.Text = ""
txttel.Text = ""
txtiva.Text = ""
txtrag.Text = ""
txttip.Text = ""
txtzona.Text = ""
txtema.Text = ""


End If

End Sub


1) Mi pulisce i campi ma nn mi inserisce nulla nel database
2) Non so come ricaricare la mia combobox con i relativi record inseriti

HELP MEEEEEEEEE

[LMondi]

Ciao generationweb.i
Ti ricordo che devi, prima di tutto, specificare il linguaggio , nel caso VB6, e rendere il titolo del post significativo del tuo problema.
Non capisco se "ApriConnessione" e "ChiudiConnessione" sono delle sub o se hai postato in questo modo per brevità, comunque riporto il codice completo per fare una Insert nel DB; ti consiglio, poi, di usare la funzione Replace per l'inserimento del Nome e Cognome onde evitare errori in dipendenza di apostrofi e/o accenti:

'Inserimento dati nel DB:
    Dim Ogg As New ADODB.Command
    Dim Con As New ADODB.Connection
 
 'Esegue la connessione con il DataBase:
    With Con
        .ConnectionString = DataConnessione
        .CursorLocation = adUseClient   'tipo di cursore
        .Mode = adModeShareDenyNone     'nessuna limitazione
        .CommandTimeout = 15
        .Open
    End With
       
    Ogg.ActiveConnection = Con
    Ogg.CommandType = adCmdText

    Ogg.CommandText = "INSERT INTO clienti (nom, cog, ind, rag, ema, iva, tel, tip, zona)" _
    & "VALUES ('" & Replace(txtnom.Text, "'", "''") & "', '" & Replace(txtcog.Text, "'", "''") & "', '" & txtind.Text & "', '" & txtrag.Text & "', '" & txtema.Text & "',  '" & txtiva.Text & "',  '" & txttel.Text & "',  '" & txttip.Text & "',  '" & txtzona.Text & "');"
    Ogg.Execute

'Chiude la connessione:
    Con.Close
    Set Con = Nothing

[oregon]

Dato che tutto avviene nella Sub ApriConnessione, dovevi mostrare quella ...

[alka]

Originariamente inviato da LMondi
Ciao generationweb.i
Ti ricordo che devi, prima di tutto, specificare il linguaggio , nel caso VB6, e rendere il titolo del post significativo del tuo problema.

Quoto in pieno. Questa volta modifico io, la prossima si chiude.

[generationweb.i]

Apri e chiudi connessione le ho messe nel modulo per la connessione al db e sono due sub separate una per l'apertura e una per la chiusura del db stesso.

Ma come faccio dopo l'insert a ricaricare la combobox???

[generationweb.i]

ok ragazzi mi funziona tutto, l'unica cosa che nn riesco a fare è quella di aggironare ogni volta la combobox esempio

Quando si clicca su salva si aggiungeil record salvato nella combobox e quando si clicca su elimina eliminare dalla combobox il relativo record eliminato....per il resto tutto ok?????

[maxmalici]

ma scusa da dove li prendi i valori della ComboBox?????

creati una Sub CaricaCombo(myCBO as ComboBox)
in cui all'inizio fai una myCBO.clear e poi un ciclo per riempire i campi con .additem

e questa Sub la usi dopo ogni eliminazione o aggiunta di record......

sbaglio???????

Ciao Max