Exportar datos de Datagridview a MySQL
Hola Federico, gracias por contestar. Te comento que la conexión con MySQL la tengo, logro empezar a pasar los datos hasta que encuentra campos que toma como nulo y ahí me da el error.
La siguiente función es la que utilizo para cargar el datagrid con los datos de la planilla de exel:
Sub Cargar(ByVal dgView As DataGridView, ByVal SLibro As String, ByVal sHoja As String)
'HDR=YES : Con encabezado
Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & SLibro & ";" & "Extended Properties=""Excel 8.0;HDR=YES"""
Try
' cadena de conexión
Dim cn As New OleDbConnection(cs)
If Not System.IO.File.Exists(SLibro) Then
MsgBox("No se encontró el Libro: " & SLibro, MsgBoxStyle.Critical, "Ruta inválida")
Exit Sub
End If
' se conecta con la hoja hoja1
Dim dAdapter As New OleDbDataAdapter("Select * From [" & sHoja & "$] order by Detalle", cs)
Dim datos As New DataSet
' agrega los datos
dAdapter.Fill(datos)
With dgvArticulos
' llena el DataGridView
.DataSource = datos.Tables(0)
' DefaultCellStyle: formato currency
'para los encabezados 1,2 y 3 del DataGrid
.Columns(0).DefaultCellStyle.Format = ""
.Columns(1).DefaultCellStyle.Format = ""
.Columns(2).DefaultCellStyle.Format = ""
.Columns(3).DefaultCellStyle.Format = ""
.Columns(4).DefaultCellStyle.Format = ""
.Columns(5).DefaultCellStyle.Format = ""
.Columns(6).DefaultCellStyle.Format = ""
.Columns(7).DefaultCellStyle.Format = ""
.Columns(8).DefaultCellStyle.Format = ""
.Columns(9).DefaultCellStyle.Format = ""
.Columns(10).DefaultCellStyle.Format = ""
.Columns(11).DefaultCellStyle.Format = ""
End With
Catch oMsg As Exception
MsgBox(oMsg.Message, MsgBoxStyle.Critical)
End Try
End Sub