Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1901 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Selection de base de données

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Selection de base de données

n°195895
Toomslegra​nd
Posté le 16-08-2002 à 09:04:38  profilanswer
 

J'aimerais selectionnez une base de données en fonction de  l'entrée d'une combo box. Or on est obligé de retaper tout le code des requétes a chaque fois que l'on veut changer  de tables. Et j'ai 50 tables. Existe til un moyen de changer juste le la table. je m'explique:
voila le code de mes requétes:
 
 requete1 = "SELECT Cuve7.Hauteur, Cuve7.Volume"
 requete1 = requete1 & " FROM Cuve7 "
 requete1 = requete1 & " WHERE Cuve7.Hauteur= '" & Left(txtHaut.Text, lenString - 2) & "'"
 
J'aimerais savoir comment faire pour changer  le nom "cuve 7" en fonction du nom qui se trouve dans la combo box.  
cuve 7 fait partie des noms rentrées dans la combo box en question
 
Merci d'avance.

mood
Publicité
Posté le 16-08-2002 à 09:04:38  profilanswer
 

n°196208
Toomslegra​nd
Posté le 17-08-2002 à 09:28:46  profilanswer
 

Aidez moi SVP

n°196240
Profil sup​primé
Posté le 17-08-2002 à 11:57:12  answer
 

dim sNomTable as string
sNomTable="Toto"
requete1 = "SELECT " & sNomTable & ".Hauteur, " & sNomTable & ".Volume"  
requete1 = requete1 & " FROM " & sNomTable
requete1 = requete1 & " WHERE "& sNomTable & ".Hauteur= '" & Left(txtHaut.Text, lenString - 2) & "'"
 
essaye com ca si g ben compris ta kestion

n°196241
Profil sup​primé
Posté le 17-08-2002 à 11:58:45  answer
 

ds sNomTable tu pourra entrer le nom contenu ds ta combo

n°196263
Toomslegra​nd
Posté le 17-08-2002 à 13:18:13  profilanswer
 

Merci c ca . je vais essayer

n°196265
Toomslegra​nd
Posté le 17-08-2002 à 13:20:53  profilanswer
 

ca marche pas il me met la ligne de commande en rouge en me mettant une erreur du style : Expected: Ene of testament, tout en me surlignant en jaune '.hauteur'
 
Tu vois ce qui va pas?

n°196275
Profil sup​primé
Posté le 17-08-2002 à 13:55:46  answer
 

Left(txtHaut.Text, lenString - 2)
c ca ton pb
 
c koi lenstring?

n°196427
Toomslegra​nd
Posté le 17-08-2002 à 19:27:13  profilanswer
 

non lenstring me donne le nombre de caractére de la chaine.
Ca bloque  pas la
ca bloque au niveau de "select ...  .hauteur". C sur le  .hauteur puis sur le .volume que ca bloque. je sais pas pourquoi

n°196429
Profil sup​primé
Posté le 17-08-2002 à 19:32:00  answer
 

la chaine de caractère Requete1 passe ds VB ou c juste kan tu l'execute ke ca va pas, si c ca c ke les champ hauteur et volume ne sot pas ds la table spécifié

n°196430
Toomslegra​nd
Posté le 17-08-2002 à 19:32:40  profilanswer
 

C'est dans VB que ca foire

mood
Publicité
Posté le 17-08-2002 à 19:32:40  profilanswer
 

n°196431
Profil sup​primé
Posté le 17-08-2002 à 19:34:07  answer
 

sinon met [  en début et ] fin de chaque nom de champ (ex : table.[Hauteur] chui po sur ke ca change gd choz

n°196432
Profil sup​primé
Posté le 17-08-2002 à 19:34:36  answer
 

donne moi le message exact ke tu as + le code d'erreur

n°196433
Profil sup​primé
Posté le 17-08-2002 à 19:35:23  answer
 

donc ta chaine Requete1 ne peu pas etre concaténée entierement?

n°196435
Toomslegra​nd
Posté le 17-08-2002 à 19:41:15  profilanswer
 

maintenant j'ai le message suivant:type declaration caracter does not match declared data type.
 
Ca veut dire quoi?

n°196436
Toomslegra​nd
Posté le 17-08-2002 à 19:42:30  profilanswer
 

Voici le code:
 
Private Sub cmdCalcul_Click()
 
Dim requete1, requete2 As String       ' Variable caractère pour la requette SQL
Dim strConnection As String  ' Variable pour l'ouverture de la base
Dim resultat1, resultat2 As Recordset   ' Résultat prendra la valeur de la requette "Recordset" "Set resultat = base.OpenRecordset(requete)"
Dim base As Database        ' variable qui récupère la base de donnée a son ouverture par strConnection "Set base = OpenDatabase(strConnection)"
Dim Dataname As String
 
' Ouverture de la base
strConnection = "C:\Epalement 97.mdb"
 
 
 
'Calcul de la cuve 7'
 
lenString = Len(txtHaut.Text)
Dataname = Cuve.Text
 
Select Case lenString
Case 1
' Requette SQL générée dans ACCESS
 requete1 = "SELECT" & Dataname&.Hauteur & Dataname&.Volume
 requete1 = requete1 & " FROM" & Dataname
 requete1 = requete1 & " WHERE" & Dataname & .Hauteur = txtHaut.Text
 
Set base = OpenDatabase(strConnection)
 
' Résultat prend la valeur de la requette
Set resultat1 = base.OpenRecordset(requete1)
 
v = resultat1.Fields(1).Value

n°196538
Profil sup​primé
Posté le 18-08-2002 à 12:30:28  answer
 

requete1 = "SELECT" & Dataname&.Hauteur & Dataname&.Volume  
requete1 = requete1 & " FROM" & Dataname  
requete1 = requete1 & " WHERE" & Dataname & .Hauteur = txtHaut.Text  
 
->
c mieux avec des guillemets et faut pas coller le & !
t'as aussi oublié un espace apres le select, le from & le where ainsi ke des virgules, la requete ne peu marcher ds ce ka
essaye comme ca
 
requete1 = "SELECT " & Dataname & ".Hauteur," & Dataname & ".Volume"
requete1 = requete1 & " FROM " & Dataname  
requete1 = requete1 & " WHERE " & Dataname & ".Hauteur=" & txtHaut.Text

 

n°198227
Profil sup​primé
Posté le 20-08-2002 à 21:07:15  answer
 

met ca ds un nouveau projet, au form load par ex
 
Dim sNomTable As String
sNomTable = "Toto"
requete1 = "SELECT " & sNomTable & ".Hauteur, " & sNomTable & ".Volume"
requete1 = requete1 & " FROM " & sNomTable
requete1 = requete1 & " WHERE " & sNomTable & ".Hauteur='" & Left(txtHaut.Text, Len(txtHaut.Text) - 2) & "'"
MsgBox requete1
 
si le contenu de requete1 s'affiche c bon
(moi ca marche)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Selection de base de données

 

Sujets relatifs
Conflit d'ecriture base ODBC Sql Server ....Interfacer une base de données Access avec PHP c'est possible?
Comment sauvegarder des données dans un fichier ?Effacer toutes les données d'un tableau ( Array )
Boutton Radio et selection ??[ASP] Selection de la date dans des listes deroulantes
problème avec WHERE pour récup de données... (résolu)[PHP] Comment exporter un fichier .csv dans une base Sql ?
[XML] stocker des données binaires dans un fichier XML ... 
Plus de sujets relatifs à : Selection de base de données


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)