Discussion :

[Teomistre]

Bonjour,
Je suis débutant en programmation, et je rencontre un petit soucis.
J'aimerais pouvoir concaténer deux chaines et que VB reconnaisse cette nouvelle chaine comme une variable déclaré en global dans le programme, pour être ensuite utilisé dans une requête.

Code :

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

1
2
3
4
5
6
Dim Tarata2 as Datetime //Ma variableGlobale
 
Dim mavariable as string
 
For cnt=0 to 6
     Mavariable = "Tarata" & cnt

Puis que Mavariable soit reconnu comme tarata2 pour pouvoir executer une requete de type

Code :

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

Insert into Table values ("Mavariable","12")

[nasty]

Bonjour

J'ai rien compris a ta question... Y'a un bout de code (sans les balises [CODE], tu va te faire enguirlander!!!) qui traine, et c'est tout....

ET si tu es debutant VB, va sur Le tuto VB. Tu y trouvera surement ton bonheur et plein d'autre chose.

Nasty

[Teomistre]

Excuse moi pour les balises et si je n'ai pas était clair,
J'ai des variables globales que je ne veux pas mettre dans un tableau
HeureDebut1, HeureFin1,etc....

Je voudrais concaténer une String et un chiffre du genre "HeureDebut" et 1.
Or le résultat de cette concaténation est une string "HeureDebut1"
Mais pas ma variable globale.

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
 
 Dim HeureDebutCuis1, HeureDebutCuis2, HeureDebutCuis3, HeureDebutAss1, HeureDebutAss2, HeureDebutAss3, HeureDebutLiv1, HeureDebutLiv2, HeureDebutLiv3, HeureDebutLiv4, HeureDebutLiv5, HeureDebutLiv6, HeureDebutLiv7, HeureDebutLiv8 As DateTime
 Dim HeureFinC1, HeureFinC2, HeureFinC3, HeureFinA1, HeureFinA2, HeureFinA3, HeureFinL1, HeureFinL2, HeureFinL3, HeureFinL4, HeureFinL5, HeureFinL6, HeureFinL7, HeureFinL8 As DateTime
 
 
Private Sub RemplirPrestation(ByVal DatePrestation As DateTime, ByVal dispo As Integer)
        Dim Employe As Integer
        Dim HeureDebAss, HeureFinA, HeureAccueil As String
 
 
        MonJeuDeDonnees.Tables.Clear()
        MaRequete = "Select Employe.identifiant from Employe,EstDispo where Employe.identifiant = EstDispo.identifiant and fonction = 'Accueil' and dispo = " & dispo & ""
        MaCommandeSpecialRequete.CommandText = MaRequete
        MonRemplisseur.SelectCommand = MaCommandeSpecialRequete
        MonRemplisseur.Fill(MonJeuDeDonnees, "MesAccueilsDispos")
        For cnt = 1 To NbAccueil
            Employe = MonJeuDeDonnees.Tables("MesAccueilsDispos").Rows(cnt - 1).Item(0)
            HeureDebAss = "HeurDebAss" & cnt
            HeureFinA = "HeureFinA" & cnt
            HeureAccueil = "HeureAccueil" & cnt
            DateCa = DateCa.Date
 
 
MaRequete = "Insert into Prestation Values (" & DateCa & "," & dispo & "," & Employe & "," & HeureDebAss & "," & HeureFinA & ", " & HeureAccueil & ")"
            MaCommandeSpecialRequete.CommandText = MaRequete
            MaCommandeSpecialRequete.ExecuteNonQuery()

[Kropernic]

Je n'ai pas compris grand chose non plus ^^

Donne un exemple brut de ta requête comme si tu la faisais directement dans le gestionnaire de base de données et indique nous quelle partie te pose problème lors de la transposition dans ton code.

[sebnantes]

Alors déjà ta requête Insert est fausse, il faut bien que tu lui précises les champs dans lesquelles tu veux placer les valeurs ^^
C'est plus un truc du genre :

Code :

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

Insert into Prestation Values (variable1, variable2,....) VALUES (" & DateCa & "," & dispo & "," & Employe & "," & HeureDebAss & "," & HeureFinA & ", " & HeureAccueil & ")"

[Kropernic]

Alors déjà ta requête Insert est fausse, il faut bien que tu lui précises les champs dans lesquelles tu veux placer les valeurs ^^
C'est plus un truc du genre :

Code :

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

Insert into Prestation Values (variable1, variable2,....) VALUES (" & DateCa & "," & dispo & "," & Employe & "," & HeureDebAss & "," & HeureFinA & ", " & HeureAccueil & ")"

Que nenni ! Tu peux ommettre de préciser les champs à insérer si tu suis l'ordre des champs de la table ^^

source : ici

[Teomistre]

Code :

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

1
2
 
Insert into Prestations Values ( 3/Jan/2011, midi, 9, 11:00,14:00,3)

J'insere a une date donnée, pour un employé, une heure de début et une heure de fin, ainsi qu'un nombre d'heure

Le probleme c'est que mes heures de début et de fin sont stocké dans des variables globales et que je voudrais boucler pour ne pas avoir a écrire cette requete beaucoup de fois.

Mon champ Heure de Début provient d'une concaténation d'une chaine et d'un nombre. OR si je place ce résultat dans ma requette j'ai une valeur string du meme nom que ma variable mais qui n'est pas cette variable...
Je sais pas si je suis clair..

Code :

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

1
2
3
 
Dim HeureDebut1,HeureDebut2,HeureDebut3.. as datetime 
HeureDebut1 = 11:00

Mes Variables Globales

Code :

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

1
2
3
4
 
Dim HeureDebut as string
For cnt = 1 To 10
  HeureDebut = "HeureDebut" & Cnt

Et la j'utilise HeureDebut Dans ma requete qui devrait valoir 11:00 mais qui vaut "HeureDebut1"

[Kropernic]

Aaaaaaaaaaaaah ! Ca y est, j'ai compris !!

Pourquoi est-ce que tu n'utilises pas plutot un tableau ?

Code :

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

1
2
3
4
dim heuredebut() as datetime
heuredebut(0) = 11:00
heuredebut(1) = 12:00
'etc

Ensuite tu fais une boucle et tu peux extraire tes heures.

Ce ne serait pas plus simple comme ça ?

[Teomistre]

Effectivement ça parait beaucoup plus simple comme cela,
Par contre le code que tu m'as donné ne fonctionne pas..
J'obtient une erreur quand j'essaie de faire :

Code :

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

1
2
3
4
 
 
 Dim HeureCuisinier() as Double
HeureCuisinier(0)  =  3

La référence d'objet n'est pas définie à une instance d'un objet.....

Même Erreur sur un tableau Datetime

[Sehnsucht]

Bonjour,

En l'état le tableau est juste déclaré, non pas initialisé, pour ce faire il faut lui spécifier une taille si elle est connue ou si elle ne l'est pas passer par une collection dynamique:

Code :

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

1
2
3
4
5
6
 
Dim HeureCuisinier(9) As Double 'Initialise un tableau de 10 (de 0 à 9) Double
HeureCuisinier(0) = 3 'etc.
'ou si taille non connue
Dim HeureCuisinier As New List(Of Double)()
HeureCuisinier.Add(3) 'etc.

Cordialement !