[VB2005]sql server : datatable vide

**Kropernic** · 27/05/2008, 15h22

Bonjour,

Voici mon problème.

J'utilise pour accéder à ma base de donnée, un ensemble de classe que j'ai écris. A priori, il fonctionne très bien, je l'utilise dans plusieurs applications et je n'ai aucun soucis avec.

Seulement voilà, maintenant, j'ai un soucis ^^.

Dans ma classe, il y a une fonction, que j'ai appelée DoFastUpdate, qui consiste juste à mettre à jour la db à partir d'un dataset. La fonction se charge de regarder quelles lignes sont ajoutées, modifiées ou supprimées. J'utilise cette fonction lorsque j'ai un grand nombre d'enregistrements à ajouter d'un coup (dans le cas qui m'occupe, plus de 1 000 000).

Cela fonctionne très bien à partir du moment où j'ai un dataset avec une datatable que je peux remplir mais pour avoir ce dataset et cette datatable, qu'est-ce que je fais (en fait, je ne l'ai fait qu'une fois, quand ma table était encore vide^^) : "select * from matable". Donc j'ai mon dataset avec la datable vide mais totalement prête à recevoir de nouvelles lignes.

Maintenant que ma table contient pas loin de 1 700 000 record, je me vois mal faire pareil ^^. Je pourrais faire un select qui ne revient aucun résultat mais cela mets aussi pas mal de temps (déjà essayé

).

Donc voilà, je suis à la recherche d'un moyen de récupérer une datatable correctement formatée mais vide.

Quelqu'un peut-il m'aider ?

Griftou.

**Poulain** · 27/05/2008, 17h10

Eh bien, en bidouillant un peu, tu peux faire une requee qui va chercher avec un paramètre impossible.

Par exemple si tu as une case prénom, tu tapes dans ta requete
where prenom=492084 il devrait te retourner ligne vide et architecture de ta table.

Problème: il va parcourir toutes les lignes. Il faudrait reussir a recupérer juste l'architecture de la table.

**Kropernic** · 27/05/2008, 17h28

Dans mon précédent message, j'explique que c'est ce que j'avais trouvé comme solution qui en théorie fonctionne mais qui en pratique est inexploitable car elle prend trop de temps à l'exécution. En fait, ma table contient des enregistrements de transaction caisse de grands magasins (15 magasins en fait). Pour le moment, il n'y a que les 3 premiers mois de 2006 (on mets en place un nouveau système alors on teste avec ça) et ça fait déjà presque 1 700 000 de records. Donc on peut oublier la requête qui ne renvoie aucun résultat.

Merci quand même Poulain.

Quelqu'un d'autre ?

Edit : J'ai bien tenté en créant manuellement les colonnes dans le code mais j'trouve pas trop comment faire. J'ai vu un exemple dans la MSDN mais ça fonctionne pas

Griftou.

**Kropernic** · 28/05/2008, 09h22

Finalement, voici un début de solution :

Code :

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

1
2
3
4
5
6
7
8
9
        ds = New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
 
        dt.Columns.Add("DATE", System.Type.GetType("System.String"))
        dt.Columns.Add("SIEGE", System.Type.GetType("System.String"))
        dt.Columns.Add("RAY", System.Type.GetType("System.String"))
        dt.Columns.Add("TYPE", System.Type.GetType("System.String"))
        dt.Columns.Add("EANART", System.Type.GetType("System.String"))

Ici je crée donc un dataset et une datatable dans laquelle j'ajoute des datacolumns.

Seulement j'ai un nouveau problème. J'ai des colonnes de type "currency" et je ne trouve pas comment les créer

Quelqu'un sait ? P-e suffit-il d'utiliser le type double ou qqch du genre mais j'aimerais être sûr....

Griftou.

**SaumonAgile** · 28/05/2008, 10h01

Je dirais que currency est de type decimal.

**Kropernic** · 28/05/2008, 10h02

Venant de toi, je prends ça pour sûr ^^.

Merci !

Griftou.

**SaumonAgile** · 28/05/2008, 10h08

Une liste complète des équivalences :
http://msdn.microsoft.com/en-us/library/ms131092.aspx

**Kropernic** · 28/05/2008, 10h42

Voici finalement 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
47
48
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        dataTr = Data_Module.DataFactory.CreateSqlServer(line, "sa", "I'm_happy", "TICKETS")
        dataTr.DoConnect()

        Dim SR As New StreamReader("C:\.NET Projet\EALZBONT\tr.txt")
        Dim l As String = SR.ReadLine
        l = SR.ReadLine
        Dim tab As String()
        Dim row As DataRow
        'ds = dataTr.DoSelect("select * from ticket where siege = '000'")
        Dim i As Integer = 0

        ds = New DataSet
        Dim dt As New DataTable

        dt.Columns.Add("DATE", System.Type.GetType("System.String"))
        ...
        ...définition de toutes les colonnes...
        ...
        dt.Columns.Add("TYPERAY", System.Type.GetType("System.String"))
        dt.TableName = "Ticket"
        ds.Tables.Add(dt)

        While Not l = Nothing
            i += 1
            row = ds.Tables(0).NewRow
            l = l.Replace(".", ",")
            tab = l.Split(Chr(9))
            For x As Byte = 0 To tab.GetLength(0) - 1
                row.Item(x) = tab(x)
            Next
            ds.Tables(0).Rows.Add(row)
            If i Mod 100000 = 0 Then
                dataTr.DoFastUpdate(ds)
                ds.Tables(0).Rows.Clear()
                Console.WriteLine("maj db ok pour i = " & i.ToString)
            End If
            l = SR.ReadLine
        End While
        Console.WriteLine("lecture fichier terminée --> MAJ DB")
        dataTr.DoFastUpdate(ds)

        SR.Close()
        SR.Dispose()
        dataTr.DoDisconnect()

        Console.WriteLine("traitement TR terminé")
    End Sub

Le problème est que la ligne en rouge me donne l'erreur ci-dessous.

Update unable to find TableMapping['Table'] or DataTable 'Table'.

Honnêtement, c'est du chinois pour moi. J'comprends bien qu'il n'arrive pas à trouver quelque chose mais quoi ?

Griftou.

**Kropernic** · 28/05/2008, 14h18

Voici la fonction utilisée dans le message précédent. C'est là dedans qu'il y aurait un problème apparemment. Problème qui, d'après mes recherches sur le net, serait lié au dataadapter et au commandbuilder mais je ne vois pas pourquoi.

Est-ce que quelqu'un pourrait m'aider svp ?

Merci d'avance.

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
    Public Function DoFastUpdate(ByRef ds As System.Data.DataSet) As Boolean Implements IData.DoFastUpdate
        'pour des updates en éditant directement dans la datagrid
 
        Try
            If Not da Is Nothing Then
                da.Dispose()
            End If
            da = New SqlClient.SqlDataAdapter
            da.SelectCommand = cmd
            cb = New SqlClient.SqlCommandBuilder(da)
 
            da.Update(ds)
            da.Dispose()
            cb.Dispose()
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
        'Return ds
    End Function

Griftou.

**farhaoui.mohamed** · 29/05/2008, 15h46

Bonjour
Concernant la création de la table, j croix que c’est facile, vous ajouter un nouvel élément à votre solution de type dataset (que vous le nommé DataSetType.xsd), puis dans la partie design qui sera affichée, vous faite un glisser de la table (depuis la source de données du projet - via laquelle vous vous connectez à votre base de données-)
Puis la définition de la table sera automatiquement ajouté à votre dataset.

Puis vous changez l’instanciation de ton dataset
donc le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
ds = New DataSet
        Dim dt As New DataTable
 
        dt.Columns.Add("DATE", System.Type.GetType("System.String"))
        ...
        ...définition de toutes les colonnes...
        ...
        dt.Columns.Add("TYPERAY", System.Type.GetType("System.String"))
        dt.TableName = "Ticket"
        ds.Tables.Add(dt)

sera remplacé par:

Code :

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

ds = New DataSetType

Concernant l’erreur, il signifié que vous n’avez fournit de mapping à votre da (dataAdapter) donc il ne saura pas comment enregistrer votre dataset
d’ailleurs je ne comprends pas comment l’enregistrement du dataset se fera, pour être explicite, je croix qu’il faut ajouter une ligne

Code :

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

1
2
3
cmd.commandText= "Nom de la procédure stockée d’enregistrement"
'au lieu de [da.UpdateCommand = cmd] il faut mettre peut être
da.UpdateCommand = cmd

donc voilà, j’espère que ça vous aidera
bonne continuation.

**Kropernic** · 29/05/2008, 15h49

Ca ne fonctionnera car la base de donnée n'est pas incorporée dans le projet. Je ne peux donc pas faire de drag&drop.

Je me connecte toujours manuellement à mes bases de données sans utiliser l'interface de VS.

Merci quand même.

Griftou.

**farhaoui.mohamed** · 29/05/2008, 15h57

même si elle n'est pas incorporée dans la solution, essayez d'ajouter le serveur puis la table (normalement ça doit fonctionner)

**Kropernic** · 03/06/2008, 12h47

Je ne veux pas ajouter de datasource dans la solution/projet...

Je me suis cassé le c... à tout gérer manuellement, c'est pas pour des prunes ^^

Griftou.

[VB2005]sql server : datatable vide

Windows Forms

Discussions similaires

Partager

Partager