Discussion :

[bilouk]

bonjour à tous,
je viens de transférer mon appli access en adp-sqlserver 2000.
aprés avoir refait toutes mes requêtes et modifiés certains formulaires, je coince sur un problème qui doit être simple.

ma recherche multicritères type "CAFEINE" (merci à lui) fonctionne sans problème sauf quand je rajoute la ligne suivante dans mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.QueryDefs("qry_Temp").SQL = SQL

qui me permet d'imprimer le résultat de la recherche par l'intermédiaire de la requete qry_Temp.

je précise que l'impression marchait sans prob sous access.

est ce que quelqu'un a déjà été confronté à ce prob?
merci à vous

[bilouk]

si besoin je peux vous fournir le code complet.

[DMboup]

Avec un ADP il me semble qu'il faut passer pas une Vue ce que j'ai pas encore fait.

[bilouk]

salut,
ma requete qry_Temp est déjà une vue. ce que je pense c'est que currentDb.querydefs est du DAO et il faudrait que je le transforme en ADO et là je m'y connais pas asser. sinon je vais essayer avec une procédure stockée au cas où.
a +

[DMboup]

Pour ca regarde ici http://argyronet.developpez.com/office/access/mdb2adp/

[bilouk]

j'ai essayer avec les ADODB.connection ou ADODB.command mais ça ne marche toujours pas. je n'arrive pas à récupérer le résultat de ma liste de réponse et à la réinjecter dans ma req "qry_Temp" qui me permettrait d'imprimer le résultat de la recherche multicritère.
je sèche.
a+

[bilouk]

j'ai essayé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande41_Click()
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim strSQL As String
 
strSQL = "SELECT qry_recherche.* FROM dbo.qry_recherche"
 
Set cat.ActiveConnection = CurrentProject.Connection
Set cmd = cat.Views(qry_Temp)
cmd.CommandText = strSQL
Set cat.Views(qry_Temp).Command = cmd
 
Set cat = Nothing
 
End Sub

et il me dit qu'il ne trouve pas le fournisseur alors que j'ai bien activé les références ado.
que faire? (merci à vous)