SQL et VB.NET

**jolona** · 02/02/2011, 12h14

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 :

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
   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 :

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

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 :

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

 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 ???

**peregna2007** · 02/02/2011, 13h12

Quel message il t'affiche lorsqu'il se bloque ?

**jolona** · 02/02/2011, 13h17

rien il est inerte, lol il bloque sur la ligne et je suis obliger de l'arrêter manuellement

**sevyc64** · 02/02/2011, 13h23

Ces 3 lignes là :

Code :

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

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

**jolona** · 02/02/2011, 13h47

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

Code :

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

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

et mon code doit merder

**alex61** · 02/02/2011, 14h13

tu doit surement ouvrir la connexion avant d'exécuter ta requête

Code :

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

1
2
 ObjetCommand.open()
ObjetCommand.ExecuteNonQuery()

et aprés la fermer avec .close

cordialement

**jolona** · 02/02/2011, 14h25

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

**alex61** · 02/02/2011, 14h33

d accord

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 !

**jolona** · 02/02/2011, 14h43

non .body.ToString ne marche pas, non j'ai aucun message d'erreur, il reste figer sur la command et rien

**alex61** · 02/02/2011, 14h46

ta essayé d'afficher .body ?

**jolona** · 02/02/2011, 15h01

oui .body... j'affiche bien

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

Erreur de syntaxe (opérateur absent) dans l'expression ''PLUS D'ESSENCE', 'essence', 'VITU'.

**alex61** · 02/02/2011, 15h08

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

c'est enregistrer dans outlook ca ?

**jolona** · 02/02/2011, 15h08

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

[IMG]

[/IMG]

**jolona** · 02/02/2011, 15h09

c'est pas <'> d'essence qui merde

**alex61** · 02/02/2011, 15h09

essaye de remplacer les ' par des espace grâce a body.substring("'" , " ")

**jolona** · 02/02/2011, 15h11

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

**jolona** · 02/02/2011, 15h14

ok, je l'ai fais:

Code :

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

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