Discussion :

[Starnice]

Bonjour tout le monde.

Habituellement, je fais des requête à l'aide de SQLPlus puis importe et gère les données à l'aide de macros sous Excel.
Néanmoins, je me rends compte qu'un grand nombre de données rends l'exécution des macros sous Excel assez lente et la consultation des données fastidieuse.
Je me suis donc décidé à passer à VB.Net avec Visual Basic Express 2010.

J'ai recherché et suivi des tutoriels afin de créer une base de données locale, avec SQL Serveur Compact, qui semble correspondre tout à fait à ce genre de travaux.
Mais me voici bloqué (déjà) à l'insertion des données dans la BDD...

Pour résumé ce que je veux faire, il s'agit donc de recueillir les données obtenues au format "txt" pour les mettre dans cette BDD locale.
J'ai donc créé un DataSet, puis créé plusieurs tables. Et maintenant, j'essaye d'entrer certaines des données recueillies dans une des tables.
J'ignore si la méthode que j'utilise est la bonne. En tout cas, je vous remercie par avance pour toute aide ou suggestion.

Voici le code utilisé actuellement (il me met une erreur sur le '.Add' mais j'ignore comment la corriger) :

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
Imports System.IO
 
Module Procedures
 
    ''' <summary>
    ''' Procédure permettant d'ouvrir et d'insérer les données provenant de la requête.
    ''' </summary>
    ''' <remarks></remarks>
    Sub Insertion_Resultats_Requete()
 
        Const resultats_540 As String = "D:\Coffre\Travail\3-Requetes\021-0000540\Resultats_540.txt"
 
        Dim tmp_ligne() As String
        Dim debut_resultats As Boolean = False
 
        For Each ligne As String In File.ReadLines(resultats_540)
            If debut_resultats Then
                tmp_ligne = Split(ligne, ";")
                _540_BDDDataSet.Infos_DRGDataTable.Add(tmp_ligne(24),
                                                       tmp_ligne(25),
                                                       tmp_ligne(26),
                                                       tmp_ligne(27),
                                                       tmp_ligne(28),
                                                       tmp_ligne(29),
                                                       tmp_ligne(30),
                                                       tmp_ligne(4) & tmp_ligne(12)
                                                       )
            Else
                debut_resultats = ligne.Contains("NORME")
            End If
        Next
 
    End Sub
 
End Module

[Pol63]

si tu as un message d'erreur, ne crois tu pas qu'il serait utile de préciser lequel ici ?

je ne suis pas très dataset donc je ne pourrais t'aider à ce niveau là, ce n'est pas la meilleure manière de faire (ce n'est pas forcément une mauvaise manière non plus, disons que c'est la méthode des débutants)
l'autre méthode plus directe (le dataset est une surcouche) c'est de faire une requete
à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
dim cmd = monsqlceconnection.createcommand
cmd.commandtext = "insert into nomtable (col1,col2) values (@col1, @col2)"
cmd.parameters.add("@col1",type)
cmd.parameters.add("@col2",type)
for each line in lignesfichier
  cmd.parameters("@col1").value = ...
  cmd.parameters("@col2").value =...
  cmd.executenonquery
next

[Starnice]

Oui, excuse moi.

L'erreur indiquée est 'Add' n'est pas un membre de 'Gestion_540._540_BDDDataSet.Infos_DRGDataTable'.

En tout cas, merci pour ta réponse, je vais essayer d'adapter le code que tu as mis.
Mais une question de prime abord dans ce cas : pour la déclaration 'dim cmd = monsqlcconnection.createcommand', où puis-je trouver le nom de 'monsqlconnection'?
(j'imagine que ce n'est pas le nom du dataSet donc, je vais faire des recherches mais préfère poser la question tout de suite au cas où)

[Starnice]

Bonjour,

Je reviens vers vous car j'ai légèrement avancé dans la résolution de mon problème, mais je reste bloqué au moment crucial qu'est la création de la connection.

Donc, par rapport à précédemment, voici ce que j'ai mis :

Code :

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

1
2
3
        Dim myConnection As SqlClient.SqlConnection = _
            New SqlClient.SqlConnection("Data Source=BDD540.sdf")
        Dim MyCommand = myConnection.CreateCommand

Ce qui fait (j'imagine que l'erreur est causée par la première ligne du code ci-desssus) que j'ai une erreur en arrivant à cette ligne :

Code :

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

myConnection.Open()

L'exception System.Data.SqlClient.SqlException n'a pas été gérée
Class=20
ErrorCode=-2146232060
LineNumber=0
Message=Une erreur liée au réseau ou spécifique à l'instance s'est produite lors de l'établissement d'une connexion à SQL Server. Le serveur est introuvable ou n'est pas accessible. Vérifiez que le nom de l'instance est correct et que SQL Server est configuré pour autoriser les connexions distantes. (provider: Named Pipes Provider, error: 40 - Impossible d'ouvrir une connexion à SQL Server)
Number=53
Server=""
Source=.Net SqlClient Data Provider
State=0

Merci d'avance pour votre aide, il est difficile de trouver sur le net le moyen de déclarer correctement la connection avec sql server compact et visual basic express 2010. J'imagine qu'il s'agit certainement d'une évidence et que je passe à côté.

[mactwist69]

Je ne connais pas trop SQL Server Compact, j'imagine au vu de la connexion qu'il s'agit d'un simple fichier, un peu comme access.

Du coup...

Code :

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

1
2
 Dim myConnection As SqlClient.SqlConnection = _
            New SqlClient.SqlConnection("Data Source=BDD540.sdf")

Moi comme ça, je me dis, qu'il ne va jamais le trouver le fichier si tu ne lui mets pas le chemin absolu, un truc du genre :

Code :

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

"C:/Temp/BDD540.sdf"

[Starnice]

Merci pour cette suggestion, je viens de tester mais malheureusement, cela ne change rien, l'erreur est toujours la même.