SQL et VB.NET

Version imprimable

SQL et VB.NET

Bonjour j'ai un petit problème d'"insert into" dans une table, j'importe le calendrier de outlook, je fais une boucle FOR ... NEXT pour copier les éléments dans ma table voici un extrait de mon code:

Code:

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
   For i = 1 To lngItemCount
 
            On Error Resume Next
            objItem = oCal.Items(i)
            On Error GoTo 0
 
            If Not objItem Is Nothing Then ' this is an appointment item
 
                With objItem
                    début = Format(.Start, "dd/mm/yyyy hh:mm") 'Début
                    fin = Format(.End, "dd/mm/yyyy hh:mm") ' Fin
                    date1 = Format(.End, "dd/mm/yyyy") ' Date
                    duree = Format((.Duration / 1440) / 1, "hh:mm") ' Durée
                    objet = .Subject ' Objet
                    nom = .Location ' Nom
                    de = .Organizer ' De
                    body = Replace(.Body, "&0A", vbCrLf) 'Contenu
                    categories = .Categories ' Categories
                End With
 
                'objItem = Nothing
            End If
            'Instancier un objet Commande
            ObjetCommand = New OleDbCommand
            ObjetCommand.Connection = ObjetConnection
            ObjetCommand.CommandType = CommandType.Text
            ObjetCommand.CommandText = "INSERT INTO Calendar_net ( [Date], [début], [Fin], [Durée], [Objet], [Nom], [De], [Contenu], [Categories] ) VALUES ('" & date1 & "', '" & début & "', '" & fin & "', '" & duree & "', '" & objet & "', '" & nom & "', '" & de & "', '" & body & "', '" & categories & "')"
            ObjetCommand.ExecuteNonQuery()
 
            tmp = tmp + 1 '(oItems.Count / 8) 
            ProgressBar1.Value = tmp
 
            ' Nettoyage
            oApp = Nothing
            oNS = Nothing
            début = Nothing
            fin = Nothing
            date1 = Nothing
            duree = Nothing
            objet = Nothing
            nom = Nothing
            de = Nothing
            body = Nothing
            categories = Nothing
 
        Next i

j'ai un problème avec:

Code:

ObjetCommand.CommandText = "INSERT INTO Calendar_net ( [Date], [début], [Fin], [Durée], [Objet], [Nom], [De], [Contenu], [Categories] ) VALUES ('" & date1 & "', '" & début & "', '" & fin & "', '" & duree & "', '" & objet & "', '" & nom & "', '" & de & "', '" & body & "', '" & categories & "')"

si je laisse les VALUES en variable, il me fait un 1er traitement, il va jusqu'à "Next i" puis remonte à "For i" il lit tout jusqu'à "ObjetCommand.ExecuteNonQuery()" et sur la commande il bloque...

si je change ma commande et je remplace les variables par du texte:

Code:

 ObjetCommand.CommandText = "INSERT INTO Calendar_net ( [Date], [début], [Fin], [Durée], [Objet], [Nom], [De], [Contenu], [Categories] ) VALUES ('09/15/2010', '09/30/2010 02:30', '09/15/2010 04:15', 'h:mm', '0000000', 'non de l'article', 'name', '', 'derniere minute')"

la ca marche, j'ai 100 lignes identique dans ma table mais ca marche,

je sais pas trop, mais j'ai l'impression qu'en mettant à jour les variables il bug ???

02/02/2011, 13h12
peregna2007

Quel message il t'affiche lorsqu'il se bloque ?
02/02/2011, 13h17
jolona

rien il est inerte, lol il bloque sur la ligne et je suis obliger de l'arrêter manuellement
02/02/2011, 13h23
sevyc64
Ces 3 lignes là :
Code:

1 2 3 ObjetCommand = New OleDbCommand ObjetCommand.Connection = ObjetConnection ObjetCommand.CommandType = CommandType.Text
sont à mettre en dehors de la boucle For.

Dans ton cas, la ligne suivante (avec la requete) pourrait elle-aussi être mise en dehors de la boucle si tu utilisait une requete paramétrée.

Et indique le message d'erreur que tu obtiens que l'on y voie plus clair.

Et supprime aussi les 2 "On Error ...". On utilise plus ça en .Net
02/02/2011, 13h47
jolona

Je crois que c'est parce que dans le item '.Body' j'ai un élément qui est avec plusieurs sauts de ligne...

Code:

body = Replace(.Body, "&0A", vbCrLf) 'Contenu

et mon code doit merder
02/02/2011, 14h13
alex61
tu doit surement ouvrir la connexion avant d'exécuter ta requête
Code:

1 2 ObjetCommand.open() ObjetCommand.ExecuteNonQuery()
et aprés la fermer avec .close

cordialement
02/02/2011, 14h25
jolona

