Bueno este es mi 4 post
aver si les interesa este ejercicio de logeo con conexión a sql
abrimos sql server 2008 y creamos una ew query y aplicamos el siguiente : go
use master
go
if (DB_ID('tienda')is not null)
drop database tienda
go
create database tienda
go
use tienda
go
sp_helpdb tienda
go
create table users
(dni char(8)primary key,
clave varchar(8)not null,
ape varchar(30)not null,
nom varchar(30)not null)
go
--------------------procedimiento loguear
create proc loguear(@dni char(8),@clave varchar(8),@datos varchar(62)output)
as begin
if(exists(select * from users where dni=@dni and clave=@clave ))
set @datos =(select ape +','+nom from users where dni=@dni )
else
set @datos ='datos incorrectos'
end
go
insert users values('10203040','myPass','Rios flores','Jose'),
('44556677','asd123','Paz gomes','Cinthia')
go
declare @datos varchar(62)
exec loguear '10203040','myPass',@datos output
select @datos
go
declare @datos varchar(62)
exec loguear '44556677','asd123',@datos output
select @datos
go
2_abrimos visual studio 2008 y creamos un new project(formulario windows)
2.1_ le agregamos un modulo con el siguiente:
]
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Public Con As New SqlConnection("Data Source=.;DataBase=tienda;Integrated Security=true")
Public Sub abrir()
If Con.State = 0 Then Con.Open()
End Sub
Sub cerrar()
If Con.State = 1 Then Con.Close()
End Sub
Public clave As String
End Module
3_ver interfaz del formulario
(http://img213.imageshack.us/img213/3724/87517320.jpg)
utilizaremos 2 botones y 2 textbox (txtdni-txtclave) y escribimos el siguiente
]
Imports System.Data
Imports System.Data.SqlClient
Public Class acceso
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ingresar()
txtdni.Text = ""
txtclave.Text = ""
End Sub
Sub ingresar()
Dim cmd As SqlCommand
Dim msj As String
Try
Call abrir()
cmd = New SqlCommand("loguear", Con)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.AddWithValue("@dni", txtdni.Text)
.AddWithValue("@clave", txtclave.Text)
.Add("@datos", SqlDbType.VarChar, 62).Direction = 2
End With
cmd.ExecuteNonQuery()
msj = cmd.Parameters("@datos").Value
MessageBox.Show(msj)
clave = cmd.Parameters("@datos").Value
Me.Hide()
My.Forms.accesoactivo.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Call cerrar()
End Sub
End Class
4_ahora agregamos un nuevo formulario llamado accesoactivo y aplicamos el siguiente.
pero antes vemos la interfaz:(utilizando un toolstrip1 y le agregamos un toolstriptextbox1 llamado ttxtdatos(propiedad name))
(http://img254.imageshack.us/img254/5337/95584274.jpg)
]
Imports System.Data
Imports System.Data.SqlClient
Public Class accesoactivo
Private Sub accesoactivo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ttxtdatos.Text = clave
End Sub
End Class
-Listo . hemos terminado de hacer un logeo con BD .
_Despues de logearnos aparecera el nombre del dueño del dni en el ttxtdatos
_dni y pass estan en la BD (select * from users)
_bueno es todo ojala les sirva