Error en ExecuteScalar

04/11/2004 - 16:18 por fernando | Informe spam
amigos aqui les paso el codigo claro que es mas conplicado
pero lo resumi en este ejemplo no se por que me falla..
alguna sugerencia.. :( millon de gracias...


Private Sub Form1_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
conexion.ConnectionString = "server=(local);" & _
"database=midb;uid=sa;pwd=;"
Dim comando As New SqlCommand("select cod_unidad from
unidad where nombre_unidad=@c1", conexion)
comando.Parameters.Add(New SqlParameter("@c1",
SqlDbType.NVarChar))
comando.Parameters("@c1").Value = get_n()
Dim con As Integer
Try
conexion.Open()
con = CType(comando.ExecuteScalar, Integer)
MessageBox.Show("Codigo: " & con)
Finally
conexion.Close()
End Try
End Sub

Public Function get_n() As Integer
Dim com As New SqlCommand("select cod_unidad from unidad"
& _"where nombre_unidad=@w", conexion)
Dim valor As Integer
com.Parameters.Add(New SqlParameter("@w", SqlDbType.NVarChar))
com.Parameters("@w").Value = "jarabe"
Try
conexion.Open()
valor = CType(com.ExecuteScalar, Integer)
Return valor
Finally
conexion.Close()
End Try
End Function
 

Leer las respuestas

#1 Misael Monterroca
04/11/2004 - 18:23 | Informe spam
¿Que error te marca?

Saludos!
http://www.neo-mx.com/blog




"fernando" wrote in message
news:1c3901c4c281$865f51a0$
amigos aqui les paso el codigo claro que es mas conplicado
pero lo resumi en este ejemplo no se por que me falla..
alguna sugerencia.. :( millon de gracias...

Preguntas similares