ahora hagamos las csas algo mas incomodas, supongamos que queremos comprobar datos de varios usuario que tenemos en l abase de datos, queremos saber cual detodos los usuario fue el que se logueo y agragar modificar y todo eso, bueno vamos a eso ahora
primero les anexo la clase que sirve para usar de conexion a la base de datos y para realizar consultas de seleccion (Select) y consultas de accion(Delete,insert into, update, etc)
El nombre de la clase es Conectividad
Código:
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Public Class Conectividad
Dim strConx As String = "Data Source=Nombre_Equipo\sql_2005;initial catalog=Nombre_Base_Datos;User ID=Nombre_usuario;Password=Password_usuario" 'System.Configuration.ConfigurationSettings.AppSettings.Item("conectionString").ToString 'System.ConfigurationSettings.AppSettings("strconeccion")'ConfigurationSettings.AppSettings("strconeccion")
Public Function Consulta(ByVal pConsulta, ByRef pError) As Data.DataSet
Dim objConn As New SqlConnection
objConn.ConnectionString = strConx
Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.Text
objCmd.Connection = objConn
objCmd.CommandText = pConsulta
Dim daAdapter As New SqlDataAdapter
daAdapter.SelectCommand = objCmd
Dim dsDatos As New Data.DataSet
Try
daAdapter.Fill(dsDatos)
pError = ""
Return dsDatos
Catch e As SqlException
pError = "Error:" & e.Message & " en " & e.Source
Catch e As Exception
pError = "Error:" & e.Message & " en " & e.Source
Finally
objCmd.Dispose()
objConn.Dispose()
End Try
End Function
Public Function ConsultaRep(ByVal pConsulta, ByRef pError, ByVal pNomTabla) As Data.DataSet
Dim objConn As New SqlConnection
objConn.ConnectionString = strConx
Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.Text
objCmd.Connection = objConn
objCmd.CommandText = pConsulta
Dim daAdapter As New SqlDataAdapter
daAdapter.SelectCommand = objCmd
Dim dsDatos As New Data.DataSet
Try
daAdapter.Fill(dsDatos, pNomTabla)
Return dsDatos
Catch e As SqlException
pError = "Error:" & e.Message & " en " & e.Source
Catch e As Exception
pError = "Error:" & e.Message & " en " & e.Source
Finally
objCmd.Dispose()
objConn.Dispose()
End Try
End Function
Public Sub Accion(ByVal pConsulta, ByRef pError)
Dim objConn As New SqlConnection
objConn.ConnectionString = strConx
Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.Text
objCmd.Connection = objConn
objCmd.CommandText = pConsulta
Try
objConn.Open()
Catch ex As SqlException
pError = "Error:" & ex.Message & " en " & ex.Source
Exit Sub
Catch ex As Exception
pError = "Error:" & ex.Message & " en " & ex.Source
Exit Sub
End Try
Try
objCmd.ExecuteNonQuery()
Catch ex As SqlException
pError = "Error:" & ex.Message & " en " & ex.Source
Exit Sub
Catch ex As Exception
pError = "Error:" & ex.Message & " en " & ex.Source
Exit Sub
End Try
End Sub
End Class
Bueno y despues para usar debes crear un objeto, algo asi
Dim oUsuario as New Conectividad
Dim dsUsuario as New DataSet
Dim pError as String=""
Dim strConsulta as String
strConsulta="Select * from tu_tabla where usuario=x and password=y"
dsUsuario=oUsuario.consulta(strConsulta,pError)
if pError<>"" then
'Aqui muestra tu mensaje de error, el cual lo contiene la variable pError
else
'Si no hay error, entonces
if dsUsuario.tables(0).rows.count>0 then
'Si hubo resultados y mostrar el mensaje que el usuario esta validado
else
'si no es que el usuario no existe
end if
End if
aqui te bajas un ejemplo para qu elo veas funcionando,
enlos 3 links esta el mimo ejemplo, por lo que no valla a creer que son 3 ejemplo, es el mismo, en diferentes lugares
http://rapidshare.de/files/47972568/loginformsql.rar.htmlhttp://www.megaupload.com/?d=NX9CUP8Chttp://rapidshare.com/files/261069644/loginformsql.rar
No hay comentarios:
Publicar un comentario