VB erreur de requete

**lionel256** · 10/03/2008, 14h02

Bonjour, j' ai un petit problème avec ma requete.

Dim vReq2 As String = "INSERT INTO ESSAI(Adresse,Description,Latitude,Longitude,ModuleID) VALUES('" & (lecteur("ADRESSE").ToString()).Replace("'", "''") & "',ACTIVITE,Latitude,Longitude,'" & 385 & "');"

L'erreur est la suivante

Le nom "ACTIVITE" n'est pas autorisé dans ce contexte. Les expressions valides sont des constantes, des expressions constantes, et (dans certains contextes) variables. Les noms de colonnes ne sont pas autorisés.

**BCmDev** · 10/03/2008, 14h38

Tu dois entourer ACTIVITE de dimples cotes s'il s'agit bien de ce que tu souhaites mettre comme description.

**lionel256** · 10/03/2008, 14h51

non activité longitude et latitude je dois les récupérer dans une table.
J'ai une requete "select" et celle ci fonctionne car j arrive à afficher les éléments que j ai trier avec le "select" mais certains champs ne veulent pas se mettre je ne vois pas mon erreur

**BCmDev** · 10/03/2008, 15h01

Si ACTIVITE est une colonne d'une autre table, tu dois utiliser une syntaxe du type :
INSERT INTO Table (<colonnes>)
SELECT (<colonnes>) FROM <Tables>

**lionel256** · 10/03/2008, 15h39

Dim vReq As String = "SELECT ADRESSE,ACTIVITE FROM ESSAI2 WHERE UPPER(ADRESSE) LIKE UPPER('" & recuperation & "');"

Dim vReq2 As String = "INSERT INTO ESSAI(Adresse,Description,ModuleID) VALUES('" & (lecteur("ADRESSE").ToString()).Replace("'", "''") & "','" & 385 & "');"

Voila mes 2 requêtes j'aimerais insérer entre l'adresse et le numéro 385 mon champ ACTIVITE venant de la table ESSAI2.
J'arrive a tout afficher sauf ACTIVITE.

merci

**BCmDev** · 10/03/2008, 16h32

Tu dois écrire ta requête de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
 
   "INSERT INTO ESSAI(Adresse, Description, ModuleID) "
& "SELECT " 
& " '" & (lecteur("ADRESSE").ToString()).Replace("'", "''") & "''" 
& " ESSAI2.ACTIVITE"
& " 385"
& " FROM ESSAI2"
& " WHERE "
& " UPPER(ESSAI2.ADRESSE) LIKE UPPER('" & recuperation & "');

En faisant attention au fait que cette requête pourrait ne pas ramener d'éléments ou en ramener plusieurs.

**jeepibmx** · 10/03/2008, 16h37

Il faut que tu change ta syntax si activite se trouve dans une autre table

**lionel256** · 10/03/2008, 16h58

merci déjà pour cette aide mais quand tu dis que je dois changer la syntaxe je dois la changer comment?

**SaumonAgile** · 10/03/2008, 17h04

Utilise des paramètres SQL pour éviter les erreurs avec les ' et ".

Explication ici : http://johannblais.developpez.com/tu...acces-donnees/

**The eye** · 10/03/2008, 18h23

Ecris plutôt ta requête comme ceci :

Code :

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

INSERT INTO ESSAI(Adresse,Description,Latitude,Longitude,ModuleID) SELECT '" & (lecteur("ADRESSE").ToString()).Replace("'", "''") & "', ACTIVITE, Latitude, Longitude,'" & 385 & "' FROM laTableQuiVaBien"

**lionel256** · 11/03/2008, 09h13

Merci pour votre aide...
Voila ma requete qui fonctionne.

Dim vReq2 As String = "INSERT INTO GoogleMap(Adresse,Description,Latitude,ModuleID) VALUES('" & (lecteur("ADRESSE").ToString()).Replace("'", "''") & "','" & (lecteur("ACTIVITE").ToString()) & "','" & 385 & "');"

J'ai encore un petit problème je n'arrive pas a récupérée la latitude et la longitude qui sont des "numeric (18,8)"
Si quelqu'un a une idée je suis preneur.
merci

**BCmDev** · 11/03/2008, 09h22

