Problème avec la méthode Fill du DataAdapter
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
La taille du champ memo est 606870910
Voici un petit aperçu de mon code :
Code:
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:
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 |
