Aidez- moi!!!! - VB/VBA/VBS - Programmation
Marsh Posté le 05-08-2002 à 12:32:08
Citation : |
c'est quoi ça ??? depuis quand on met un chemin de base après un FROM ??
et ensuite, les paramètres pour Open sont archi faux !!! t'as lu le MSDN au moins ?
allez, je te file l'article correspondant :
Citation : |
et autre chose : merci de ne pas gueuler !! je viens de me réveiller !!
Marsh Posté le 05-08-2002 à 13:10:30
Merci pour ta réponse.
P.S : Si j'avais MSDN je serais aller voir
Marsh Posté le 05-08-2002 à 13:14:56
Toomslegrand a écrit a écrit : P.S : Si j'avais MSDN je serais aller voir |
Marsh Posté le 05-08-2002 à 00:06:21
Je veux entrer du texte dans la textbox1 et afficher la valeur correspondante dans la texte box2 en passant par une base de données access ( pour la valeur de la textbox2). je remplis donc la textbox 1 et je clique sur un bouton de commande qui devria mù'afficher la valeur dans la textbox2.
Seulement quand je lance le programme il apparait :
"unrecognized database format:chemein de ma base de données"
puis j'ai quand j'appuie sur le bouton de commande:
"Impossible d'utiliser cette connexion pour effectuer cette opération.Elle est fermée ou non valide dans ce contexte"
voila le code:
Dim x As Currency
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM C:\Documents and Settings\Tooms\Bureau\Tirage 1.0\Epalement.mdb "
If Not rs Is Nothing And rs.Recordcount > 1 Then
rs.Movefirst
rs.Find "Hauteur (en cm) = " & CInt(Textbox1.Text) & ""
rs.Movenext
Textbox2.Text = rs.Fields("Hauteur (enHl)" ).Value
End If
Set rs = Nothing
Set cn = Nothing
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "C:\Documents and Settings\Tooms\Bureau\Tirage 1.0\Epalement.mdb"
cn.Open
End Sub
AIDEZ MOI SVP!!! QU'EST CE QUI NE VA PAS DANS MON CODE????