cs_JeffC1977
Messages postés926Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention10 septembre 2010
-
6 juil. 2005 à 18:40
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 2008
-
6 juil. 2005 à 23:34
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"