Discussion :

[bruce207]

Bonjour,
1) j'ai tapé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim str As String
If rst.State <> adStateClosed Then rst.Close
str = " SELECT * FROM demande where mat_d = '" & Text1.Text & "'"
rst.Source = str
rst.Open

Mais le débogeur s'arrete à la ligne en rouge et m'affiche le message suivant :
Erreur d'exécution '3709'
impossible d'utiliser cette connexion pour effectuer cette opération. Elle est fermée ou non valide dans ce contexte.
Pourtant j'ai utilisé ce code ailleurs et ça marchait. Je ne comprends pourquoi j'ai cette erreur.
2) sur une autre feuille quand j'essaye d'inserer un nombre décimale dans ma base de donnée (access) j'ai le message d'erreur suivant :
Erreur d'exécution '-2147217913(800e07)'
Type de données incompatible dans l'expression du critère
Pourtant le champ qui recoit cet enregistrement est defini à Numérique et réel double, je comprends pas également.
Merci d'avance pour votre aide.

[ProgElecT]

1)
Moi, perso je ne sais pas faire comme cela, je pratique de cette façon,
sachant que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'ref. Microsoft ActiveX Data Objects 2.0 Library
Public CheminDataBase As New ADODB.Connection
Public OuEtLaBD As String

CheminDataBase est valide de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
OuEtLaBD = "C:\MonDossierBD\MabaseDeDonn.mdb"
CheminDataBase.CursorLocation = adUseClient: CheminDataBase.Mode = adModeReadWrite
CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & OuEtLaBD & ";"

Je tenterai sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
str = "demande WHERE mat_d = '" & Text1.Text & "'"
rst.Open str, CheminDataBase, adOpenStatic, adLockOptimistic
If rst.EOF Then MsgBox "Impossible d'ouvrire la table" : exit sub

A savoir, éviter (proscrire) de nommer une variable str, car str est un mot reservé de VB
Function Str(Number), Membre de VBA.Conversion, Renvoie une chaîne représentant un nombre.

Pour le 2), met nous la ligne de code, avec si peu de renseignement, on va te parler des ennuis que l'on a avec notre boulle de cristal

[bruce207]

Bonsoir,
merci il manquait quelque informations à mon recorset, maintenant ca va.
pour le 2) le probleme venait du fait que j'avais mis des cotes et maintenant aussi ca va