[ADO.Net][VSTO][VBNet 2.0]Quel est format Date null Excell ?

Voila j'essaye d'exporter des données de Excel vers SQL server mais le problème vient des dates.
j'ai une colonne avec des cellules contenant des dates ou étant vides.
voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

dim monDataAdapter As New monDataSetTableAdapters.maTableTableAdapter dim monDataTable As New monDataSet.Table_exportDataTable Private appExcel As New Excel.Application Dim Classeur As Excel.Workbook = appExcel.Workbooks.Open(Me.TextBox1.Text) Dim Feuille As Excel.Worksheet = Classeur.ActiveSheet Dim nbrows As Integer nbrows = 2 While Feuille.Cells(nbrows, 1).value <> "" monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Feuille.Cells(nbrows, 21).value, Feuille.Cells(nbrows, 22).value) nbrows += 1 End While monDataAdapter.Update(monDataTable) appExcel.Quit()

---

mon idée est de parcourir mon fichier excel, d'insérer les cellules que je souhaite dans un DataTable, puis de mettre à jour ma BDD avec mon DataAdapter
l'erreur vient lors de l'appel de la methode update, j'ai le message:
"dépassement SQLDateTime. doit etre compris entre 1/1/1753 et 31/12/9999"
en fait il n'arrive pas à insérer une date null dans ma BDD, pourtant mon champ date de ma BDD autorise les valeurs null et au niveau de mon dataset, mon champ date a pour DefaultValue DBNull

si quelqu'un à une idée merci d'avance

A première vue, tu sembles avoir fait ce qu'il faut, la question est donc quelle valeur renvoie une cellule date null provenant d'Excell ?
Car si tu as mis DBNull.Value comme valeur par défaut dans le DataTable et que pourtant une exception est levée, c'est que semble-t-il ta migration de données provenant d'Excell importe une valeur et non rien, et que c'est cette valeur qui est enregistrée dans le DataTable, ne permettant pas de garder la valeur par défaut :idea: :?:

si j'affiche ma cellule à chaque itération il m'affiche une chaine vide
en ajoutant:

Code:

---

1 2	MsgBox("<" + Feuille.Cells(nbrows, 21).value + ">")

---

à chaque itération, il m'affiche la chaine "<>" quand ma cellule est vide
donc il n'interprete pas une chaine vide comme étant Null
il faut peut etre que je force a null quand ma chaine est vide

si je force avec System.DBNull.value

Code:

---

1 2 3 4 5 6 7 8 9

While Feuille.Cells(nbrows, 1).value <> "" if String.IsNullOrEmpty(feuille.cells(nbrows,21).value then monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, System.DBNull.value, Feuille.Cells(nbrows, 22).value) else monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Feuille.cells(nbrows,21).value, Feuille.Cells(nbrows, 22).value) end if nbrows += 1 End While

---

VS2005 me dit que System.DBNull ne peut etre convertie en Date

et si j'essaye de formater la chaine vide en date

Code:

---

1 2 3 4 5 6 7 8 9

While Feuille.Cells(nbrows, 1).value <> "" if String.IsNullOrEmpty(feuille.cells(nbrows,21).value then monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Format(Feuille.Cells(nbrows, 21).value, "dd/MM/yyyy"), Feuille.Cells(nbrows, 22).value) else monDataTable.AddmaTableRow(System.Guid.NewGuid, Feuille.Cells(nbrows, 2).value, Feuille.Cells(nbrows, 3).value.ToString.Trim, Feuille.Cells(nbrows, 5).value, Feuille.Cells(nbrows, 7).value, Feuille.Cells(nbrows, 10).value, Feuille.Cells(nbrows, 15).value, Feuille.Cells(nbrows, 18).value, Feuille.Cells(nbrows, 19).value, Feuille.Cells(nbrows, 20).value, Feuille.cells(nbrows,21).value, Feuille.Cells(nbrows, 22).value) end if nbrows += 1 End While

---

il me dit que la conversion de la chaine "" en type Date n'est pas valide

j'ai trouvé il faut forcer avec System.Data.SqlTypes.SqlDateTime.Null et non System.DBNull.value

:bravo: et merci d'avoir au moins compenser mon Alzheimer galopant :oops: je ne me souvenais plus de cette nouvelle fonctionnalité de 2005 :wink: