[vba access]récuperer une requete select dans une variable

récuperer une requete select dans une variable [vba access] - VB/VBA/VBS - Programmation

Marsh Posté le 22-06-2004 à 11:27:07    

bonjour,
j'aurais souhaité faire une requete et stocker le résultat de cette requete dans une variable...  
est ce possible ?
si oui comment.??
 
merciiiii:d

Reply

Marsh Posté le 22-06-2004 à 11:27:07   

Reply

Marsh Posté le 22-06-2004 à 11:58:56    

Ps: en Access 2000...parce que lorsque j'essaye de faire une fonction comme celle ci (viens d'un autre forum ms g perdu le link...:(:()
le type database n'est pas reconnu..
 
Public Function GetSQLInfoTxt(SqlReq As String) As String
Dim mBaseX As database
Dim mTableX As Recordset
 
On Error Resume Next
Set mBaseX = CurrentDb
Set mTableX = mBaseX.OpenRecordset(SqlReq, dbOpenDynaset)
With mTableX
.MoveFirst
GetSQLInfoTxt = .Fields(0).value
.close
End With
End Function

Reply

Marsh Posté le 22-06-2004 à 12:04:57    

Code :
  1. Dim qdfTmp As QueryDef
  2. Dim strText as String
  3.     Set qdfTmp = CurrentDb.QueryDefs("Nom_requete" )
  4.     strText = qdfTmp.SQL


Ce code permet de recupérer le texte d'une requete stockee.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 22-06-2004 à 12:16:02    

merci bien mais je souhaiterai plutot executer la requete et stocker le résultat..
il semblerai que je doive utiliser ADO...

Reply

Marsh Posté le 22-06-2004 à 13:13:19    

Dim access As adodb.Connection
Dim Myrecord As adodb.Recordset
Set access = New adodb.Connection
access.Provider = "Microsoft.Jet.Oledb.4.0"
access.ConnectionString = App.Path & "\GPI6.mdb"
access.Open
SQL = "SELECT ordi_salle,ordi_nom FROM ordi1 where ordi_ip='" & ip.Text & "'"
 
Set Myrecord = New adodb.Recordset
Myrecord.Open SQL, access, adOpenDynamic, adLockOptimistic
On Error Resume Next
List3.AddItem (Myrecord(0).Value)
List1.AddItem (Myrecord(1).Value)
access.close

Reply

Marsh Posté le 22-06-2004 à 13:35:59    

thx romano je v essayer de suite :d

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed