Visual Basic.NET - rescatar dato de consulta y asignarla a una variable

   
Vista:

rescatar dato de consulta y asignarla a una variable

Publicado por Victor (6 intervenciones) el 06/03/2014 16:12:11
Buenas, posiblemente esta consulta ya este expuesta:

es sencillo pero como soy nuevo en VB me cuesta un poco, necesito rescatar un dato mediante una consulta sql y ese dato asociarlo a una variable... trabajo con sql server
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

rescatar dato de consulta y asignarla a una variable

Publicado por Angel (24 intervenciones) el 07/03/2014 17:04:43
Que tal, espero poder ayudarte ya que no se como trabajas tus consultas pero bueno es relativamente sencillo

te facilito el codigo prototipo para trabajar con conecciones odbc

Dim dstSQL As DataSet = New DataSet
dim strSQL as string

strSQL = "Sentencia SQL de normalmente SELECT]"
Using Connection As New Odbc.OdbcConnection(“provider=ODBC;DSN=[Nombre de la conexión ODBC];”)

Dim dadDatosConsultados As New Odbc.OdbcDataAdapter(strSQL, Connection)

Try
Connection.Open()
dadDatosConsultados.Fill(dstSQL)
Using reader As DataTableReader = dstSQL.CreateDataReader()
If reader.HasRows() Then
Do While reader.Read()
strExample = reader("[Campo de la base de datos]"))
Loop
End If
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Using
dstSQL.Clear()

por ejemplo que tuconsulta sea algo como SELECT IdCliente as Id FROM Clientes Where Cliente='Victor'
la consulta te devolvera el id que por ejemplo sea 1 en la columna Id
entonces para rescatar el valor de la columna en donde pone strExample =reader("Id")
y listo tendras el valor de id en tu variable strExample.

espero que te sirva amigo.
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

rescatar dato de consulta y asignarla a una variable

Publicado por Victor (6 intervenciones) el 17/03/2014 22:18:22
Claro que me sirve, mira disculpa mi ignorancia pero trato de modificarlo a lo que necesito es algo asi..

Try

Dim sql As String = "select id_tipo_insumo from tipo_insumo where nombre_tipo_insumo=" & combobox1.text.Text
Dim ds As New SqlDataAdapter(Sql, conexion)
Dim ad As New DataSet

ds.Fill(ad)

Catch ex As Exception

End Try


A este codigo como le asigno a una variable, supongamos que se llame valor, el dato que quiero rescatar?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar