CODIGO LOGIN
Imports [Link]
Imports [Link]
Public Class Contrasea
Inherits [Link]
Protected Sub Page_Load(ByVal sender As Object, ByVal e As [Link]) Handles
[Link]
Dim Conexion As String = "Data Source= CASTILLO;Initial
Catalog=PROYECTO;Integrated Security=True"
Dim conn As New SqlConnection(Conexion)
[Link]()
End Sub
Protected Sub cmdIngresar_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim Conexion As String = "Data Source= CASTILLO;Initial
Catalog=PROYECTO;Integrated Security=True"
Dim conn As New SqlConnection(Conexion)
Dim comando As New SqlCommand("SELECT Count(*) FROM Registro WHERE Usuario
=@Usuario And Contrasena =@Contrasena", conn)
' Abrimos la conexin
[Link]()
' Aadimos el valor del parmetro de la consulta
[Link]("@Usuario", [Link])
[Link]("@Contrasena", [Link])
' Si devuelve algn valor, es que ya existe
Dim i As Integer
i = CInt([Link]())
If i > 0 Then
' Avisamos y salimos
[Link]("[Link]")
Else
[Link] = "El usuario no existe"
Exit Sub
End If
End Sub
End Class
CODIGO REGISTRO
Imports [Link]
Imports [Link]
Public Class Registro
Inherits [Link]
Dim Conexion As String = "Data Source= CASTILLO ; Initial
Catalog=PROYECTOINMOBILIARIA;Integrated Security=True"
Dim conn As New SqlConnection(Conexion)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As [Link]) Handles
[Link]
End Sub
Protected Sub cmdIngresar_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim Conexion As String = "Data Source= CASTILLO;Initial
Catalog=PROGRAMAINMOBILIARIA;Integrated Security=True"
Dim conn As New SqlConnection(Conexion)
[Link]()
Dim insCmd As String = ("Insert into
Registro(Usuario,Contrasena,Email,NombreCompleto,Departamento) values
(@Usuario,@Contrasena,@Email,@NombreCompleto,@Departamento)")
Dim comando As New SqlCommand(insCmd, conn)
[Link]("@Usuario", [Link])
[Link]("@Contrasena", [Link])
[Link]("@Email", [Link])
[Link]("@NombreCompleto", [Link])
[Link]("@Departamento",
[Link]())
Try
[Link]()
[Link]()
[Link]("[Link]")
Catch ex As Exception
[Link]("Ha sucedido un error...Por favor intntelo de nuevo")
Finally
End Try
End Sub
End Class
CODIGO CON PARAMETROS PARA VISUAL [Link]
Imports [Link]
Imports [Link]
Public Class Registro
Inherits [Link]
Dim Conexion As String = "Data Source= CASTILLO ; Initial
Catalog=PROYECTOINMOBILIARIA;Integrated Security=True"
Dim conn As New SqlConnection(Conexion)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As [Link]) Handles
[Link]
End Sub
Protected Sub cmdIngresar_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim Conexion As String = "Data Source= CASTILLO;Initial
Catalog=PROGRAMAINMOBILIARIA;Integrated Security=True"
Dim conn As New SqlConnection(Conexion)
[Link]()
Dim insCmd As String = ("Insert into
Registro(Usuario,Contrasena,Email,NombreCompleto,Departamento) values
(@Usuario,@Contrasena,@Email,@NombreCompleto,@Departamento)")
Dim comando As New SqlCommand(insCmd, conn)
[Link]("@Usuario", [Link])
[Link]("@Contrasena", [Link])
[Link]("@Email", [Link])
[Link]("@NombreCompleto", [Link])
[Link]("@Departamento",
[Link]())
Try
[Link]()
[Link]()
[Link]("[Link]")
Catch ex As Exception
[Link]("Ha sucedido un error...Por favor intntelo de nuevo")
Finally
End Try
End Sub
End Class
TIPO DE CODIFICACION II
Imports [Link]
Public Class DatosEmpresa
Inherits [Link]
Dim encontro As Boolean
Protected Sub Page_Load(ByVal sender As Object, ByVal e As [Link]) Handles
[Link]
End Sub
Protected Sub cmdIngresar_Click(sender As Object, e As EventArgs) Handles
[Link]
verificar()
Try
If encontro = True Then
[Link] = "El cdigo ya se encuentra Ingresado"
[Link] = True
[Link]()
[Link] = False
[Link] = True
[Link] = True
Else
Dim Conexion As String = "Data Source= CASTILLO;Initial
Catalog=PROGRAMAINMOBILIARIA;Integrated Security=True"
Dim Cmd As String = "INSERT INTO DatosEmpresa
(CodEmpresa,NombreEmpresa,Direccion,Telefono,Web,Email) VALUES ( '" & [Link]
& "', '" & [Link] & "','" & [Link] & "','" & [Link] & "','" &
[Link] & "','" & [Link] & "')"
Dim conn As New SqlConnection(Conexion)
Dim myCom As New SqlCommand(Cmd, conn)
[Link]()
[Link]()
[Link]()
[Link] = ""
limpiar()
End If
Catch ex As SqlException
[Link] = [Link]
End Try
End Sub
Protected Sub cmdActualizar_Click(sender As Object, e As EventArgs) Handles
[Link]
actualizar()
[Link] = False
[Link] = True
[Link] = False
[Link] = False
limpiar()
[Link] = ""
End Sub
Protected Sub cmdCancelar_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = False
[Link] = ""
limpiar()
[Link] = True
[Link] = False
[Link] = False
End Sub
Protected Sub limpiar()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()
End Sub
Protected Sub verificar()
encontro = False
Dim Conexion As String = "Data Source= CASTILLO ; Initial
Catalog=PROGRAMAINMOBILIARIA;Integrated Security=True"
Dim strSQL As String = "Select
CodEmpresa,NombreEmpresa,Direccion,Telefono,Web,Email from DatosEmpresa where
CodEmpresa='" & [Link] & "'"
Dim conn As New SqlConnection(Conexion)
Dim comando As New SqlCommand(strSQL, conn)
Dim myreader As SqlDataReader
Try
'abrimos la conexion
[Link]()
'almacenamos la data en lectura
myreader = [Link]()
'realiza un vaciado por medio de un ciclo para determinar su cointenido en la base
de datos
While [Link]
'en la variable nombre le asignamos el nombre que viene de la tabla, la columna
2 nos indica que es el nombre
'si se fijan en la instruccion SQL 0 es la columna del iduser, 1 es de la columna
clave y 2 que es de la columna nombre
[Link] = [Link](0).ToString
[Link] = [Link](1).ToString
[Link] = [Link](1).ToString
[Link] = [Link](1).ToString
[Link] = [Link](1).ToString
[Link] = [Link](1).ToString
encontro = True
End While
'si no tiene informacion al respecto del datareader entonces nos desplegara un msg
de error
[Link]()
Catch ex As Exception
[Link] = [Link]
Finally
[Link]()
End Try
End Sub
Protected Sub actualizar()
Dim Condata As String = "Data Source= CASTILLO ; Initial Catalog=Data;Integrated
Security=True"
Dim Cmd As String = "UPDATE materias set Nombre ='" & [Link] & "' where
CodEmpresa='" & [Link] & "'"
Dim myCon As New SqlConnection(Condata)
Dim myCom As New SqlCommand(Cmd, myCon)
[Link]()
[Link]()
[Link]()
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]("[Link]")
End Sub
End Class
