ошибки преобразования дважды в целом vb.net - сервер базы данных преимущества

Question

Я получаю эту ошибку, когда моя программа вставляет CSV файлы в сервер базы данных Advantage, так что мое решение было примитивным, чтобы вставить строки параметризованными:

Private Sub AddParameters(ByRef db As DBUmgebung.cdb.SQL, r As SeekZeilen) 
     Try 
      For i As Integer = 0 To r.erste_Zeile.Length - 1 
       Dim value As String = ZeichensatzAnpassen(r._Rest(i)) 

       If value = "" Then 
        db.FeldWertChar(r.erste_Zeile(i), DBNull.Value) 

       ElseIf value Is Nothing OrElse IsDBNull(value) Then 
        db.FeldWertChar(r.erste_Zeile(i), DBNull.Value) 

       ElseIf IsNumeric(value) Then 
        If value.Contains(",") Then 
         db.FeldWertDecimal(r.erste_Zeile(i), value.Replace(",", ".")) 
        Else 

         db.FeldWertInteger(r.erste_Zeile(i), value) 
        End If 

        ElseIf IsDate(value) Then 
         db.FeldWertDate(r.erste_Zeile(i), value) 

        Else 
         db.FeldWertChar(r.erste_Zeile(i), value) 

        End If 
      Next 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     End Try 
    End Sub 

так эта функция распознает, когда набор данных представляет собой строку, double, data или integer, но если один из наборов данных пуст, но double, он будет рассматриваться как целочисленный, поэтому я получаю следующую ошибку. есть ли у кого-нибудь лучшее решение для распознавания типов данных? Потому что я не вижу никаких других решений, как автоматически читать SQLCreateFile.txt возвращения типов данных,

Answer 1

Try перебрать Case различение, как это:

switch (Type.GetTypeCode(node.GetType())) 
{ 
    case TypeCode.Decimal: 
     ' Handle Decimal 
     break; 

    case TypeCode.Int32: 
     ' Handle Int32 
     break; 
    '... 
}