Formulaire en continu - recordset ADOBD - Actions via l'enête de colonne - Erreur Instruction SQL non valide

**informer** · 15/12/2022, 09h49

Bonjour à tous,

J'ai un formulaire qui est alimenté par un recordset ADODB sur SQL Server

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub cmdODBCStoreProc_Click()
 
    Dim sFirstName As String
    Dim iRows As Integer
 
    Call mfADODBCnxOpen
 
    Set goADODBRset = New ADODB.Recordset
 
    sFirstName = ""
    'sFirstName = """Le Nom"""
 
    With goADODBRset
        Set .ActiveConnection = goADODBCnx
        .Source = "EXEC [SalesLT].[spOrder]  " & sFirstName
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .Open
    End With
 
    Set Forms("frmMain").Form![ctnrFrm2].Form.Recordset = goADODBRset
 
    'goADODBRset.Close
    'Set goADODBRset = Nothing
    'Call mfADODBCnxClose
 
End Sub

Quand je clique sur une des actions proposées en entête de colonne, j'ai alors le message suivant

Instruction SQL non valide : DELETE, INSERT, PROCEDURE, SELECT ou UPDATE attendus

Nom : formColAction.png
Affichages : 199
Taille : 110,0 Ko

Quelqu'un aurait une explication ?
.

**loufab** · 15/12/2022, 10h34

Bonjour,

Tu fais un Exec (procédure stockée) que tu affecte à un recordset puis tu souhaites faire les manipulations d'un Select (Order by).

C'est couillu comme approche.

Je ne sais pas ce qu'il y a derrière cette procédure mais pour avoir un fonctionnement standard ta source Ado devrait être un Select ou un objet "SQL Direct" éventuellement qu'Access pourra manipuler.

Cordialement,

**informer** · 15/12/2022, 10h44

Bonjour loufab,

La proc. stock est une requête SELECT. Le truc serait de comprendre ce que font les actions associées à l'entête de colone.

Penses-tu que ces événements peuvent être interceptés ?

**loufab** · 17/12/2022, 23h44

Le composant Feuille de données est une boite noire, on y maitrise que peu d'éléments et quelques événements comme "Sur entrée" ou "Sur Sortie".

Il faudrait utiliser un formulaire en mode continu pour pouvoir maitriser plus d'évènement mais cela impliquerait de créer un menu contextuel avec les options Tri/Filtre et toutes la mécanique associée.

L'autre solution plus simple et d'utiliser une requête "PassThrough", le comportement est similaire, elle s'exécute côté serveur, son SQL doit être celui du moteur de base de données utilisé (Sql Server dans ton cas) mais son contenu est en lecture seule.

Que fait le composant quand on utilise le tri/filtre sur colonne ?
Comme c'est une boite noire et qu'il y a peu/pas de communication dessus, on peut penser qu'il reprend le texte sql de la source et le soumet au clause Order by et Where.

A noter qu'en Ado un procédure stockée est un objet Command.

Code :

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

1
2
3
4
5
6
Dim cmd As New ADODB.Command
...
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "maproc"
...
Set rs = cmd.Execute

https://social.msdn.microsoft.com/Fo...orum=accessdev

En espérant t'avoir éclairer. J'avoue éviter les composants trop fermés.

Cordialement,

**informer** · 19/12/2022, 18h04

Merci encore loufab pour ton aide et tes conseils

Je vais donc implémenter des requêtes PassThrough

J'ai une question sur l'objet ADODB.Command

J'ai essayé de lancer une proc.stock SQLSERVER avec l'objetADODB. Command mais cela gênerait une erreur qui a disparu avec juste l'instanciation de l'objet Records et voir ici solution a mon post chargement sous-formulaire-recordset adodb appel pro. -stock-sqlServer-erreur 430 & 7965/

Aurais tu une idée pourquoi avec l'objet ADODB.Command ça plantait alors que si je passe directement par l'objetADODB.Recordset ça fonctionnait ?

**loufab** · 20/12/2022, 11h59

Bonjour,

N'ayant qu'une vision parcellaire de ton projet je dirais que l'objet était peut être mal instancié (mal typé).

Cordialement,

**Thumb down** · 20/12/2022, 12h56

Bonjour,
tu peux directement créer une requête dans Access que tu fournis comme data source à ton formulaire!

Code MyRequête :

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

Select * from ( [ODBC;Driver={SQL Server};SERVER=MyServeur;DATABASE=MyDATABASE;UID=MyUID;Pwd=MyPwd].EXEC MyProc)

Nom : Sans titre.png
Affichages : 169
Taille : 98,4 Ko

**informer** · 23/12/2022, 13h27

Bonjour Thumb down

Je te remercie pour ton aide mais ne vois pas comment ça résout le problème d'erreur quand je clique sur les opérations proposés sur les colonnes

Tri A-Z
Tri Z-A
Filtre Texte

**Thumb down** · 23/12/2022, 13h46

Bonjour,
Je ne sais pas comment ça résout ton problème non plus.

Et pourtant un formulaire Access qui ce respecte fonction avec un requête en natif et. Ça fonctionne !

Moi je te propose de fournir une requête Access à ton formulaire et pas un recordset !

Vous avez dit bizarre ?

Dans la source de données de ton formulaire tu tapes la requête qu je t'ai fourni en donnant les informations de connexion que tu utilises dans adodb serveur, base de données,user, password !

**informer** · 26/12/2022, 12h07

[QUOTE=Thumb down;11904445]Bonjour,
tu peux directement créer une requête dans Access que tu fournis comme data source à ton formulaire!

