Discussion :

[philo_neo]

bonjour,
j'utilise Visual Basic de Visual Studio 2012 ultimate, ma base de donné est un Mysql 5.6 sous BSD,

1/ Mes requètes SELECT et DELETE marchent très bien, mais pour le UPDATE j'ai des problémes de convertions de format de la Date, je croyais que MySql attendait ce format suivant : "YYYY-MM-DD", mais ce n'est pas le cas !
par défault le champ est a "NULL". voici ma 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
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
52
53
54
   ''''********* update // mise a jour
 
 
        Dim num As Integer
        Dim code_cl As String
        Dim raison_sociale As String
        Dim code_postal As String
        Dim ville As String
        Dim immat_tva As String
        Dim regime_tva As String
        Dim date_creation As Date
        Dim date_modif As Date
        Dim tiers_mi_sommeil As String
        Dim pays As String
        Dim adresse1 As String
        Dim adresse2 As String
        Dim adresse3 As String
        Dim text_lib_tiers1 As String
        Dim text_lib_tiers2 As String
        Dim text_lib_tiers3 As String
        Dim tiers_bloque As String
 
        num = Convert.ToInt32(Me.TextBox20.Text)
        code_cl = Trim(Me.TextBox3.Text)
        raison_sociale = Trim(Me.TextBox4.Text)
        code_postal = Trim(Me.TextBox5.Text)
        ville = Trim(Me.TextBox6.Text)
        immat_tva = Trim(Me.TextBox7.Text)
        regime_tva = Trim(Me.TextBox8.Text)
        date_creation = Convert.ToDateTime(TextBox9.Text).ToString("yyyy-MM-dd")
        ' date_creation = Convert.ToDateTime(Me.TextBox9.Text)
        date_modif = Convert.ToDateTime(TextBox10.Text).ToString("yyyy-MM-dd")
        ' date_modif = Convert.ToDateTime(Me.TextBox10.Text)
        tiers_mi_sommeil = Trim(Me.TextBox11.Text)
        pays = Trim(Me.TextBox12.Text)
        adresse1 = Trim(Me.TextBox13.Text)
        adresse2 = Trim(Me.TextBox14.Text)
        adresse3 = Trim(Me.TextBox15.Text)
        text_lib_tiers1 = Trim(Me.TextBox16.Text)
        text_lib_tiers2 = Trim(Me.TextBox17.Text)
        text_lib_tiers3 = Trim(Me.TextBox18.Text)
        tiers_bloque = Convert.ToString(Trim(Me.TextBox19.Text))
 
        Dim northwindConnection As New MySqlConnection(connectionString)
        num = Str(Me.TextBox20.Text)
 
        Dim strSQL As String = _
                   "update tlb_client set code_cl='" + code_cl + "', raison_sociale='" + raison_sociale + "', code_postal='" + code_postal + "', ville='" + ville + "', immat_tva=" + immat_tva + "', regime_tva=" + regime_tva + "', date_creation=" + date_creation + "', date_modif=" + date_modif + "', tiers_mi_sommeil=" + tiers_mi_sommeil + "', pays=" + pays + "', adresse1=" + adresse1 + "', adresse2=" + adresse2 + "', adresse3=" + adresse3 + "', text_lib_tiers1=" + text_lib_tiers1 + "', text_lib_tiers2=" + text_lib_tiers2 + "', text_lib_tiers3=" + text_lib_tiers3 + "', tiers_bloque='" + tiers_bloque + " where idtbl_client=" + Trim(Str(num))
 
 
        northwindConnection.Open()
        cmd.ExecuteNonQuery()
 
        northwindConnection.Close()

quel format de date faut t'il introduire dans la base MySql ?
------------------------------------------------------------------------------------------------------------------------

2/ Mon TFS 2012 est installer sur un windows serveur 2012 64bit et SQL Server 2012, afin Visual Studio 2012 ultimate.
j'ai les options dans les workspaces :
-Checkin
-get lastest version
- etc ...

Mais ma solution n'est pas sur le TFS, comment introduire la solution sur TFS ?
Faut t'il créé une collection ?

CDLT,
Philippe

[rv26t]

Bonjour,

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.
Note : pour la concaténation de chaîne en VB on utilise le caractère &.

[_Ez3kiel]

Bonjour,

Pour ta 1ère question, je ne répondrais pas mieux qu'rv26t, requête paramétrée.

Pour la 2nd question, dans ton explorateur du contrôle de code source (supposant que tu t'es au préalable logué sur ton TFS, et qu'il existe au moins un projet de créé sur ce dernier), tu as ce bouton sur la barre du haut (5éme bouton) pour te permettre d'ajouter tes fichiers au contrôle de code source. Tu auras à renseigner où le placer dans le TFS ($/TonProjet/DossierXXXX) quand au dossier de destination(lorsque tu chargeras ton code) il ira dans le workspace que tu as défini au paramétrage du TFS. (Voir ton mappage)

[philo_neo]

bonsoir,
oui, je vais programmer des procedures stoquées en SQL. Merci.

Suite à vos réponse c'est sur le PC 1 , PC 2 , PC3, les stations de développements j'ai appliqué le 5ième élément de la "toolbar" :
développment client Sur Pc1 la solution dans le repèrtoire labservice0-21, pour le développement du winform client, la solution est sur le TFS !
développment Article Sur Pc2 la solution dans le repèrtoire labservice0-21, pour le développement du winform Article la solution à étais écrasée. Le winform article a disparue de la solution local ! même avec un checkin auparavant executé sur le winform article.
développment commande sur le Pc3, je n'ose pas aller plus loin !

Cdlt,
Philippe

[_Ez3kiel]

bonsoir,
oui, je vais programmer des procedures stoquées en SQL. Merci.

Attention on parlait de requêtes paramétrées (sous Vb.NET) et non de procédure PL-SQL ou T-SQL ou autre.
Par exemple :

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
                req = "UPDATE PERSONNE SET NOM= :nom, PRENOM= :prenom WHERE NM_IDENTIF_PERSONNE= :id"
 
                updateCommand = New OleDbCommand(req, con)
 
                With updateCommand.Parameters
                    .Add(New OleDbParameter(":nom", OleDbType.BSTR))
                    .Add(New OleDbParameter(":prenom", OleDbType.BSTR))
                    .Add(New OleDbParameter(":id", OleDbType.Integer))
                End With
 
 
                With updateCommand
                    .Parameters(":nom").Value = formaterCaracteresSpeciaux(listePERSONNE(listePERSONNE.Keys(i))(0)).ToUpper
                    .Parameters(":prenom").Value = formaterCaracteresSpeciaux(listePERSONNE(listePERSONNE.Keys(i))(1)).ToUpper
                    .Parameters(":id").Value = listePERSONNE.Keys(i)
                End With
 
                updateCommand.ExecuteNonQuery()

(Attention le code peut changer, ici c'est adapté pour une base Oracle avec OleDB)
Pour plus d'infos voir les liens d'rv26t.

Suite à vos réponse c'est sur le PC 1 , PC 2 , PC3, les stations de développements j'ai appliqué le 5ième élément de la "toolbar" :
développment client Sur Pc1 la solution dans le repèrtoire labservice0-21, pour le développement du winform client, la solution est sur le TFS !
développment Article Sur Pc2 la solution dans le repèrtoire labservice0-21, pour le développement du winform Article la solution à étais écrasée. Le winform article a disparue de la solution local ! même avec un checkin auparavant executé sur le winform article.
développment commande sur le Pc3, je n'ose pas aller plus loin !

J'ai un peu de mal à saisir ...

PC1 travaillera sur un projet 'Client' qui sera dans le TFS.
PC2 travaillera sur un projet 'Article' qui sera dans le TFS.
PC3 travaillera sur un projet 'Commande' qui sera dans le TFS.

Jusque là j'ai bon ?

Dans ton TFS, tu as une collection de projets d'équipe 'xxx', et pour xxx tu as 3 projets ? (Client / Article / Commande)
Chaque projet dans le TFS contient une application en cours de développement (incluant .sln, .vbproj, bin, debug etc) ?

Dans Visual Studio, PC1 se connecte à la collection xxx puis à son projet Client ?
Dans Visual Studio, PC2 se connecte à la collection xxx puis à son projet Article ?
Dans Visual Studio, PC3 se connecte à la collection xxx puis à son projet Commande ?

PC1, PC2 et PC3 ont tous un dossier workspace nommé labservice0-21 qui leur est propre sur le poste ? (Le dossier vers lequel le TFS déposera l'application du projet à développer)

[philo_neo]

bonjour,

J'ai un peu de mal à saisir ...

PC1 travaillera sur un projet 'Client' qui sera dans le TFS.
PC2 travaillera sur un projet 'Article' qui sera dans le TFS.
PC3 travaillera sur un projet 'Commande' qui sera dans le TFS.

>> Enfaite c'est le meme projet avec un Main winform avec un menu pour appeler les winform : article, client, commande, ils sont >> simplement répartie sur les 3 PCs de developpement.

Jusque là j'ai bon ?

Dans ton TFS, tu as une collection de projets d'équipe 'xxx', et pour xxx tu as 3 projets ? (Client / Article / Commande)
Chaque projet dans le TFS contient une application en cours de développement (incluant .sln, .vbproj, bin, debug etc) ?

>> J'ai un seul projet avec plusieurs modules dont : article, client, commande.

Dans Visual Studio, PC1 se connecte à la collection xxx puis à son projet Client ?
>> la meme collection !
Dans Visual Studio, PC2 se connecte à la collection xxx puis à son projet Article ?
Dans Visual Studio, PC3 se connecte à la collection xxx puis à son projet Commande ?

PC1, PC2 et PC3 ont tous un dossier workspace nommé labservice0-21 qui leur est propre sur le poste ? (Le dossier vers lequel le TFS déposera l'application du projet à développer)

Je ne savais pas qu'il y as une technique de programmation requètes paramétrèes de cette sorte, vraiment j'apprécis.
Mais avec la connection oleDB sous MySql 5.6, je trouve pas la bonne commande.

CDLT
Philippe

[_Ez3kiel]

Je suis peut-être un peu mou d'esprit ou certains termes techniques sont mal employé ici mais j'ai toujours du mal à visualiser.

Surtout avec cette phrase :

Enfaite c'est le meme projet avec un Main winform avec un menu pour appeler les winform : article, client, commande, ils sont >> simplement répartie sur les 3 PCs de developpement.

En synthétisant, vous avez une unique 'Solution' (je parle du fichier .sln) qui comprend 3 projets (je parle des fichiers.vbproj) et qui est sur le TFS accessible à PC1 ,2 et 3. C'est ça ?

Mais avec la connection oleDB sous MySql 5.6, je trouve pas la bonne commande.

Peut-on voir le code que vous avez essayé ? Sans ce dernier il sera difficile de vous guider ...