Parámetros

[freegirl]

Hola,

quiero recuperar el valor que devuelve la siguiente consulta:

Código:

 cmd.CommandText = "select campo1 from tabla where campo2=@campo2"
 cmd.Parameters.AddWithValue("@campo2", Me.combo1.SelectedItem)
If IsDBNull(cmd.ExecuteScalar()) = False Then
                Me.text1.Text = cmd.ExecuteScalar
 End If 

le paso por parámetro el valor por el que se filtra la consulta.

que debría hacer después para recuperar el valor? ya que si hago lo que está en negrita me da error.

saludos

[Stream]

freegirl, deverias leerte el capitulo de acceso a datos.. creo que te falta leer algo por ahi...

Código:

  Private Function getText(ByVal campo2 As Integer) As String
        Dim result As String = ""
        Try
            Dim comm As New SqlCommand("select campo1 from tabla where campo2=@campo2", New SqlConnection(AppSettings("TuConnection")))
            comm.CommandType = CommandType.Text
            comm.Parameters.Add("@campo2", campo2)
            comm.Connection.Open()
            Dim reader As SqlDataReader = comm.ExecuteReader(CommandBehavior.CloseConnection)
			If reader.HasRows Then
				reader.Read
				result = reader("campo1") 
			End If
            reader.Close()
        Catch ex As Exception
        End Try
        Return result 
End Function

Y lo llamas asi..
Mitxt.text = getText(1)

Salu2

[freegirl]

Edito:

el problema no estaba en el executescalar, eso está correcto. Lo que pasa que me dejé de poner:

Me.combo1.SelectedItem.Text

ya que al estar acostumbrada a la versión 2003, me olvidé el Text del Combo.