DATASET

03/06/2005 - 08:52 por Sete | Informe spam

Tengo este codigo, segun yo deberia estar ok (soy newbye) me tira error en el Adapter1.fill(dsUsuario1) Me dice Excepcion no controlada del tipo "Systembla bla...q sera? me pregunto?

Dim coneccion As OleDbConnectio
Dim Adapter1 As OleDbDataAdapte
Dim dsUsuario1 As DataSe

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\pruebasdeVB.NET\ADA.mdb"

Adapter1 = New OleDbDataAdapter("SELECT Login, Pass FROM Usuario WHERE (Login=@paramLogin) And (Pass=@paramPass)", coneccion

dsUsuario1 = New DataSet(

dsUsuario1.Clear(
Adapter1.Fill(dsUsuario1

Adapter1.SelectCommand.Parameters("@paramLogin").Value = txtLogin.Tex
Adapter1.SelectCommand.Parameters("@paramPass").Value = txtPass.Tex

If (Me.BindingContext(dsUsuario1, "Usuario").Count And Me.BindingContext(dsUsuario1, "Usuario").Count) = 0 The

MessageBox.Show("No usuario"
Els
MessageBox.Show("Abrir Aplicación"

Sete

Ver este tema: http://www.softwaremix.net/viewtopic-396819.html

Enviado desde http://www.softwaremix.net

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 jose_saxo

03/06/2005 - 14:02 | Informe spam

yo tambien soy novato en esto pero lo veo todo bien...
pero puedes ponerle un try catch para que el mensaje de error sea mas
claro,controla las exceptions sqlexceptions...
a ver que dice ahora el mensaje :P

Responder a este mensaje

#2 Carlos Durán Urenda

03/06/2005 - 16:19 | Informe spam

Bueno pues en el ... bla bla ... se especifica la causa del error y seria
mas facil ayudarte

pero lo que puedo ver es que el problema está en los parametros, deberías
hacer algo mas o menos así

Adapter1 = New OleDbDataAdapter("SELECT Login, Pass FROM Usuario WHERE
(Login=?) And (Pass=?)", coneccion)

y luego definir los parametros

With Adapter1.SelectCommand
.Parameters.Add("Login", ValorLogin)
.Parameters(0).OleDbType=Oledb.OledbType.VarChar ' suponiendo que el
parametro es de texto"
.Parameters(0).Size=5
' suponiendo que la longitud es 5
.Parameters.Add("Pass",ValorPass)
...
...
End With

posteriormente puedes cambiar los valores de los parametros con
Adapter1.SelectCommand.Parameters(0).Value= Nuevo Valor

y al ejecutar el Fill te llenara solo los datos que concuerden con los
parametros establecidos

Saludos
Carlos Durán

"Sete" escribió en el mensaje
news:

Tengo este codigo, segun yo deberia estar ok (soy newbye) me tira error en
el Adapter1.fill(dsUsuario1) Me dice Excepcion no controlada del tipo
"Systembla bla...q sera? me pregunto?.

Dim coneccion As OleDbConnection
Dim Adapter1 As OleDbDataAdapter
Dim dsUsuario1 As DataSet

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=D:\pruebasdeVB.NET\ADA.mdb")

Adapter1 = New OleDbDataAdapter("SELECT Login, Pass FROM Usuario WHERE
(Login=@paramLogin) And (Pass=@paramPass)", coneccion)

dsUsuario1 = New DataSet()

dsUsuario1.Clear()
Adapter1.Fill(dsUsuario1)

Adapter1.SelectCommand.Parameters("@paramLogin").Value = txtLogin.Text
Adapter1.SelectCommand.Parameters("@paramPass").Value = txtPass.Text

If (Me.BindingContext(dsUsuario1, "Usuario").Count And
Me.BindingContext(dsUsuario1, "Usuario").Count) = 0 Then

MessageBox.Show("No usuario")
Else
MessageBox.Show("Abrir Aplicación")

Sete

Ver este tema: http://www.softwaremix.net/viewtopic-396819.html

Enviado desde http://www.softwaremix.net

Responder a este mensaje

#3 Cristian Nuñez

07/06/2005 - 00:20 | Informe spam

Saludos !!!!
Lo que puedes hacer es crear primeros los parámetros antes de usar el "Fill"
del "DataAdapter" y ademas tienes que usar el método "Add" del
OledbParameterCollection.

Para el otro ejemplo que pusiste puedes probar asi:
Try
usuDA.Fill(dsUsuario1, "usuario")
Catch ex As System.Data.OleDb.OleDbException
Stop
End Try
Asi cuando te de un error la aplicacion se detendrá y la variable "ex"
tendrá la información de la excepción

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida