22/07/2004, 16:27
|
| | | 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 |