Je crois que j'ai fais la boulette

Bonjour à la communauté,

Voila, j'ai fait une boulette, j'ai converti la base de données de ma boite pour passer d'un access 97 à access 2000.

Probléme, dao 3.51 ne supporte pas ce format et dao 3.61 (qui le supporte) me fout une m.... noire dans mon code genre :

dim rs as recordset

sql = "SELECT user.passwd,user.acces FROM USER WHERE user.login='" + txtUserName.Text + "';"

Set db = OpenDatabase(dbname, False, True, "; pwd=admin")

db.connect = "ODBC;DATABASE=Accueil.mdb;UID=admin; PWD=admin;DSN = ODBC;LOGINTIMEOUT=15"

Set rs = db.OpenRecordset(sql, dbOpenDynaset) 'dbSQLPassThrough)

la derniére ligne me génére une erreur d'objet ou bloc with non défini alors qu'avant ca passait comme une lettre à la poste !

Des idées ??

SOHET Morgan
C.N.P.O. - Le Belloy

Pascal Laurençon

Dis moi tu y tenais à ta place de travaille ??

-------------------------------
Réponse au message :
-------------------------------

> Bonjour à la communauté,
>
> Voila, j'ai fait une boulette, j'ai converti la base de données de ma boite pour passer d'un access 97 à access 2000.
>
> Probléme, dao 3.51 ne supporte pas ce format et dao 3.61 (qui le supporte) me fout une m.... noire dans mon code genre :
>
> dim rs as recordset
>
> sql = "SELECT user.passwd,user.acces FROM USER WHERE user.login='" + txtUserName.Text + "';"
>
> Set db = OpenDatabase(dbname, False, True, "; pwd=admin")
>
> db.connect = "ODBC;DATABASE=Accueil.mdb;UID=admin; PWD=admin;DSN = ODBC;LOGINTIMEOUT=15"
>
> Set rs = db.OpenRecordset(sql, dbOpenDynaset) 'dbSQLPassThrough)
>
> la derniére ligne me génére une erreur d'objet ou bloc with non défini alors qu'avant ca passait comme une lettre à la poste !
>
> Des idées ??
>
> SOHET Morgan
> C.N.P.O. - Le Belloy

un peu, c elle qui me fait manger

Reenregistre la au format 97, n'irait pas ?
BruNews, ciao...


-------------------------------
Réponse au message :
-------------------------------

> Bonjour à la communauté,
>
> Voila, j'ai fait une boulette, j'ai converti la base de données de ma boite pour passer d'un access 97 à access 2000.
>
> Probléme, dao 3.51 ne supporte pas ce format et dao 3.61 (qui le supporte) me fout une m.... noire dans mon code genre :
>
> dim rs as recordset
>
> sql = "SELECT user.passwd,user.acces FROM USER WHERE user.login='" + txtUserName.Text + "';"
>
> Set db = OpenDatabase(dbname, False, True, "; pwd=admin")
>
> db.connect = "ODBC;DATABASE=Accueil.mdb;UID=admin; PWD=admin;DSN = ODBC;LOGINTIMEOUT=15"
>
> Set rs = db.OpenRecordset(sql, dbOpenDynaset) 'dbSQLPassThrough)
>
> la derniére ligne me génére une erreur d'objet ou bloc with non défini alors qu'avant ca passait comme une lettre à la poste !
>
> Des idées ??
>
> SOHET Morgan
> C.N.P.O. - Le Belloy

c pas ce que je recherche, il me faut convertir cette base et faire tourner mes anciennes appli dessus

SOHET Morgan
C.N.P.O. - Le Belloy


-------------------------------
Réponse au message :
-------------------------------

> Reenregistre la au format 97, n'irait pas ?
> BruNews, ciao...
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour à la communauté,
> >
> > Voila, j'ai fait une boulette, j'ai converti la base de données de ma boite pour passer d'un access 97 à access 2000.
> >
> > Probléme, dao 3.51 ne supporte pas ce format et dao 3.61 (qui le supporte) me fout une m.... noire dans mon code genre :
> >
> > dim rs as recordset
> >
> > sql = "SELECT user.passwd,user.acces FROM USER WHERE user.login='" + txtUserName.Text + "';"
> >
> > Set db = OpenDatabase(dbname, False, True, "; pwd=admin")
> >
> > db.connect = "ODBC;DATABASE=Accueil.mdb;UID=admin; PWD=admin;DSN = ODBC;LOGINTIMEOUT=15"
> >
> > Set rs = db.OpenRecordset(sql, dbOpenDynaset) 'dbSQLPassThrough)
> >
> > la derniére ligne me génére une erreur d'objet ou bloc with non défini alors qu'avant ca passait comme une lettre à la poste !
> >
> > Des idées ??
> >
> > SOHET Morgan
> > C.N.P.O. - Le Belloy
>