Discussion :

[simou22]

Bonjour j'ai un problème avec la méthode fill de l'objet dataadapter lors du chargement d'un champ memo, en fait j'essaie de charger 3 champs l'un d'eux est de type memo qui contient enormément de caractères, j'ai le message suivant comme erreur :
"L'erreur suivante s'est produite : Le champ est trop petit pour accepter la quantité de données que vous voulez ajouter. Essayez d'insérer ou de coller moins de données."

je crée un datatable (je le rajoute à mon dataset) qui correspond parfaitement à ma base d'origine et même si j'affecte la taille suffisante à mon datacolumn (memo) j'ai toujours la même erreur.
SVP pourriez vous m'aider merci

[zoaax]

Bonjour,

quelle est la taille du champ memo ?

Bye

[simou22]

Voici un petit aperçu de mon code :

Code :

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

1
2
3
4
TITI.CréerColonne(1, "Id_txt", myDatacolumn, Nothing, False, False, MyTable)
            TITI.CréerColonne(2, "Title_txt", myDatacolumn, 100, False, False, MyTable)
            TITI.CréerColonne(2, "body_txt", myDatacolumn, 606870910, False, False, MyTable)
            DS1.Tables.Add(MyTable)

et la fonction créercolonne est :

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
Public Sub CréerColonne(ByVal Choix As Integer, _
                            ByVal NomCol As String, _
                            ByRef MyColumn As DataColumn, _
                            ByVal Taille As Integer, _
                            ByVal AutoInc As Boolean, _
                            ByVal Unic As Boolean, _
                            ByRef Mytable As DataTable)
        Select Case Choix
            Case 0
                MyColumn = New DataColumn(NomCol, GetType(Boolean))
            Case 1
                MyColumn = New DataColumn(NomCol, GetType(Byte))
            Case 2
                MyColumn = New DataColumn(NomCol, GetType(String), Nothing, MappingType.Element)
                MyColumn.MaxLength = Taille
            Case 3
                MyColumn = New DataColumn(NomCol, GetType(Date))
            Case Else
                Console.WriteLine("Le choix doit être compris entre 0 et 6 ")
                Exit Sub
        End Select
        'Définition des contraintes
        MyColumn.AutoIncrement = AutoInc
        If MyColumn.AutoIncrement = True Then
            MyColumn.AutoIncrementStep = 1
        End If
        MyColumn.Unique = Unic
        Mytable.Columns.Add(MyColumn)
    End Sub

[simou22]

Quand j'essaie de charger l'objet dataset à partir de la source de données j'aio l'erreur comme quoi le champ est trop petit ...

voila coment je procède au chargement grace à la fonction ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub GetDataSetOleDB(ByVal sQuery As String, _
                          ByRef DS As DataSet, _
                          ByVal i As Integer, _
                          ByVal BaseName As String, _
                          ByVal MaTable As DataTable, _
                          ByVal ParamArray CommandParameters() As OleDbParameter)
 
        Dim objAdapter As New OleDbDataAdapter
        Conn.OuvrirConnexionOleDB(BaseName)
        InitCommand(sQuery, CommandParameters)
        Conn.CloseOleDB()
        objAdapter.SelectCommand = _Commander 
        objAdapter.Fill(DS, MaTable.ToString)

Sachant que cette fonction marche avec les autres types fde données

Merci pour votre réponse

[tom.nageur]

Va voir si ton champ est bien defini dans le schema du dataset

[simou22]

Comment faire pour voir le schéma du dataset, et s'il n'est pas défini est ce qu'il y a possibilité de le définir explicitement?
en plus j'ai bien ajouté les colonnes à mon objet datatable et l'objet datatable à l'objet dataset, j'arrive pas à comprendre pourquoi il ne va pas prendre en consideration mes nouvelles colonnes... bref je suis perdu