Ver original
Private Function EscribirTabla(ByRef tabla As DataTable, ByRef oCant As Integer) As Boolean
        conectar()
        Dim sSql, sSql2 As String
        Dim j, i, ciclo As Integer
        sSql = "INSERT INTO " & tabla.TableName & "("
        For j = 0 To tabla.Columns.Count - 2
            sSql += tabla.Columns(j).ColumnName & ", "
        Next
        sSql += tabla.Columns(tabla.Columns.Count - 1).ColumnName & ") "
        sSql += " VALUES"
        For i = 0 To tabla.Rows.Count - 1
            sSql2 += "("
            For j = 0 To tabla.Columns.Count - 1
                sSql2 += CampoDeSql(tabla.Rows(i).Item(j))
                If j < (tabla.Columns.Count - 1) Then
                    sSql2 += ", "
                End If
            Next j
            sSql2 += ")"
            If ciclo = oCant Or i = tabla.Rows.Count - 1 Then
                ciclo = 0
                sSql2 += ";"
                sentencias = New MySqlCommand(sSql & sSql2, conexion)
                Try
                    sentencias.ExecuteNonQuery()
                    sSql2 = ""
                Catch ex As Exception
                    Return False
                End Try
            Else
                sSql2 += ", "
            End If
            ciclo += 1
        Next i
        Return True
    End Function
 

Ver original
Public Function CampoDeSql(ByVal campo As Object) As String
        nFI.NumberGroupSeparator = 0
        Dim dato As Double
        Select Case campo.GetType.Name
            Case Is = "DateTime"
                Return "'" & Format(campo, "yyyy-MM-dd HH:mm:ss") & "' "
            Case Is = "Date"
                Return "'" & Format(campo, "yyyy-MM-dd") & "' "
            Case Is = "DBNull"
                Return " NULL"
            Case Is = "Integer"
                Return Convert.ToString(campo)
            Case Is = "Int16"
                Return Convert.ToString(campo, nFI)
            Case Is = "Int32"
                Return Convert.ToString(campo, nFI)
            Case Is = "Int64"
                Return Convert.ToString(campo, nFI)
            Case Is = "Double"
                dato = campo
                Return dato.ToString("f", nFI)
            Case Is = "Single"
                Return Convert.ToString(campo, nFI)
            Case Is = "Decimal"
                Return Convert.ToString(campo, nFI)
            Case Is = "UInt16"
                Return Convert.ToString(Convert.ToInt32(campo), nFI)
            Case Is = "UInt32"
                Return Convert.ToString(Convert.ToInt32(campo), nFI)
            Case Is = "UInt64"
                Return Convert.ToString(Convert.ToInt32(campo), nFI)
            Case Is = "String"
                If campo = "\N" Then
                    Return " NULL"
                Else
                    Return "'" & campo & "' "
                End If
            Case Is = "TimeSpan"
                Return "'" & campo.ToString & "' "
            Case Is = "Byte"
                Return "'" & Convert.ToString(campo) & "' "
            Case Else
                Return "'" & Convert.ToString(campo) & "' "
        End Select
    End Function
 

Ver original
Imports Microsoft.Win32
 
Module Module1
 
    Friend Function CerrarCOM(ByRef oComObject As Object) As Boolean
        Try
            If oComObject Is Nothing = False Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oComObject)
            End If
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
 
End Module