non pour la connection je l'ouvre et ferme qu'une seule fois et c'est en dehors de ma boucle, je crois que ça vient du .body
02/02/2011, 14h33
alex61

d accord

Citation:

Je crois que c'est parce que dans le item '.Body' j'ai un élément qui est avec plusieurs sauts de ligne...

essaye de mettre body.ToString et vérifie que ta base peut enregistrer toute la chaine en fonction du nombre de caractère

t'es sur qu'il ne te met aucun message d'erreur ? c'est très bizarre tout ca !
02/02/2011, 14h43
jolona

non .body.ToString ne marche pas, non j'ai aucun message d'erreur, il reste figer sur la command et rien
02/02/2011, 14h46
alex61

ta essayé d'afficher .body ?
02/02/2011, 15h01
jolona

oui .body... j'affiche bien

j'ai reussi a avoir un message d'erreur, lol en lancant le Release:

Citation:

Erreur de syntaxe (opérateur absent) dans l'expression ''PLUS D'ESSENCE', 'essence', 'VITU'.
02/02/2011, 15h08
alex61

ca commence par une double quote et ca finit par un quote simple ?!?

c'est enregistrer dans outlook ca ?
02/02/2011, 15h08
jolona

voici l'erreur d'execution + le fichier de mon agenda, je vois pas trop ce qui bloque là:

[IMG]http://nsa25.casimages.com/img/2011/...0743869687.jpg[/IMG]
02/02/2011, 15h09
jolona

c'est pas <'> d'essence qui merde
02/02/2011, 15h09
alex61

essaye de remplacer les ' par des espace grâce a body.substring("'" , " ")
02/02/2011, 15h11
jolona

oui c'est ca j'ai enlever le <'> et ca passe, je peux pas l'enlever de tout mais message, y a pas un truc pour ca

ok, je l'ai fais:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 With objItem
                    début = .Start 'Format(.Start, "dd/MM/yyyy H:mm") 'Début
                    fin = .End 'Format(.End, "dd/MM/yyyy H:mm") ' Fin
                    date1 = Format(.End, "dd/M/yyyy") ' Date
                    duree = Format((.Duration / 1440) / 1, "H:mm") ' Durée
                    objet = .Subject ' Objet
                    nom = .Location.Substring("'", " ") ' Nom
                    de = .Organizer ' De
                    body = Replace(.Body.Substring("'", " "), "&0A", vbCrLf) 'Contenu
                    'Rs!Contenu = strTemp 
                    categories = .Categories.Substring("'", " ") ' Categories
                End With

du coup maintenant j'ai :

Citation:

La conversion de la chaîne "'" en type 'Integer' n'est pas valide. ---> System.FormatException: Le format de la chaîne d'entrée est incorrect.

02/02/2011, 15h16
alex61

regarde le format ta colonne dans ta ta table
02/02/2011, 15h18
jolona

je suis en mémo pour tout sauf la date1

c'est le

Citation:

.Substring("'", " ")

qui fou la merde
02/02/2011, 15h34
alex61

hé bien c'est autre chose que les quote qui font tout planter
02/02/2011, 15h49
jolona
c'est correct comment je l'ai mis? le .location ok, mais le body... mais bon j'ai l'erreur dès qu'il passe sur le .location
Code:

1 2 3 nom = .Location.Substring("'", " ") ' Nom de = .Organizer ' De body = Replace(.Body.Substring("'", " "), "&0A", vbCrLf) 'Contenu
en faite, il ne doit pas aimer la conversion ?
02/02/2011, 16h22
sinople

Il s'agit de guillemets simple qui font planter ta requête (car il détermine la fin d'une zone de texte sous une requête Access). Il faut pour ceci échapper chaque variable qui sert pour un champ texte de la façon suivante:

Code:

nom.Replace("'","''")

