High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Vb6 et acces : chaine caractère

Dernière réponse le 7 mar 2008 à 10:04:18 eagleleader, le 26 nov 2003 à 13:52:34 
 Signaler ce message aux modérateurs

Voici mon code :

rs.Open "select info_titre from T_infos where titre = '" & Form1.Text1.Caption & "'", db, adOpenStatic, adLockOptimistic

Le problème c'est que lorsqu'il y a un " ' " (apostrophe dans la chaine de caractères, il me met une erreur et ce qui est logique vu que la syntaxe lui dit ' ... '

Mais alors comment résoudre mon problème ??? Sachant que je ne peux modifier ce qui se trouve dans mes bases

Meilleures réponses pour « vb6 et acces : chaine caractère » dans :
Supprimer les accents avec PHP VoirPour un tas de raisons, il est parfois utile de convertir un texte accentué en un texte sans accents. Voici une fonction permettant de transformer très simplement la quasi-totalité des accents en leur équivalent non-accentués : function...
Javascript - Les chaînes de caractères VoirQu'est-ce qu'une chaîne de caractère Une chaîne de caractère est, comme son nom l'indique, une suite de caractères. On la représente par la suite de caractères encadrée par des guillemets simples (') ou doubles ("), sachant que les deux types de...
Les chaînes de caractères en C++ VoirQu'est-ce qu'une chaîne de caractères ? Une chaîne de caractères (appelée string en anglais) est une suite de caractères, c'est-à-dire un ensemble de symboles faisant partie du jeu de caractères, défini par le code ASCII. En langage C++, une...
Langage C - Les chaînes de caractères VoirQu'est-ce qu'une chaîne de caractères ? Une chaîne de caractères (appelée string en anglais) est une suite de caractères, c'est-à-dire un ensemble de symboles faisant partie du jeu de caractères, défini par le code ASCII. En langage C, une chaîne...
Posez votre question Répondre

1

Roulito, le 26 nov 2003 à 13:57:06

Salut.
J'ai été confronté à ce problème.
Plusieurs solutions :
=> Changer l'apostrophe par le caractère apostrophe tournée dans l'autre sens.
=> Supprimer les apostrophe et les remplacer par un espace dans ta base.
Cela a faire dans la chaine qui te pose problème. Tu le fais où tu veux, mais avant d'exécuter la requête.
@+
Roulito

   
Répondre à Roulito

2

eagleleader, le 26 nov 2003 à 14:07:00

Le problème étant que je ne peux pas modifier mes bases car elles sont très grosses et non touchables !!! Mais merci quand même.

J'espère qu'il existe une fonction qui permet d'éviter ce problème ou que quelqu'un connaît la solution.

   
Répondre à eagleleader

3

deus, le 26 nov 2003 à 17:52:24

Moi pour contourner ce problème j'ai crée la focntion suivante:
"
Function PrepareString(Instring)
If Not IsNull(Instring) Then
PrepareString = "'" & Replace(Instring, "'", "' + CHAR(39) + '") & "'"
Else
PrepareString = "Null"
End If
End Function
"
et donc ton code devient :

rs.Open "select info_titre from T_infos where titre = ' " & PrepareString(Form1.Text1.Caption) & " ' ", db, adOpenStatic, adLockOptimistic

Voilà, j'espère que ca t'aide

dEUS

What Jesus can't fix tonight,
The Whisky certainly might.

   
Répondre à deus

4

zied, le 17 jui 2004 à 13:31:28

Comment récuperé les information qui se trouve dans une requette sql ave vb6
sql="select nom,code from emp where num=2"
comment utiliser les information trouvé dans nom et code dans la suite de mon prg
merci d'avance

   
Répondre à zied

5

eagleleader, le 17 jui 2004 à 15:24:32

Et bien tu dois établir une connexion à la base de données, ensuite c'est simple tu crées ta requete sql :

dim db as Connection
dim rs as Recordset

' connexion à la base de donnees
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\emp.mdb;" (si elle se trouve dans le meme répertoire que l'application sinon tu dois donner le chemin complet

' création de l'objet recordset
Set RS = New ADODB.Recordset

ensuite tu crées ta requete sql :

RS.Open "select nom,code from emp where num=2", db, adOpenStatic, adLockOptimistic
RS.MoveLast
' affichage des résultats
Text1.Text = RS.Fields("nom")
Text2.Text = RS.Fields("code")

Text1 et 2 sont 2 textbox sur une feuille et elles afficheront les réponses sinon tu peux utiliser n'importe quel objet qui permet d'afficher les résultats.

   
Répondre à eagleleader

6

zied, le 19 jui 2004 à 09:54:25

Merci pour votre aide
j'ai un petit prob lors de l'execution un message s'affiche "type de donné incompatible dans l'expression du critére on me sélectionné toute la ligne de ma requette sql
rs.Open "select ORDRE,CODCARTE from EMP where CODEMP=' " & A & " '", db, adOpenStatic, adLockOptimistic

   
Répondre à zied

7

zied, le 19 jui 2004 à 10:16:52

Merci pour votre aide
j'ai un petit prob lors de l'execution un message s'affiche "type de donné incompatible dans l'expression du critére on me sélectionné toute la ligne de ma requette sql
rs.Open "select ORDRE,CODCARTE from EMP where CODEMP=' " & A & " '", db, adOpenStatic, adLockOptimistic

   
Répondre à zied

8

RicHamilton, le 17 fév 2006 à 12:47:50
  • +3

Salut,
Eh bien concernant ton pb avec l'apostrophe, Access ne le reconnaît ke par deux apostrophes ''. Donc ce ke tu auras a faire, c'est ceci :

'Fonction ki transforme la quote en double quotes
Function DoubleQuote(str as String) as String
DoubleQuote = Replace(str,"'","''")
End Function
Cette fonction te sera utile lorske tu voudras par exemple enregistrer ou mettre à jour des données :
Insert into ETUDIANT(NumEtud, NomEtud, DateNaiss) VALUES(" & txtNum.text & ",'" & DoubleQuote(txtNom.text) & "',#" & txtDate.text & "#);

Maintenant si tu voudrais par exemple afficher ces memes données dans un autre formulaire tu feras donc :

'Fonction ki transforme les double-quotes en quote
Function Quote(str as String) as String
Quote = Replace(str,"''","'")
End Function

Ensuite par exemple :

Select NumEtud from ETUDIANT Where NomEtud = '" & Quote(txtNom.text) & "';


En ce qui concerne ton 2e pb, vérifie ke le critère de recherche de ta requête a le meme type ke celui du champ dans la base de données.

   
Répondre à RicHamilton

9

 mounaattia, le 7 mar 2008 à 10:04:18

Bonjour,
Dans mon code je veux extraire le premier caractére d'une chaine de caractére donnée puis de trouver tous les noms qui débuterons par ce caractére dans la base de données access.
SVP je veux le code qui me permet de faire ça.
merci d'avance

   
Répondre à mounaattia
Posez votre question Répondre
Ils ont besoin de votre aide