je ne sais pas mais il m'indique une erreur

Question

voici le code qui ne marche pas:
Dim res As String
Dim con As ADODB.Connection
Dim rs As ADODB.Recorset
Dim s As String
s = ""
s = getSig()
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=" & CurrentUser & ";Password=" & s & ";Data Source=" & Application.CurrentDb.Name & ";Jet OLEDB:System database=\192.168.100.51\Access\bci.mdb"
Set rs = New Recordset
rs.Open "from [bci] select[numBci]"
res = rs.MoveLast
numBci.Text = (Int(res) + 1)
rs.Close
con.Close


je veux récupérer le dernier numéro de de la table bci du champ numBci
mais il m'indique une erreur

lolokun · Answer

Amical Bonjour à toi aussi,

Ta requete rs.open me parait fausse il manque "select *"
On se doute que si tu poses une question ici, cela te génère une erreur donc essaye de préciser un peu le code d'erreur, et où ça bloque pour avoir une aide efficace et rapide.

Et des mots commme bonjour ou je voudrais plutôt que "je veux" sans un merci sont plus appréciés...

L'expérience, c'est une connerie par jour, mais jamais la même..

ahmedmahdibenjemaa · Answer

dsl tu as tt a fait raison j'ai fe la conneri de ne rien dire des parole de politesses
dsl encore et merci bien pour ton aide

pour erreur s'a se produit a la 3eme ligne du code "Dim rs As ADODB.Recorset 
et il m'ecrit: "Erreur de compilation
type difini par l'utilisateur non defini"

merci d'avance

lolokun · Answer

Il faut rajouter la référence (dans le menu Projets - Références, Microsoft AtiveX Data Objects 2.x Library) de ton projet..
Regarde ce petit tutoriel

L'expérience, c'est une connerie par jour, mais jamais la même..

ahmedmahdibenjemaa · Answer

apres avoir verifier j'ai trouve
microsoft AtiveX Data Objects 2.1 Library


et c'ete croche des le debut
dsl pour le derangement

lolokun · Answer

As-tu été voir le lien du tuto que je t'ai envoyé?
Je n'avais pas fait attention, mais il manque un d : 
Dim rs As ADODB.Recordset


L'expérience, c'est une connerie par jour, mais jamais la même..

Calade · Answer

Bonjour,

Dans la mesure du possible prends une version plus récente de la Data Objects Library. La 2.1 était buggué (en plus elle est antédiluvienne).


Calade

Je ne sais pas mais il m'indique une erreur

6 réponses

Votre réponse

Discussions similaires