récuperer une requete select dans une variable [vba access] - VB/VBA/VBS - Programmation
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
Marsh Posté le 22-06-2004 à 12:04:57
| Code : 
 | 
 
Ce code permet de recupérer le texte d'une requete stockee. 
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...
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
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