Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/03/2005, 22:43
Zuarezy
 
Fecha de Ingreso: marzo-2005
Ubicación: Chilangolandia
Mensajes: 1
Antigüedad: 19 años, 3 meses
Puntos: 0
Este codigo es el que estas buscando

'**************** Conexion con la BD
Dim cn As New SqlConnection
cn.ConnectionString = "workstation id=PC;packet size=4096;user id=sa;data source=""PC\PC"";persist s" & _
"ecurity info=True;initial catalog=DB;password=password"
'********* query de busqued de campos
Dim Consulta = (" SELECT ContactanosContraseña.Id_Comen, ContactanosContraseña.Usuario, " & _
" ContactanosContraseña.Contraseña, ContactanosContraseña.Pregunta, " & _
" ContactanosContraseña.Respuesta, RegistroContactanos.cNombre, " & _
" RegistroContactanos.cApellidos, RegistroContactanos.cEmail , " & _
" RegistroContactanos.cEmpresa FROM RegistroContactanos INNER JOIN " & _
" ContactanosContraseña ON RegistroContactanos.Id_Comen = ContactanosContraseña.Id_Comen ")
cn.Open()
'************* se lee la consulta y la ejecutas
Dim sqlConsulta As SqlCommand = New SqlCommand(Consulta, cn)
Dim leeConsulta As SqlDataReader = sqlConsulta.ExecuteReader
'********** le asignas los valores a variables para usarlos en pag posteriores
With leeConsulta.Read
If leeConsulta.HasRows Then
IdOrgTem = leeConsulta.GetInt32(0)
Cliente = leeConsulta.GetString(1)
Password = leeConsulta.GetString(2)
Pregunta = leeConsulta.GetString(3)
Respuesta = leeConsulta.GetString(4)
Nombre = leeConsulta.GetString(5)
Apellidos = leeConsulta.GetString(6)
eMail = leeConsulta.GetString(7)
Empresa = leeConsulta.GetString(8)
End If
End With
cn.Close()
leeConsulta.Close()
'************* validas los datos de pass y user
If txtCliente.Text = Cliente Then
If txtPass.Text = Password Then
Response.Redirect("FrmComentarioReg.aspx")
End If
Else
'******* mesaje de datos erroneos
Me.lblIncorrecto.Text = " Nombre de Usuario o Contraseña Invalido "