PB RecordsetRésolu

Question

Salut a tous,

voila, j'ai un petit pb pour récupérer des données dans une base access via VB6. La base se trouve sur un serveur. Voila mon code :

Option Explicit


Public Sub Connection()


Dim CoLilas As New ADODB.Connection
Dim Provider As String
Dim connexion As String


'*** connexion Fichier Base Access 2000,XP
Provider = "Microsoft.JET.OLEDB.4.0"
connexion = "[file://\Serveur03\base1.mdb \Serveur03\base1.mdb]"


'**** Connexion à la Base de données
With CoLilas
  .Provider = Provider
  .ConnectionString = connexion
  .ConnectionTimeout = 6
  .CommandTimeout = 60
  .Open
End With


End Sub




Private Sub Correspondance_Click()
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset


Call Connection


Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset


cmd.CommandText = "SELECT nom FROM table1"
Set rst = cmd.Execute


End Sub

La, j'aimerais récuperer le résultat de ma requete dans un textbox (la je sais pas trop comment, j'ai vu des exemples pour les listbox mais pour les text) mais ca plante, erreur3709, Cette operation n'est pas autorisée sur un objet ayant une reference vers une connexion non valide ou fermée. Si quelqun pouvait m'aider ca serait cool...merci d'avance.

++, Antoine.

cs_antonio75 · Accepted Answer

Finalement, j'ai reussi a résoudre mon probleme, voici le code, un grand merci a vous tous pour votre aide.

Option Explicit
Dim rst As New ADODB.Recordset

Private Sub Connect_Click()
Dim Connexion As New ADODB.Connection
Dim Provider As String
Dim Connect As String


'*** connexion Fichier Base Access 2000,XP
Provider = "Microsoft.JET.OLEDB.4.0"
Connect = "[file://\Serveur03\ma_base.mdb \Serveur03\ma_base.mdb]"


'**** Connexion à la Base de données
With Connexion
  .Provider = Provider
  .ConnectionString = Connect
  .ConnectionTimeout = 6
  .CommandTimeout = 60
  .Open
End With


Set rst = New ADODB.Recordset
rst.Open "SELECT champ FROM table1", Connexion, adOpenDynamic, adLockOptimistic
'Ensuite on récupère la valeur du champ dans la textbox
Champ.Text = rst("Champ")
End Sub

chaibat05 · Answer

Bonjour,
je ne sais pas si ça a un rapport mais tu utilises 
une propriété pour désigner une variable:
Dim Provider As String
  CoLilas.Provider = Provider

cs_antonio75 · Answer

Je pense pas, j'ai l'impression que j arrive a me connecter parce quand je met un path bidon, j'ai un message d'erreur comme quoi la bd est introuvable, message que je n ai pas qd je mets le bon path. Le pb arrive qd j essaie de recuperer les donnes avec mon recordset.

cs_jperre · Answer

Le problème vient de la mauvaise utilisation de l'objet Command de ADODB, cet objet est utilisé pour exécuter des requêtes action telles que :UPDATE, DELETE, INSERT,...Pour afficher le contenu d'une requête sélection en vue de récupérer la valeur d'un champ dans un contrôle tel qu'une textbox, il faut le code suivant :
Dim rst As ADODB.Recordset
Set rst=Colilas.OpenRecordset("SELECT nom FROM table1")
If Not rst.EOF Then rst.MoveFirst
Ensuite on récupère la valeur du champ nom dans la textbox
MaTextBox.Text=rst("nom")
rst.Close

A tester!...

chaibat05 · Answer

juste après 
cmd.CommandText = "SELECT nom FROM table1"
cmd.Open

pour ouvrir la connection

chaibat05 · Answer

ou alors
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.LockType = adLockOptimistic
rst.Open(cmd, "SELECT nom FROM table1")

HUGOFLASH · Answer

Bonjour, 
Ton problème vient de la portée de la variable Colilas<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>


Elle est connu que dans la procédure Connection().


Déplace ta déclaration de ta variable "Dim CoLilas As New ADODB.Connection"

au niveau module et rend la public

Public Colilas as New ADODB.Connection

Ps: Moi personnellement j'évite de déclarer une variable avec New

Public Maconnection as ADODB.Connection

'quand je veux l'utiliser
Set Maconnection = New ADODB.Connection

'quand j'en ai plus besoin
Set Maconnection=Nothing


@+

Hugoflash

cs_antonio75 · Answer

J ai integrer ton code et ca a l air de le faire mais maintenant j ai une autre erreur (3001) les arguments sont de types incorrects, en dehors des limites ou en conflit les uns avec les autres.
Mais bon merci, ca m a deja avancé, il faut prendre les bugs les uns apres les autres...

cs_Nicko11 · Answer

J'ai eu le meme type d'erreur une fois. En fait, j'avais fais un copier coller d'une chaine de connexion complete. Et pour voir celles qui étaient suffisantes, j'enlevais des paramètres pour isolé celles que je cherchais.

J'en déduis donc que tu as des paramètres qui en appellent d'autres qui ne sont pas présents. Donc, il faut que tu revois ta chaine.

PB Recordset

9 réponses

Votre réponse

Discussions similaires