Visiblement, lecteur est un reader sur vReq !? Donne bien l'ensemble des informations quand tu as un problème, ça facilite la réponse et je ne t'aurai pas orienté vers une autre syntaxe.
Concernant ton nouveau problème, quel est-il exactement ? Tu n'arrives pas à récupérer les données ou à les convertir ?

**zeavan** · 11/03/2008, 09h23

Envoyé par SaumonAgile

Utilise des paramètres SQL pour éviter les erreurs avec les ' et ".

Explication ici : http://johannblais.developpez.com/tu...acces-donnees/

On te conseil d'utiliser des parameters et d'exploiter au mieux l'adodb, fait un petit effort et tu verra qu'apres ca roulera tout seul.

**The eye** · 11/03/2008, 09h53

Oui je suis d'accord, soit tu utilises les paramètres SQL soit tu le fait en une requête avec la requête que je t'ai transmise, soit une combinnaison de ces deux solutions si tu doit récupérer une partie des données dans le code et une autre dans les tables.

En tout cas ta solution ne me parrait pas la meilleur

Rappel : utilisé des paramètres SQL permet au moteur de base de données de conserver le plan d'exécution de ta requête (comme avec une procédure stockée) ce qui permet de rendre ta requête BEAUCOUP plus efficace au bout de la deuxième exécution.

C'est un peu comme recompilé ton code à chaque fois et utilisé du code compilé...

**lionel256** · 11/03/2008, 12h04

Voila tout mon code concernant ma récupération mon problème est que j aimerais bien récupérer une longitude et une latitude mais le problème est que ces données ne sont pas du texte mais des chiffres avec virgule.

Dim vReq As String = "SELECT ADRESSE,ACTIVITE FROM ESSAI WHERE UPPER(ADRESSE) LIKE UPPER('" & recuperation & "%');"
Dim comm As SqlCommand
comm = New SqlCommand
comm.Connection = conn
comm.CommandText = vReq
Dim lecteur As SqlDataReader
lecteur = comm.ExecuteReader()
While (lecteur.Read())
Me.Label2.Text = lecteur("ACTIVITE")
Me.Label1.Text = lecteur("ADRESSE")
Dim conn2 As SqlClient.SqlConnection
conn2 = New SqlConnection
conn2.ConnectionString = "Data Source=BILOU;Initial Catalog=ANSDNN;Integrated Security=True"
conn2.Open()
Dim vReq2 As String = "INSERT INTO ESSAI2(Adresse,Description,ModuleID) VALUES('" & (lecteur("ADRESSE").ToString()).Replace("'", "''") & "','" & (lecteur("ACTIVITE").ToString()) & "','" & 385 & "');"
Dim comm2 As SqlCommand
comm2 = New SqlCommand
comm2.Connection = conn2
comm2.CommandText = vReq2
comm2.ExecuteNonQuery()

merci

**BCmDev** · 11/03/2008, 12h10

Au risque d'insister, va consulter l'URL fournie par SaumonAgile (la section IV-B. La solution te montrera un exemple) et ton problème de nombre se résoudra de lui-même !

**lionel256** · 11/03/2008, 13h04

Mais j ai déjà été voir tantôt mais je ne vois pas où ce document m'aide :s

**BCmDev** · 11/03/2008, 13h45

Voici un exemple d'utilisation des paramètres basé sur ta première requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim vReq As String = "SELECT ADRESSE, ACTIVITE FROM ESSAI WHERE ADRESSE = @ADRESSE;"
Dim comm As SqlCommand
comm = New SqlCommand
comm.Connection = conn
comm.CommandText = vReq
' Création du paramètre adresse :
Dim paramAdresse as IDbParameter = comm.CreateParameter();
paramAdresse.Name = "@ADRESSE"
paramAdresse.DbType = DbTypes.VarChar
paramAdresse.Direction = ParameterDirection.Input
paramAdresse.Value = recuperation
comm.Parameters.Add(paramAdresse)

Comme tu peux le constater, il n'y a pas lieu d'ajouter des simples cotes autour de @ADRESSE dans vReq !
De même pour tes nombres, pas de problème de format en créant un paramètre !
En espérant avoir été assez clair...