Update ADO VB6 cellule videRésolu

Question

Salut....

Je suis à la recherche du code pour pouvoir faire un update de ma BD même s'il y a des cases vide (textbox.

Si tout mes textbox on du texte mon update fonctionne... Mais si j'ai un texbox qui est vide, le update plante...

Si quelque'un peut m'aider....


Mes variables

Dim Connection As New ADODB.Connection
Dim BD As New ADODB.Recordset
Dim BD2 As New ADODB.Recordset (Est utilsiée pour faire une recherche)


Mon code dans mon Load

'Type de bases de donnée pour la connexion (Pour Acces 2000 (4.0), pour la version 95 et 97 (3.51)
    Connection.Provider = "Microsoft.jet.OLEDB.4.0"
    'Chemin de la base de donnée (APP.PATH permet de ce mettre dans le chemin
    'courant la ou ce trouve le projet)- Paramettrage de la chaine de connection
    Connection.ConnectionString = App.Path & "\LISTE_DE_JOBS.mdb"
    'Ouverture de la connection
    Connection.Open
    'Ouverture de la requête sql dans le recordset
    BD.Open "Select * from GES_TEMPS", Connection, adOpenDynamic, adLockOptimistic
    BDDossier.Open "Select * from [TRAVAUX EN COURS 2005]", Connection, adOpenDynamic, adLockOptimistic

Mon code dans mon Activate

    Set txtTempsDossier.DataSource = BD
    txtTempsDossier.DataField = "DOSSIER"
    Set txtTempsDate.DataSource = BD
    txtTempsDate.DataField = "DATE"
    Set txtTempsTemps.DataSource = BD
    txtTempsTemps.DataField = "TEMPS"
    Set cboEmployes.DataSource = BD
    cboEmployes.DataField = "EMPLOYER"
    Set cboTypeTravail.DataSource = BD
    cboTypeTravail.DataField = "TYPE_TRAVAIL"
 

Et le code pour mon Update

Private Sub cmdUpDate_Click()
    
   BD.Update

End Sub


merci d'avance

cs_frop01 · Accepted Answer

salut,

Changes les propriétés dans access de tes champs 
chaine vide autorisé = oui
Null interdit = faux