Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Comment créer un "Disconnected RecordSet" sans Base source ?

Comment créer un "Disconnected RecordSet" sans Base source ?

5 réponses
Avatar
teddy
Bonjour,

Dans une page ASP-VB Script, je cherche à créer un RecordSet déconnecté,
sans connexion à une Base de données, pour l'utiliser à la façon d'un
tableau mais avec les avantages d'un RecordSet notamment au niveau des tris.

Voici le début de mon code sans préciser le curseur et le mode de
verrouillage (valeurs par défaut).

Dim Rset0
Set Rset0 = Server.CreateObject("ADODB.Recordset")
Rset0.Fields.Append "Key", adInteger
Rset0.Fields.Append "FileName", adVarChar, 200
Rset0.Open

J'ai une erreur dès la 1ère ligne de définition de champ (champ Key).
Erreur : "Arguments are of the wrong type, are out of acceptable range, or
are in conflict with one another"
Je ne vois pas ce qui ne va pas dans cette ligne.

Auriez-vous une idée ?
Merci beaucoup pour votre aide.

Ted
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Zoury
Salut Teddy! :O)

Essaie d'ajouter la déclaration des constantes dans ton code, c'est dernière
ne semble pas être accessible..

'***
Const adInteger = 3
Const adVarChar = 200
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
Avatar
Zoury
yiiissh...

c'est dernière


- > ces dernières...

ne semble


- > ne semblent

accessible


- > accessibles
Avatar
teddy
J'ai toujours la même erreur :
"Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another. "

Merci quand même pour la suggestion.

Ted

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Salut Teddy! :O)

Essaie d'ajouter la déclaration des constantes dans ton code, c'est


dernière
ne semble pas être accessible..

'***
Const adInteger = 3
Const adVarChar = 200
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous




Avatar
Zoury
Salut! :O)

hmm étrange.. j'ai testé ton code dans un .vbs sans les déclarations j'ai
obtenu la même erreur que toi ensuite je testé avec et ça a fonctionné.
Essaie donc le code suivant *dans* un fichier .vbs et dit nous si ça
fonctionne.. le problème se trouve peut-être du côté de l'ASP et/ou de son
interpéteur (IIS?)

'***
' VBScript (.vbs)
Dim Rset0

' Décommentariser (<-hehe!) ces lignes
' Const adInteger = 3
' Const adVarchar = 200

Set Rset0 = CreateObject("ADODB.Recordset")
Rset0.Fields.Append "Key", adInteger
Rset0.Fields.Append "FileName", adVarChar, 200
Rset0.Open
MsgBox "Connection state : " & RSet0.State
RSet0.Close
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
" teddy" <teddy# wrote in message
news:OzzB1x$
J'ai toujours la même erreur :
"Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another. "

Merci quand même pour la suggestion.

Ted

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
> Salut Teddy! :O)
>
> Essaie d'ajouter la déclaration des constantes dans ton code, c'est
dernière
> ne semble pas être accessible..
>
> '***
> Const adInteger = 3
> Const adVarChar = 200
> '***
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
>
> Merci de poster les réponses au groupe afin d'en faire profiter à tous
>
>




Avatar
teddy
Tu as raison.

Const adVarchar = 200

Set Rset0 = CreateObject("ADODB.Recordset")

Rset0.Fields.Append "Key", adInteger
Rset0.Fields.Append "FileName", adVarChar, 200
Rset0.Open
MsgBox "Connection state : " & RSet0.State
RSet0.Close

Ce code fonctionne avec la déclaration Const adVarchar = 200
Merci pour l'info.
Ted


"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:eRdxB5$
Salut! :O)

hmm étrange.. j'ai testé ton code dans un .vbs sans les déclarations j'ai
obtenu la même erreur que toi ensuite je testé avec et ça a fonctionné.
Essaie donc le code suivant *dans* un fichier .vbs et dit nous si ça
fonctionne.. le problème se trouve peut-être du côté de l'ASP et/ou de son
interpéteur (IIS?)

'***
' VBScript (.vbs)
Dim Rset0

' Décommentariser (<-hehe!) ces lignes
' Const adInteger = 3
' Const adVarchar = 200

Set Rset0 = CreateObject("ADODB.Recordset")
Rset0.Fields.Append "Key", adInteger
Rset0.Fields.Append "FileName", adVarChar, 200
Rset0.Open
MsgBox "Connection state : " & RSet0.State
RSet0.Close
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
" teddy" <teddy# wrote in message
news:OzzB1x$
> J'ai toujours la même erreur :
> "Arguments are of the wrong type, are out of acceptable range, or are in
> conflict with one another. "
>
> Merci quand même pour la suggestion.
>
> Ted
>
> "Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
> news:
> > Salut Teddy! :O)
> >
> > Essaie d'ajouter la déclaration des constantes dans ton code, c'est
> dernière
> > ne semble pas être accessible..
> >
> > '***
> > Const adInteger = 3
> > Const adVarChar = 200
> > '***
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> >
> > Merci de poster les réponses au groupe afin d'en faire profiter à tous
> >
> >
>
>