Recuperar NOmbre por ID

[Giufantasy]

Estimados:

estoy haciendo una funcion para rescatar el nombre de una empresa por su id
el id es un string y el nombre igual
Estoy trabajando en vb.net con sqlserver2000

¿Que estoy haciendo mal?

Public Function getRecuperarNombrePorIdEmpresa(ByVal id As String) As String
Dim val As String = New String("")
Me.configurarConexion()
cnn.setNombreTabla("EMPRESA_PULLMAN")
cnn.setCadenaSQL("Select NOMBRE from EMPRESA_PULLMAN Where empresa = '" & id & "'")
cnn.setEsSelect(True)
cnn.conectar()
For Each dr As System.Data.DataRow In cnn.getDbDataSet.Tables(cnn.getNombreTabla()).Rows
val = (dr(0))
Next
Return val
End Function

y no me retorna nada

[JxDarkAngel]

Checa primero si tu variable id esta recibiendo algun valor, de lo contrario no te soltara ningun registro. Intenta mandar a imprimir el valor de tu variable id despues de que hace la consulta para saber con que valor esta igualandolo a tu consulta

[Darkavender]

Me imagino que ya probaste la consulta en la consola de SQL?


Y si usas un DataReader, para recuperar el resultado del QueryString...

[Giufantasy]

Gracias por contestar

la query esta bien, pero no rescata el id.

Me dice "la funcion no devuelve un valor en todas sus rutas de acceso al codigo, podria darse una excepcion de referencia Nula en tiempo de Ejecución cuando se utilice el resultado."

Espero tu ayuda

[eperedo]

Dim val As String = New String("")

¿Por qué haces una instancia de String?

"la funcion no devuelve un valor en todas sus rutas de acceso al codigo, podria darse una excepcion de referencia Nula en tiempo de Ejecución cuando se utilice el resultado."

Esto te sale en tiempo de ejecución o diseño??
Haz la conversión y pruebalo.

Código vb.net:

For Each dr As System.Data.DataRow In cnn.getDbDataSet.Tables(cnn.getNombreTabla()).Rows
val = Convert.ToString(dr(0))
Next
 

Saludos.

[Giufantasy]

Gracias Eduardo Peredo, siempre ayudandome

Mira y pasa eso mismo, me lo marca en tiempo de diseño y en tiempo de ejecucion no devuelve nada

Public Function getRecuperarIdEmpresaPorNombre(ByVal nombre As String) As String
Me.configurarConexion()
cnn.setNombreTabla("EMPRESA_PULLMAN")
cnn.setCadenaSQL("Select Empresa FROM EMPRESA_PULLMAN WHERE NOMBRE = '" & nombre & "'")
cnn.setEsSelect(True)
cnn.conectar()
For Each dr As System.Data.DataRow In cnn.getDbDataSet.Tables(cnn.getNombreTabla).Rows
Return CStr(dr(0))
Next
End Function

Me da la misma advertencia que el codigo de arriba.

"la funcion no devuelve un valor en todas sus rutas de acceso al codigo, podria darse una excepcion de referencia Nula en tiempo de Ejecución cuando se utilice el resultado."


Ojala me ayudes

Gracias

[Darkavender]

Prueba con un data reader...

debes tener el Conection string declarado previamente...

Código:

Dim CmdIdRdNombreEmpresa As New Command("Select Empresa FROM EMPRESA_PULLMAN WHERE NOMBRE = '" & nombre & "'", Conex)

Dim RdidEmpresa As DataReader
            Conex.Open()
            RdidEmpresa = CmdIdRdNombreEmpresa.ExecuteReader
            RdidEmpresa.Read()

            Empresa = RdidEmpresa(0)
             
             Conex.Close()

[eperedo]

Ahora que veo bien el código, esa consulta siempre devolverá un sólo registro por lo que no veo la necesidad de hacer un For Each.
Me parece que no están llegando los valores, haz lo sgte

Código vb.net:

MessageBox.Show(Convert.ToString(dr(0)))
Return CStr(dr(0))
 

Creo que sabes que hace ese código.
Cualquier problema nos cuentas

[Giufantasy]

Si se lo que hace.... Dejame probarlo y te cmunico

Gracias otra ves

[Giufantasy]

Me funciono perfectamente.,..
muchas gracias.

Miren este codigo

Mid(codigo(frmDatosBasicos.cboDestino, 10), 1, 2)

Resulta que el comboBox lo reemplaze por un ComboOCx que tiene las siguientes propiedades

Causes Validation
Codigo comboBox
Container
Datos Manuales
Drag
DragIcon
DragMode
Height
index left
move
name
object
TabIndex
Parent
TabStop
RetornaCodigo
RetornaDescripcion
tag
Top
TolTipText
With
Visible

Y no se como reemplzar esa linea de codigo, esto es VB6 con sqlServer 2000

Como lo hago, necesito su ayuda


Saludos EPeredo