Guardar en Tabla MySql los registros de un excel mostrados en DataGridView Vb.Net
Publicado por Roderick (6 intervenciones) el 27/07/2016 16:44:47
Hola a todos
Tengo este Form:
donde cn un boton abro el archivo excel y la hoja que quiero que se muestre en el DataGridView que se muestra a su derecha.
y queda de esta forma:
Ahora como ya ven esta mostrandoce el archivo excel.
Necesito que esos registros q estan en ese excel dentro del DataGridView se agreguen a una tabla MySql
tengo el siguiente codigo para ello:
Pero este me salta ERROR y no guarda nada si alguien me ayuda se lo agradecere muchisimo Saludos
Tengo este Form:
donde cn un boton abro el archivo excel y la hoja que quiero que se muestre en el DataGridView que se muestra a su derecha.
y queda de esta forma:
Ahora como ya ven esta mostrandoce el archivo excel.
Necesito que esos registros q estan en ese excel dentro del DataGridView se agreguen a una tabla MySql
tengo el siguiente codigo para ello:
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Imports MySql.Data.MySqlClient
Private Sub guardar_Click(sender As Object, e As EventArgs) Handles guardar.Click
oConexion = New MySqlConnection("server=localhost; database=spectterraoptimizada; user id=root;password=1234")
Dim agregar As MySqlCommand = New MySqlCommand("INSERT INTO spectterra Values(@HOLEID, @From, @To, @Point, @1400, @2200, @2350, @SPEC_CODE, @Au g/t, @Cu%, @sil, @Pyro, @Diaspore, @Dick, @Alun, @kaol, @Sericite, @ill, @Smec, @chl, @Epid, @Gypsum, @CARB, @Int, @Limonite, @jaro, @goe, @Hem, @Barite, @Biotite, @Comments, @Geologist, @File, @Mes, @Fecha, @Año, @Spect_Code_Verif)", oConexion)
oConexion.Open()
Try
Dim fila As DataGridView = New DataGridView()
For Each fila In DataGridView2.Rowsagregar.Parameters.Clear()
agregar.Parameters.AddWithValue("@HOLEID", Convert.ToString(fila.SelectedCells("Column1").Value))
agregar.Parameters.AddWithValue("@From", Convert.ToString(fila.SelectedCells("Column2").Value))
agregar.Parameters.AddWithValue("@To", Convert.ToString(fila.SelectedCells("Column3").Value))
agregar.Parameters.AddWithValue("@Point", Convert.ToString(fila.SelectedCells("Column4").Value))
agregar.Parameters.AddWithValue("@1400", Convert.ToString(fila.SelectedCells("Column5").Value))
agregar.Parameters.AddWithValue("@2200", Convert.ToString(fila.SelectedCells("Column6").Value))
agregar.Parameters.AddWithValue("@2350", Convert.ToString(fila.SelectedCells("Column7").Value))
agregar.Parameters.AddWithValue("@SPECT_CODE", Convert.ToString(fila.SelectedCells("Column8").Value))
agregar.Parameters.AddWithValue("@Au g/t", Convert.ToString(fila.SelectedCells("Column9").Value))
agregar.Parameters.AddWithValue("@Cu%", Convert.ToString(fila.SelectedCells("Column10").Value))
agregar.Parameters.AddWithValue("@sil", Convert.ToString(fila.SelectedCells("Column11").Value))
agregar.Parameters.AddWithValue("@Pyro", Convert.ToString(fila.SelectedCells("Column12").Value))
agregar.Parameters.AddWithValue("@Diaspore", Convert.ToString(fila.SelectedCells("Column13").Value))
agregar.Parameters.AddWithValue("@Dick", Convert.ToString(fila.SelectedCells("Column14").Value))
agregar.Parameters.AddWithValue("@Alun", Convert.ToString(fila.SelectedCells("Column15").Value))
agregar.Parameters.AddWithValue("@kaol", Convert.ToString(fila.SelectedCells("Column16").Value))
agregar.Parameters.AddWithValue("@Sericite", Convert.ToString(fila.SelectedCells("Column17").Value))
agregar.Parameters.AddWithValue("@ill", Convert.ToString(fila.SelectedCells("Column18").Value))
agregar.Parameters.AddWithValue("@Smec", Convert.ToString(fila.SelectedCells("Column19").Value))
agregar.Parameters.AddWithValue("@chl", Convert.ToString(fila.SelectedCells("Column20").Value))
agregar.Parameters.AddWithValue("@Epid", Convert.ToString(fila.SelectedCells("Column21").Value))
agregar.Parameters.AddWithValue("@Gypsum", Convert.ToString(fila.SelectedCells("Column22").Value))
agregar.Parameters.AddWithValue("@CARB", Convert.ToString(fila.SelectedCells("Column23").Value))
agregar.Parameters.AddWithValue("@Int", Convert.ToString(fila.SelectedCells("Column24").Value))
agregar.Parameters.AddWithValue("@Limonite", Convert.ToString(fila.SelectedCells("Column25").Value))
agregar.Parameters.AddWithValue("@jaro", Convert.ToString(fila.SelectedCells("Column26").Value))
agregar.Parameters.AddWithValue("@goe", Convert.ToString(fila.SelectedCells("Column27").Value))
agregar.Parameters.AddWithValue("@Hem", Convert.ToString(fila.SelectedCells("Column28").Value))
agregar.Parameters.AddWithValue("@Barite", Convert.ToString(fila.SelectedCells("Column29").Value))
agregar.Parameters.AddWithValue("@Biotite", Convert.ToString(fila.SelectedCells("Column30").Value))
agregar.Parameters.AddWithValue("@Comments", Convert.ToString(fila.SelectedCells("Column31").Value))
agregar.Parameters.AddWithValue("@Geologist", Convert.ToString(fila.SelectedCells("Column32").Value))
agregar.Parameters.AddWithValue("@File", Convert.ToString(fila.SelectedCells("Column33").Value))
agregar.Parameters.AddWithValue("@Mes", Convert.ToString(fila.SelectedCells("Column34").Value))
agregar.Parameters.AddWithValue("@Fecha", Convert.ToString(fila.SelectedCells("Column35").Value))
agregar.Parameters.AddWithValue("@Año", Convert.ToString(fila.SelectedCells("Column36").Value))
agregar.Parameters.AddWithValue("@Spect_Code_Verif", Convert.ToString(fila.SelectedCells("Column37").Value))
Next
MessageBox.Show("Datos Guardados Correctamente")
Exit Sub
Catch ex As Exception
MessageBox.Show("Error")
Finally
oConexion.Close()
End Try
End Sub
Pero este me salta ERROR y no guarda nada si alguien me ayuda se lo agradecere muchisimo Saludos
Valora esta pregunta
0
