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