Replacer tout les guillement simple par 2 guillemets simple (ce qui écrira un guillement dans votre champs.

Le replace doit être un reflexe si vous écrivez des requêtes à la main avec des champs string car c'est une porte ouverte au injection SQL!

voici mon code c'est tordu quand même....

Code:

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
With objItem
                    début = .Start 'Format(.Start, "dd/MM/yyyy H:mm") 'Début
                    fin = .End 'Format(.End, "dd/MM/yyyy H:mm") ' Fin
                    date1 = Format(.End, "dd/M/yyyy") ' Date
                    duree = Format((.Duration / 1440) / 1, "H:mm") ' Durée
                    objet = .Subject ' Objet
                    Try
                        objet = .Subject.Replace("'", "''")
                    Catch
                    End Try
                    nom = .Location ' Nom
                    Try
                        nom = .Location.Replace("'", "''")
                    Catch
                    End Try
                    de = .Organizer ' De
                    Try
                        body = .Body.Replace("'", "''")
                    Catch
                    End Try
 
                    body = Replace(.Body, "&0A", vbCrLf) 'Contenu
                    Try
                        categories = .Categories.Replace("'", "''")
                    Catch
                    End Try
                    categories = .Categories ' Categories
                End With

02/02/2011, 21h20
Sankasssss
Bonsoir,
je suis pas d'accord sur le fait d'appliquer des replaces partout car ca ne gère pas tous les problème, la bonne méthode a déjà été donnée par sevyc64, c'est les requêtes paramétrée :
Citation:
Envoyé par sevyc64

Ces 3 lignes là :

Code:

1 2 3 ObjetCommand = New OleDbCommand ObjetCommand.Connection = ObjetConnection ObjetCommand.CommandType = CommandType.Text

sont à mettre en dehors de la boucle For.

Dans ton cas, la ligne suivante (avec la requete) pourrait elle-aussi être mise en dehors de la boucle si tu utilisait une requete paramétrée.

Et indique le message d'erreur que tu obtiens que l'on y voie plus clair.

Et supprime aussi les 2 "On Error ...". On utilise plus ça en .Net
Quand un membre expert qui à 1 618 Messages et 2 419 Points intervient dans ton post, essaye de l'écouter car on apprend beaucoup de ces personnes...

Donc sort de ta routine la création de la commande, tjs en dehors, crées les paramètres et dans ta routine il te suffira de remplir les paramètre et de faire un ExecuteNonQuery.

C'est bien plus propre et performant...

voici le code que j'utilise:

Code:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 Sub Import_Outlook()
 
        Timer1.Enabled = False
 
        ' Create Outlook Application
        Dim oApp As Outlook.Application = New Outlook.Application()
 
        ' Get Mapi NameSpace and Logon
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI")
        oNS.Logon("", "", False, True) ' TODO:
 
        ' Get all the appointments from Calendar folder
        Dim oCal As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
        Dim oItems As Outlook.Items = oCal.Items
        MsgBox("Totall : " & oItems.Count)
 
        Dim sSearch As String
        ' Use Restrict method
        sSearch = "[Start] >= '" & Fdate & " 08:00 AM' and [Start] <= '01/12/3000 08:00 AM'" 'Cherche tous les enregistrement depuis la dernière mis à jour
        oItems = oItems.Restrict(sSearch)
        MsgBox("Totall Restricted : " & oItems.Count)
 
        tmp = 0
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = oItems.Count
 
        Dim oAppointment As Outlook.AppointmentItem
        Dim i As Integer
 
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\data\Calendar_net.mdb;"
        ObjetConnection = New OleDbConnection
 
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
 
        'Ouvrir la connexion
        ObjetConnection.Open()
 
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand
        ObjetCommand.Connection = ObjetConnection
        ObjetCommand.CommandType = CommandType.Text
 
        ' Loop each item under Restrict
        For i = 1 To oItems.Count
            oAppointment = oItems.Item(i)
 
            If Not oAppointment Is Nothing Then ' this is an appointment item
 
                With oAppointment
                    début = .Start 'Format(.Start, "dd/MM/yyyy H:mm") 'Début
                    fin = .End 'Format(.End, "dd/MM/yyyy H:mm") ' Fin
                    date1 = Format(.End, "dd/M/yyyy") ' Date
                    duree = Format((.Duration / 1440) / 1, "H:mm") ' Durée
                    objet = .Subject ' Objet
                    Try
                        objet = .Subject.Replace("'", "''")
                    Catch
                    End Try
                    nom = .Location ' Nom
                    Try
                        nom = .Location.Replace("'", "''")
                    Catch
                    End Try
                    de = .Organizer ' De
 
                    Try
                        body = .Body.Replace("'", "''")
                    Catch
                    End Try
 
                    body = Replace(.Body, "&0A", vbCrLf) 'Contenu
                    Try
                        categories = .Categories.Replace("'", "''")
                    Catch
                    End Try
                    categories = .Categories ' Categories
                End With
                oAppointment = Nothing
            End If
 
            'Instancier un objet Commande
            ObjetCommand.CommandText = "INSERT INTO Calendar_net ( [Date], [début], [Fin], [Durée], [Objet], [Nom], [De], [Contenu], [Categories] ) VALUES ('" & date1 & "', '" & début & "', '" & fin & "', '" & duree & "', '" & objet & "', '" & nom & "', '" & de & "', '" & body & "', '" & categories & "')"
            ObjetCommand.ExecuteNonQuery()
 
            tmp = tmp + 1
            ProgressBar1.Value = tmp
 
        Next i 'TODO pause
 
        ' Logoff
        oNS.Logoff()
 
        ' Clean Up
        oApp = Nothing
        oNS = Nothing
        oItems = Nothing
        oAppointment = Nothing
    End Sub

dans ma boucle For il y a l'attribution des valeurs aux variables et l'exécution de la commande !!!
J'ai encor des erreurs sur des messages !!!

[IMG]http://nsa26.casimages.com/img/2011/...0635435386.jpg[/IMG]

Je pige pas trop car j'ai .replace de ca ' et là dans mon cas c'est le ' de " l'atelier " qui merde....

03/02/2011, 08h48
sinople

Citation:

Envoyé par sinople

Il s'agit de guillemets simple qui font planter ta requête (car il détermine la fin d'une zone de texte sous une requête Access). Il faut pour ceci échapper chaque variable qui sert pour un champ texte de la façon suivante:

