recorrer tabla sql de usuarios y contraseñas

**valdin** · 16/05/2009, 02:44

buenos dias a todos, bueno el problema es el siguiente, tengo una tabla de usuarios y contraseñas, en la que tengo que bsucar el usuario y la contraseña indicados en dos textbox.
el problema es que no se como recorrer la tabla para comprobar que el usuario introducido se corresponde con la contraseña introducida.

¿podriais decirme alguna manera de hacerlo??

muchas gracias

**julitogtu** · 16/05/2009, 06:35

Hola, lo q yo haria es hacer una consulta donde el campo usuario y el campo contraseña sean iguales al valor q tienes en los textbox, te paso un ejemplo, miralo y cualquier cosa cion gusto

< ="Content-" content="text/; charset=utf-8">< name="ProgId" content="Word.">< name="Generator" content="Microsoft Word 12">< name="Originator" content="Microsoft Word 12"><a href="file:///D:%5CDOCUME%7E1%5CJULIOA%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" target="_blank"><a href="file:///D:%5CDOCUME%7E1%5CJULIOA%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" target="_blank"><a href="file:///D:%5CDOCUME%7E1%5CJULIOA%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping. xml" target="_blank"><!--[if gte mso 9]><>
<w:Word>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:Trackatting/>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfInvalid>false</w:SaveIfInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w

onotPromoteQF/>
<w:LidThemeOther>ES</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplex>X-NONE</w:LidThemeComplex>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w

ontGrowAutofit/>
<w:SplitPgBreakAndark/>
<w

ontVertAlignCellWithSp/>
<w

ontBreakConstrainedForcedTables/>
<w

ontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:Word>
</><![endif]--><>



Dim da as sqldatadapter

Dim ds as new dataset

Dim dt as new datatable

Dim opcion as integer

Try

Sql = “ select usuario,clave from usuarios
where usuario = ‘” % tbusuario.text & ”’ and clave = ‘” & tbclave.text
& “’”

Conexionsql.open()

da.Fill(ds, “usuarios”)

If ds.Tables(0).Rows.Count() = 0 Then

If opcion = 3
Then

MessageBox.Show("A Perdido la Oportunidad de Ingresar", "Sistema", MessageBoxButtons.OK,
MessageBoxIcon.Stop)

Me.Close()

End If

MessageBox.Show("Usuario o Contraseña
Incorrecta", "Sistema",
MessageBoxButtons.OK, MessageBoxIcon.Error)

opcion
+= 1 : conexionsql.Close()

Else

Msgbox(“Usuario Correcto”)

conexionsql.Close()

End If

Catch ex As Exception

MsgBox(ex.ToString)

End Try

Julito !!!

**valdin** · 16/05/2009, 10:41

muchas gracias por la respuesta tan rapida, pero he tenido un problema con el sqldataadapter

me dice kque no esta definido,

como puedo solucionarlo?

**julitogtu** · 16/05/2009, 11:17

ok, entonces antes de la linea q dice da.fill(ds,"usuarios") coloca:

da = new sqldataadapter(sql,conexionsql)

me avisas cualquier cosa....Julito !!

**valdin** · 17/05/2009, 09:01

Iniciado por julitogtu

ok, entonces antes de la linea q dice da.fill(ds,"usuarios") coloca:

da = new sqldataadapter(sql,conexionsql)

me avisas cualquier cosa....Julito !!

muchas gracias por la respuesta, ya he conseguido que no de errores.

bueno me ha sirgido un problema en el mismo form
resulta que cuando m sale el mensaje de usuario correcto, quiero que cierre el form de autenticacion y abra el form principal
podrias decirme como hacerlo?

he hecho esto

dim form as new formprincipal
form.show
me.close
pero esto cierrra todo

y si pongo el me.close antes pos tmpoco lo hace

gracias

**julitogtu** · 17/05/2009, 10:02

ok, en la parte izquierda, en el explorador de soluciones dale click derecho y luego seleciona propiedades, luego en menu de aplicaion (al abrir es el selccionado por defecto) , en la parte de abajo dice:

modo de apagado: selecciona "al cerrar el ultimo formulario"

pruebalo y me cuentas... Julito !!

**valdin** · 17/05/2009, 10:12

Iniciado por julitogtu

ok, en la parte izquierda, en el explorador de soluciones dale click derecho y luego seleciona propiedades, luego en menu de aplicaion (al abrir es el selccionado por defecto) , en la parte de abajo dice:

modo de apagado: selecciona "al cerrar el ultimo formulario"

pruebalo y me cuentas... Julito !!

muchas gracias ya esta solucionado

