[SOLUCIONADO] el argumento 'prompt' no se puede convertir en el tipo 'string'.

[maialenlopez]

Hola
Estoy haciendo una aplicación en la que tengo que recoger valores mediante un select y estos guardarlos en un array.

Esto es lo que hago:

Código vb.net:

Protected Function calculoFechaHorasReales(ByRef numoperario As Integer, ByVal fechaActual As String)
        Dim sql, ano, mes, fecha As String
        Dim ar As String()
 
        ano = Year(fechaActual)
        mes = Month(fechaActual)
 
        If mes > 9 Then
            fecha = ano + mes
        Else
            fecha = ano + "0" + mes
        End If
 
        sql = "select distinct ldate AS e from sapsr3.teven"
        sql = sql + " where pernr like '%9152%' and ldate like '" & fecha & "%'"
        sql = sql + " order by ldate desc"
 
        Dim conn As New OracleConnection()
        conn.ConnectionString = ConfigurationManager.ConnectionStrings("conexionOracleDesa").ConnectionString.ToString
 
        Try
 
            Using conn
 
                conn.Open()
                Dim comm1 As New OracleCommand(sql, conn)
                Dim reader1 As OracleDataReader
                With comm1
                    reader1 = .ExecuteReader()
                    While reader1.Read()
                        ar = reader1("e")
                    End While
                    .Dispose()
                    reader1.Close()
                End With
                conn.Close()
                conn.Dispose()
            End Using
 
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
 
            conn.Close()
            conn.Dispose()
        End Try
 
        Return ar
    End Function
 

Es decir "ar" lo he declarado como array y lo que quiero es que el select que hago lo que me devuelva me lo meta dentro de "ar" pero ahora mismo me da este error: el argumento 'prompt' no se puede convertir en el tipo 'string'.

¿Porque puede ser?
¿Alguien me puede echar una mano?(al cuello aunque sea )

Un saludo y gracias

[alexg88]

Hola,

El error está en que estás intentando asignar un valor de tipo string a una variable de tipo string().

Puedes hacerlo de dos maneras:

1º

Código vb:

Dim i as Integer = 0
 
While reader1.Read()
     ReDim Preserve ar(i)
    ar(i) = reader1("e")
    i+=1
End While
 

2º

Código vb:

Dim list As New List(Of String)
 
While reader1.Read()
    list.Add reader1("e")   
End While
 
ar = list.toArray
 

La segunda me gusta más porque no tienes que estar redimensionando continuamente el array y luego puedes usar el método toArray para pasarlo a un array.

Un saludo.

[maialenlopez]

Iniciado por alexg88

Hola,

El error está en que estás intentando asignar un valor de tipo string a una variable de tipo string().

Puedes hacerlo de dos maneras:

1º

Código vb:

Dim i as Integer = 0
 
While reader1.Read()
     ReDim Preserve ar(i)
    ar(i) = reader1("e")
    i+=1
End While
 

2º

Código vb:

Dim list As New List(Of String)
 
While reader1.Read()
    list.Add reader1("e")   
End While
 
ar = list.toArray
 

La segunda me gusta más porque no tienes que estar redimensionando continuamente el array y luego puedes usar el método toArray para pasarlo a un array.

Un saludo.

Gracias, he utilizado la segunda y me va perfecto.
Muchas gracias