Code MyRequête :

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

Select * from ( [ODBC;Driver={SQL Server};SERVER=MyServeur;DATABASE=MyDATABASE;UID=MyUID;Pwd=MyPwd].EXEC MyProc)

Bonjour Thumb down

J'ai affecté une requête au format que tu me proposais mais à l'exécution j'ai maintenant l'erreur 3135 Erreur Join

Nom : Error3135Join.png
Affichages : 137
Taille : 97,8 Ko

Nom : Error3135Join.png
Affichages : 137
Taille : 97,8 Ko

Une idée de la cause de cette erreur ?

**loufab** · 27/12/2022, 12h25

On peut voir ce qu'il y a dans cette procédure ?

**informer** · 30/12/2022, 19h41

Envoyé par loufab

On peut voir ce qu'il y a dans cette procédure ?

Bonjour loufab

Le code de la procédure affecte la requête sSQL au Recordsource de la forme du conteneur ctnrOrder

Code :

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

1
2
3
4
5
6
 
sSQL  = "Select * from " & _
           " ([ODBC;Driver={SQL Server};SERVER=LAPTOP-VT8IOB4\PLPSQLEXPRESS;DATABASE=AdventureWorksLT2019;Trusted_connection=Yes].EXEC "  & _
           " [SalesLT].[spOrder] )"
 
Forms("frmMain").Form.Controls ("ctnrOrder").Form.Recordsource = sSQL

**Thumb down** · 31/12/2022, 00h32

Bonjour,
En fait je pense que loufab parlait de la procédure stockée !

J'ai désinstallé SQL serveur par ce qu'il consommait trop d'espace disque, je n'ai pas encore pris le temps de me faire une config pour faire des tests. Mais il est vrai que si tu as la possibilité de fournir même une synthèse de ta procédures stockées ce serait cool?

**informer** · 03/01/2023, 19h18

Bonjour Thumb down

Voici le script de création de la proc. stock et le résultat à son appel dans SQL Server Management Studio sans et avec paramètre.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
USE [AdventureWorksLT2019]
GO
/****** Object:  StoredProcedure [SalesLT].[spOrder]    Script Date: 03/01/2023 19:05:32 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
 
-- =============================================
CREATE PROCEDURE [SalesLT].[spOrder]
	-- Add the parameters for the stored procedure here
	@pFirstName NVARCHAR(MAX) = NULL
AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;
 
    -- Insert statements for procedure here
	--SELECT <@Param1, sysname, @p1>, <@Param2, sysname, @p2>
 
	IF OBJECT_ID('tempdb.dbo.##tCustomerTop', 'U') IS NOT NULL 
	DROP TABLE ##tCustomerTop
 
 
	SELECT TOP (100) *
	INTO ##tCustomerTop
	FROM SalesLT.Customer
	WHERE ( @pFirstName  is null or FirstName = @pFirstName)
 
	CREATE CLUSTERED INDEX idx_t ON ##tCustomerTop ([CustomerID])		
 
	SELECT * FROM ##tCustomerTop
 
	DROP TABLE ##tCustomerTop
 
	/*SELECT SalesLT.Customer.CustomerID
		, SalesLT.Customer.FirstName 
		, SalesLT.Customer.MiddleName 
		, SalesLT.Customer.LastName 
		, SalesLT.CustomerAddress.*
		, SalesLT.SalesOrderHeader.*
		, SalesLT.SalesOrderDetail.*
		, SalesLT.Product.*
	FROM SalesLT.Customer 
		INNER JOIN SalesLT.CustomerAddress ON SalesLT.Customer.CustomerID = SalesLT.CustomerAddress.CustomerID
		INNER JOIN SalesLT.SalesOrderHeader ON SalesLT.Customer.CustomerID = SalesLT.SalesOrderHeader.CustomerID
		INNER JOIN SalesLT.SalesOrderDetail ON SalesLT.SalesOrderDetail.SalesOrderID  = SalesLT.SalesOrderHeader.SalesOrderID
		INNER JOIN  SalesLT.Product ON SalesLT.Product.ProductID = SalesLT.SalesOrderDetail.ProductID*/
 
END

Nom : ProcStock.png
Affichages : 99
Taille : 373,8 Ko

**loufab** · 13/01/2023, 10h00

Bonjour,

Personnellement je ne suis pas étonné du message quand je vois ce bricolage.

Tu fais un select sur un objet que tu supprimes.

Code :

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

1
2
3
4
 
SELECT * FROM ##tCustomerTop
*
DROP TABLE ##tCustomerTop

Ensuite tu voudrais qu'un produit tiers, Access en l’occurrence, accède à cet objet et le manipule. D'un point de vu logique trouves-tu cela normal ?

Cordialement,

**informer** · 18/01/2023, 10h22

Envoyé par loufab

Bonjour,

Personnellement je ne suis pas étonné du message quand je vois ce bricolage.Tu fais un select sur un objet que tu supprimes.

Code :

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

1
2
3
4
 
SELECT * FROM ##tCustomerTop
*
DROP TABLE ##tCustomerTop

Merci Loufab pour ta piste mais avec ou sans drop le problème subsiste donc le problème est ailleurs

Cordialement

**loufab** · 18/01/2023, 14h20

Si tu y accède directement sans faire référence à la procédure stockée ?

Formulaire en continu - recordset ADOBD - Actions via l'enête de colonne - Erreur Instruction SQL non valide

VBA Access

Discussions similaires

Partager

Partager