**PinkxD** · 22/05/2009, 09:30

Soy nueva en vb.net y tengo q hacer un programa estaba comenzando con la parte del login de usuario.. y necesitaba saber como verificar que los datos ingresados en el id y en el pass fuesen los mismos q en la db,
yo trate de utilizar el codigo de ejemplo q dejaste pero me sale un error con esta parte
<a href="file:///D:%5CDOCUME%7E1%5CJULIOA%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping. xml" target="_blank">Sql = “ select usuario,clave from usuarios
where usuario = ‘” % tbusuario.text & ”’ and clave = ‘” & tbclave.text
& “’”</a>
creo q los simbolos utilizados no coordinan con lo q estoy haciendo (window form). Pues reemplace todo lo demas.. estoy usando sql.
Saludos y muchas gracias por su ayuda.

**nereo.lopez** · 22/05/2009, 10:24

Hola pinkxD
a priori, me parece que el problema es el símbolo de porcentaje. cambialo por el ampersand (&)
Te recomendaría también que cuando guardes usuarios utilices algún tipo de encriptación, como Sha1 o el que tu elijas.

Cualquier cosa nos comentas. Un saludo, y bienvenida!

**PinkxD** · 22/05/2009, 13:21

Gracias nereo, lo cambie igual me sigue saliendo el error.. aunq ya mas o menos se que es.. me aparece como error sql y dice.. system.data.sql es un espacio de nombres y no se pude utilizar como una expresion.
Gracias por la atencion a la misma.. btw cuando la quito entonces me aparece una advertencion en conn

**julitogtu** · 22/05/2009, 14:23

hola, puedes poner el codigo por favor y con mucho gusto !!! pq lo unico q se me ocurre es q no te funcione el namespaces, pq al principio se debe importar, imports systems.data.sqlclient

**nereo.lopez** · 23/05/2009, 00:55

Buenos días!

tiene pinta de que los tiros vayan por lo que julio comenta. Si eso no funciona tampoco, pon el código como él dice a ver si podemos echarte una mano.
Saludos!

**Knossos** · 25/05/2009, 03:54

Hola a los tres.

No va por ahi.
Es que como te arroja el compilador, estas utilizando el comando como expersion (resultado de algo...que asignas a otra cosa) y no deberías.

A continuación te paso un ejemplito de como hacer la Select.

Dim lsSQL as String
Dim ldaTemp As New SqlDataAdapter
Dim ldtTemp As New DataTable

lsSQL = "Select.... bla bla bla"

Dim loCmd_SQL = New SqlCommand(lsSQL...., tu conexion a Sql)
loCmd_SQL.CommandType = CommandType.Text
ldaTemp.Fill(ldtTemp)

Esto es parte del codigo Básico del método "ExecuteQuery" para hacer tus consultas a tus tablas.

Simplemente agrégale tu objeto de conexion (lo que tengas definido para conectarte son tu Base de Datos de SQL Server) y te funcionará perfectamente.

cualquier cosa, pregunta.

Un abrazo desde España.

**Knossos** · 25/05/2009, 03:58

Una cosilla: Esto debe de estar en una clase que se llame (por ejemplo) NucleoDatos... o como quieras llamarla.

No debes hacer esto cada vez que necesitas hacer una consulta, ya que no estaria bien.

Lo ideal es que te crees una clase con un método que se llame ExecuteQuery y que copies esta pequeña rutina y le pases la SQL por parámetro, junto con el objeto de conexión que estás utilizando para esa base de datos.

Luego, en tus módulos / formularios / clases..o donde lo necesites, haces algo así como:

Dim loTablaxxx as new NucleoDatos(tuConexion)
Dim loDataTable as Datatable
Dim lsSql as string = "Select......."

loDataTable = loTablaxxx.ExecuteQuery(lsSql).

Y esto lo utilizas cuantas veces necesites, sin tener que cambiar nada.

Un abrazo desde España.

**PinkxD** · 25/05/2009, 09:14

muchas gracias por sus ayudas! Pude solucionar el problema.
Gracias por el tip knossos!
Abrazo desde Panama.

Foros de programación, recursos, tutoriales, sistemas operativos...

LinkBack

Herramientas

Buscar tema

Visualizar

Temas similares

Para Obtener/Almacenar Contraseñas Constantes

sobre perdida de contraseñas

Recorrer formularios

Programas con contraseñas

Recorrer controles

Permisos de publicación

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Foros de programación, recursos, tutoriales, sistemas operativos...

Tema: recorrer tabla sql de usuarios y contraseñas

Temas similares

Permisos de publicación