Visual Basic.NET - No puedo concatenar 3 campos

Hola,

Estoy intentanto concatenar 3 campos de una tabla para exportar los datos a un TXT y no he podido hacer que funcione correctamente.

Tengo 3 campos :
Codigo_1 es string,
Codigo_2 String y
Cantidad es Float

Este es mi codigo:
---------------------------------------------------------------------------------------------------------
Dim cmSQL As SqlCeCommand
Dim drSQL As SqlCeDataReader
Dim ascii As New System.Text.UTF7Encoding
Dim Ruta As String
Dim sw As StreamWriter = New StreamWriter(Ruta, False, ascii)

cmSQL = New SqlCeCommand("SELECT * FROM DATOS", cnn)
drSQL = cmSQL.ExecuteReader()
Ruta = "\My Documents\DATOS.TXT"
Do While drSQL.Read()
sw.WriteLine(drSQL.Item("Codigo_1") & ";" & drSQL.Item("Codigo_2") & ";" & drSQL.Item("Cantidad").GetType.ToString & ";")
Loop
sw.Close()
drSQL.Close()
cmSQL.Dispose()
---------------------------------------------------------------------------------------------------------

La tabla tiene datos pero la salida en el archivo TXT es esta:

A1111;B0001;System.Double;
A2222;B0002;System.Double;
A3333;B0003;System.Double;

Si se fijan los 2 primeros campos estan bien pero el tercero pone "System.Double" que debe ser porque el dato es tipo float.

Saludos a todos y gracias de antemano

Hola Mamila. Tu error esta la parte q escribes drSQL.Item("Cantidad").GetType.ToString
Reemplazalo por ctype(drSQL.Item("Cantidad"), string)

Asi debe ser el codigo:

Dim cmSQL As SqlCeCommand
Dim drSQL As SqlCeDataReader
Dim ascii As New System.Text.UTF7Encoding
Dim Ruta As String
Dim sw As StreamWriter = New StreamWriter(Ruta, False, ascii)

cmSQL = New SqlCeCommand("SELECT * FROM DATOS", cnn)
drSQL = cmSQL.ExecuteReader()
Ruta = "\My Documents\DATOS.TXT"
Do While drSQL.Read()
sw.WriteLine(drSQL.Item("Codigo_1") & ";" & drSQL.Item("Codigo_2") & ";" & ctype(drSQL.Item("Cantidad"), string) & ";")
Loop
sw.Close()
drSQL.Close()
cmSQL.Dispose()

funciono a la perfeccion, gracias Pablo

Hola Mamila. Tu error esta la parte q escribes drSQL.Item("Cantidad").GetType.ToString
Reemplazalo por ctype(drSQL.Item("Cantidad"), string)

A ver si puedes, ayudame con mi consulta de las 2 tablas en un datagrid que posteo luego de tu pregunta en este foro... Necesito ayuda cuando antes!

Asi debe ser tu codigo correcto:

Dim cmSQL As SqlCeCommand
Dim drSQL As SqlCeDataReader
Dim ascii As New System.Text.UTF7Encoding
Dim Ruta As String
Dim sw As StreamWriter = New StreamWriter(Ruta, False, ascii)

cmSQL = New SqlCeCommand("SELECT * FROM DATOS", cnn)
drSQL = cmSQL.ExecuteReader()
Ruta = "\My Documents\DATOS.TXT"
Do While drSQL.Read()
sw.WriteLine(drSQL.Item("Codigo_1") & ";" & drSQL.Item("Codigo_2") & ";" & ctype(drSQL.Item("Cantidad"), string) & ";")
Loop
sw.Close()
drSQL.Close()
cmSQL.Dispose()

Espero te sirva! Saludos!

Estoy recien en la etapa de iniciacion del .net asi que lo siento pero no puedo ayudarte.
saludos