AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 22 16:30:57
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : DataGrid [ Base de données / SQL ] (ingstat)

vendredi 29 août 2008 à 08:58:20 | DataGrid

ingstat
Bonjour  
Ce code ne tourne pas,on m'affiche l'erreur suivante:Le jeu d'enregistrement ne peut pas prendre en compte les signets.
L'instruction en rouge est selectionnée
Dim d As Date
Dim f As Date
Dim RS As New ADODB.Recordset
Dim RS1 As New ADODB.Recordset
Dim sql As String
d = InputBox("Entrer la première date", "Nombre d'affaires Executées")
f = InputBox("Entrer la deuxième date", "Nombre d'affaires Executées")
If RS.State = adStateOpen Then RS.Close
RS.Open " T1", db, adOpenDynamic, adLockOptimistic't1 est la table de laquelle je fais la selection
sql = "Select * From T1 where [Date Execution] Between " & d & " And " & f
If RS1.State = adStateOpen Then RS1.Close
Set RS1 = New ADODB.Recordset
RS1.Open sql, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = RS1
vendredi 29 août 2008 à 13:24:31 | Re : ataGrid

PCPT

Administrateur CodeS-SourceS
Réponse acceptée !
salut,

tu n'as pas une gestion d'erreur quelque part?

sql = "Select * From T1 where [Date Execution] Between #" & d & "# And #" & f & "#"
If RS1.State = adStateOpen Then RS1.Close
Set RS1 = New ADODB.Recordset

çà donne quoi?
Prenez un instant pour répondre à ce sondage svp  

vendredi 29 août 2008 à 15:16:53 | Re : ataGrid

LIBRE_MAX
Réponse acceptée !
Salut,
If RS1.State = adStateOpen Then RS1.Close
est superflu !
Son recordset étant privé, il ne risque pas de
s' ouvrir tout seul.
L' erreur est ailleur.
Oui ou non tu as un code avec lequel tu tentes de récupèrer l' indice d' une ligne DataGrid ?
Remarques,ça m' etonne qu' il n' y ait pas d' erreur de synthaxe au niveau de :

RS.Open " T1", db, adOpenDynamic, adLockOptimistic

"T1"  et pas " T1"
Il y' a un espace de plus.
Ce qui se traduirait par "SELECT * FROM   T1"

[] Ce qui va sans dire. va mieux en le disant.
vendredi 29 août 2008 à 15:21:44 | Re : ataGrid

LIBRE_MAX
Ah oui !

Set DataGrid1.DataSource = RS1

Le DataSource d' un DataGrid est un objet Adodc et non un recordset.

[] Ce qui va sans dire. va mieux en le disant.
vendredi 29 août 2008 à 15:38:10 | Re : ataGrid

PCPT

Administrateur CodeS-SourceS
bien vu pour le .state et l'espace LIBRE_MAX
par contre le datasource accepte un RecordSet sans problème, s'il est valide
vendredi 29 août 2008 à 16:04:12 | Re : ataGrid

LIBRE_MAX
Exact !
Pour être valide, il manque peut être :
RS1.CursorLocation = adUseClient

[] Ce qui va sans dire. va mieux en le disant.


Cette discussion est classé dans : date, t1, rs, adodb, rs1

Répondre à ce message

Sujets en rapport avec ce message

Connexion a une base de donnee access ?!? [ par dave ] J'essaye de lire le contenu d'une base de donnee et ca ne marche pas pourquoi ?J'ai bien coche --> Microsoft ActiveX Data Objects 2.1 LibraryPrivate S Recherche par date [ par cheggour ] salut tous,je viens de developper une application en utilisant ADO et je trouve des difficultés au niveau des requettes...Alors comment puis-je faire UTILISER 1 ADODB RECORDSET [ par sweeping ] J'ai 1 ADODB.recordset et je veux pouvoir aller en avant:rs.movenext puis aller en arrière:rs.moveprevious.Si je vais dans 1 sens , puis dans l'autre, MSFLEXGRID et ADODB [ par cakos ] BonjourJe veux lier un contrôle MsFlexGrid à une base access.J'ai donc créé un recordset ADODB nommé Rs (qui fonctionne bien)mais lorsque je fais "MsF prob avec fichier d'info du groupe de travail [ par euchbit ] Bonjour!Quand j'execute le code suivant :Dim rs As ADODB.RecordsetDim Conn As ADODB.ConnectionSet Conn = New ADODB.ConnectionConn.Open "provider=micro prob avec fichier d'info du groupe de travail [ par euchbit ] Bonjour!Quand j'execute le code suivant :Dim rs As ADODB.RecordsetDim Conn As ADODB.ConnectionSet Conn = New ADODB.ConnectionConn.Open "provider=micro probleme de format date dans une requete avec access [ par yaya31 ] bonjour,voila mon code : dateL = " " & Forms![ajout bon livraison client]![DateLivraison] & " " MsgBox dateL dateL = Format(Day(dateL) datagrid [ par Simaifou ] Salut tout le mondeJ' essaie en vain de charger la datasource d'une datagrid avec un adodb.recordset voici mon affaireform_load() dim rs as adodb.re connection connection oh connection [ par evilrico ] bijourvoici mon problème:message d'erreur :type defini par l'utilisateur non défini et ce message je l'obtiens en cliquant sur un bouton dont le code PVcombobox [ par marielief ] L'AppendItem ne fonctionne pas dans un test de date EX:If circuit = "NORMAL" Then PVcombobox.AppendItem (d) PVcombobox.SubItem(d, 0) = "


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,187 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.