Ver Mensaje Individual
  #3 (permalink)  
Antiguo 22/07/2004, 16:27
Avatar de luiscl
luiscl
 
Fecha de Ingreso: abril-2004
Ubicación: Zaragoza
Mensajes: 305
Antigüedad: 20 años, 7 meses
Puntos: 0
Puedes hacerlo de esta manera:

Dim Cconex As OleDbConnection
Dim SConexstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("rural.mdb") & ";"
Dim Sstring As String
Dim Sselect As OleDbCommand
Cconex = New OleDbConnection(SConexstring)


'.ExecuteScalar te devuelve un único registro que, como ves, te guarda en este caso en un label

Sstring = "Select IdPoblacion From DAT_Poblacion WHERE NombrePoblacion=@poblacion"
Sselect = New OleDbCommand( Sstring, Cconex)
Sselect.Parameters.Add("@poblacion", lbldrpoblacion.Text)
Cconex.Open()
label1.Text = Sselec.ExecuteScalar()
Cconex.Close()

Un saludo
__________________
Pide lo que quieras...y luego paga por ello