la conversión de la cadena "INSERT INTO detalle4(factura,te" en el tipo 'Double' no..

[maialenlopez]

Hola,

Necesito ayuda. No se por que me da este error la conversion de la cadena "INSERT INTO detalle4(factura,te" en el tipo 'Double' no es valida en el punto en el que le declaro a la variable insert el contenido del insert.

Alguien me puede ayudar?

Pongo el codigo aquí:

Código vb.net:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim xls_cn As OleDbConnection
        Dim xls_cmd As New OleDbCommand
        Dim xls_reader As New OleDbDataAdapter
        Dim xls_ds As New DataSet
        Dim mysql_conn As New MySqlConnection
        Dim mysql_comando As New MySqlCommand
        Dim xls_sql, mysql_connstring, insert, nombreXls, fecha, factura, tTrafico, telefono, extension As String
        Dim strExtension As String = ""
        Dim m_Excel As Microsoft.Office.Interop.Excel.Application
        Dim total, i, notificado As Integer
        Dim cantidad, bruto, neto, facturado As Decimal
 
        If Me.servidor.Text = "" Or Me.usuario.Text = "" Or Me.password.Text = "" Or Me.bbdd.Text = "" Then
            MsgBox("Completa datos de conexión")
            Exit Sub
        End If
 
        Try
            If xlsx = "" Then
 
                MsgBox("Selecciona un archivo.")
                Exit Sub
            Else
                'obtener el nombre del archivo
                nombreXls = Path.GetFileName(xlsx)
                'obtener la extension del archivo
                strExtension = Path.GetExtension(xlsx)
                If strExtension = ".xls" Or strExtension = ".xlsx" Then
                    'MsgBox("es un archivo excel")
                    If (File.Exists(xlsx)) Then
                        xls_cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsx + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'")
                        m_Excel = CreateObject("Excel.Application")
                        m_Excel.Workbooks.Open(xlsx)
 
                        Dim dt As New DataTable("Datos")
 
                        Using xls_cn
 
                            xls_cn.Open()
                            xls_cmd.CommandText = "SELECT * FROM [Hoja1$]"
                            xls_cmd.Connection = xls_cn
                            xls_reader.SelectCommand = xls_cmd
 
                            'contar candidad de filas del excel
                            total = m_Excel.Range("a1").CurrentRegion.Rows.Count
                            'Guardamos los datos en el DataTable
                            Dim da As New OleDbDataAdapter(xls_cmd)
                            da.Fill(dt)
 
                            For i = 0 To total - 2
 
                                fecha = dt.Rows(i).Item(2)
                                factura = dt.Rows(i).Item(3)
                                telefono = dt.Rows(i).Item(4).ToString
                                extension = dt.Rows(i).Item(5).ToString
                                tTrafico = dt.Rows(i).Item(6)
                                cantidad = dt.Rows(i).Item(8).ToString
                                bruto = dt.Rows(i).Item(10).ToString
                                neto = dt.Rows(i).Item(13).ToString
                                facturado = dt.Rows(i).Item(16).ToString
                                notificado = "0"
 
                                '---------------------------------------------------------------------------------------------------------------------
                                'GUARDAR TODO EN SSIICONSUMOS
                                Try
                                    mysql_connstring = "server=" + Me.servidor.Text + ";" _
                                        & "uid=" + Me.usuario.Text + ";" _
                                        & "pwd=" + Me.password.Text + ";" _
                                        & "database=" + Me.bbdd.Text + ";"
                                    mysql_conn.ConnectionString = mysql_connstring
                                    mysql_conn.Open()
                                    mysql_comando.Connection = mysql_conn
                                Catch ex As Exception
                                    MsgBox("Error al realizar la conexión: " & ex.Message)
                                End Try
                                insert = "INSERT INTO detalle4(factura, telefono, extension, tipo_trafico, fecha, cantidad, bruto, neto, facturar, notificado) VALUES('" + factura + "','" + telefono + "','" + extension + "','" + tTrafico + "','" + fecha + "','" + cantidad + "','" + bruto + "','" + neto + "','" + facturado + "','" + notificado + "')"
                                MsgBox(insert)
                                fecha = Format(CDate(fecha), "yyyy-MM-dd")
                                cantidad = Replace(cantidad, ",", ".")
                                bruto = Replace(bruto, ",", ".")
                                neto = Replace(neto, ",", ".")
                                facturado = Replace(facturado, ",", ".")
                                
                                'End
                                mysql_comando.CommandText = insert
                                Try
                                    mysql_comando.ExecuteNonQuery()
                                Catch ex As Exception
                                    MsgBox("Error bbdd" & Chr(13) & Chr(13) & ex.Message)
                                End Try
                            Next
                        End Using
                    End If
                Else
 
                    MsgBox("Introduzca un archivo .xls o .xlsx .")
                    Exit Sub
                End If
            End If
 
        Catch ex As Exception
            MsgBox("Error" & Chr(13) & Chr(13) & ex.Message)
        End Try
 
        'Cerramos la conexión
        xls_cn.Close()
        'Eliminamos la instancia de Excel de memoria
        If Not m_Excel Is Nothing Then
 
            nombreXls = Nothing
            m_Excel.Quit()
            m_Excel = Nothing
        End If
 
        MsgBox("HECHO")
    End Sub