Bonjour à tous !
Voilà, je réalise une application où je dois remplir une base access à partir d'une feuille excel qui est composée de chaines et d'entiers.
Les données sont d'abord mises dans un DataGridView (ici pas de problème) avant d'être importer dans ma table.
Cependant j'ai une erreur qui est générée lors de l'execution:J'ai remarqué que si je typais les champs de ma table en 'Texte' aucun problème mais après ça complique pour travailler sur les champs numérique'Type de données incompatible dans l'expression du critère'.
Voici le code pour l'importation dans la table
La table se remplit bien mais l'erreur est générée sur la dernier ligne...
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 For i As Integer = 0 To DataGridView1.Rows.Count - 1 Dim cmd As OleDb.OleDbCommand Dim req As String req = "insert into [" & nomTable & "] values(""" & DataGridView1.Rows(i).Cells(0).Value For j As Integer = 1 To nbMax req = req & """,""" & DataGridView1.Rows(i).Cells(j).Value Next req = req & """)" cmd = New OleDb.OleDbCommand(req, connAc) cmd.ExecuteNonQuery() Next MsgBox("Importation réussie dans " & nomTable)
Auriez-vous une idée sur comment résoudre ce problème car ça me bloque dans l'avancée du projet ??
Merci d'avance et bonne journée à vous !
Partager