Code:

nom.Replace("'","''")

Replacer tout les guillement simple par 2 guillemets simple (ce qui écrira un guillement dans votre champs.

Le replace doit être un reflexe si vous écrivez des requêtes à la main avec des champs string car c'est une porte ouverte au injection SQL!

Je me corrige moi même ce que j'ai donné comme code c'est pour une base de donnée Access et non pas SQL SERVER ou dans ce cas il est conseillé d'utiliser les requêtes paramétrées.

Je crois savoir pourquoi ca deconne:

dans mon .body j'ai plusieurs lignes donc en fait je crois que le .body.Replace("'","''") marche uniquement sur la première ligne et non sur la 2eme, 3eme, etc...

en fait je fais ca et ca a l'air de marcher j'ai inverser les deux:
Code:

1 2 3 4 5 body = Replace(.Body, "&0A", vbCrLf) 'Contenu Try body = .Body.Replace("'", "''") Catch End Try

Bonjour,

Tu devrais essayer d'utiliser des requêtes paramétrées. Tu ne devrait plus avoir de problèmes avec les quotes et les champs de type date.

tu devrais avoir un truc de ce genre:
Code:

1 2 3 4 5 6 7 8 9 ObjetCommand.CommandText = "INSERT INTO Calendar_net ( [Date], [début], [Fin], [Durée], [Objet], [Nom], [De], [Contenu], [Categories] ) VALUES ( @Date, @debut, @Fin, @Durée, @Objet, @Nom, @De, @Contenu, @Categories)" ObjetCommand.Parameters.Add("@date",OleDbType.Date ).Value = date ObjetCommand.Parameters.Add("@debut",OleDbType.varchar ).Value = debut ... ObjetCommand.executenonquery()
faudra initialiser tous les paramètres avant de faire la executenonquery()
Voila un tuto contenant les requetes paramétrées
http://faqvbnet.developpez.com/?page=adonet

03/02/2011, 12h31
jolona

ok merci, c'est cool je ne connaissais pas,

sinon vers le debut de mon code j'ai ca:

Code:

sSearch = "[End] >= '" & Fdate & "' and [End] <= '01/12/3000 08:00 AM'"

ce qui me permet de trier les item par date ".End"...

Fdate = "01/01/2000 08:00 AM"

j'aimerais recureper si c'est possible dans une variable la valeur de la date la plus recente que je filtre avec search?
03/02/2011, 15h23
ah_maht

Je comprend pas bien... tu as besoin de recupérer la date du jour courant? si c'est le cas alors tu devrais essayer Date.now

J'ai créé une key registre où je rentre la date d'éxécution de mon application.

Au lancement de mon application je fais un test pour savoir si ma key existe...si non je crais donc une key avec une date anterieur...:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub LireReG() key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\JVI\Outlook into Access\") If key Is Nothing Then key = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\JVI\Outlook into Access\") key.SetValue("date", "01/01/2000 08:00 AM") Fdate = CType(key.GetValue("date"), String) Else Fdate = CType(key.GetValue("date"), String) End If End Sub
ma valeur par default au tout premier lancement est :"01/01/2000 08:00 AM" que j'attribu à "Fdate"

donc le but est que je tris les entrées entre "Fdate" et "dateofYesterday" qui elle est egal à aujourd'hui moins 1 jour

Code:

sSearch = "[End] >= '" & Fdate & "' and [End] <= '" & dateofYesterday & "'"

une fois que mon application est lancer et fermer, ma Key prend la valeur de "dateofYesterday", donc si je lance deux fois mon application il devrait tout copier la première fois et la deuxième rien copier... car c'est la même date...

le probleme c'est que, mon format de date est comme celui ci:"01/01/2000 08:00 AM", j'ai des données où il n'y a pas d'heures donc format comme celui ci "01/01/2000" et du coup quand je relance mon application il me recopi a chaque fois toutes ces données!!!

???

12/02/2011, 14h55
jolona

bon en fait c'est pas tres grave car les données qu'il me copie en double c'est uniquement ceux qui sont toute la journée...