Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda al tratar hacer consulta en visual basic

Estas en el tema de Ayuda al tratar hacer consulta en visual basic en el foro de Visual Basic clásico en Foros del Web. Bueno, es mi primera pregunta, estoy trabajando en visual studio y al hacer una busqueda en una base de datos de access (base.accdb) conectada al ...
  #1 (permalink)  
Antiguo 12/03/2010, 23:16
 
Fecha de Ingreso: marzo-2010
Mensajes: 1
Antigüedad: 14 años, 1 mes
Puntos: 0
Ayuda al tratar hacer consulta en visual basic

Bueno, es mi primera pregunta, estoy trabajando en visual studio y al hacer una busqueda en una base de datos de access (base.accdb) conectada al dsn me genera errores...

Cuando trato de comparar lo que tiene un textbox con el campo de la base me dice que es error de resolución de sobrecarga porque la funcion 'fields' no acepta ese número de argumentos, el código es:



Public Class Form1
Dim Conexion As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim Numero As Integer, Bandera As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Conexion = New ADODB.Connection
Tabla = New ADODB.Recordset
Conexion.Open("dsn=base")
Tabla.Open("aaa", Conexion, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Numero = Val(TextBox1.Text)
If Numero > 0 Then
Bandera = False

With Tabla
If .BOF = False And .EOF = False Then .MoveFirst()

Do While Not .EOF
Numero = !precio /AQUI ME MARCA EL ERROR
.MoveNext()
Loop

If Bandera = False Then
.AddNew()
!precio = TextBox1.Text //Y AQUI TAMBIEN
.Update()
MsgBox("Datos almacenados", MsgBoxStyle.Information, "AVISO")

End If
End With
Else
MsgBox("Meter datos", MsgBoxStyle.Information, "AVISO")
End If

End Sub
End Class



Agradezco de antemano su ayuda, talvez hay varias cosas que estoy haciendo mal, pero es un tipo de autoaprendizaje...
  #2 (permalink)  
Antiguo 19/04/2010, 10:04
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 14 años, 7 meses
Puntos: 47
Respuesta: Ayuda al tratar hacer consulta en visual basic

Cita:
Iniciado por Ulfrheimr Ver Mensaje
Bueno, es mi primera pregunta, estoy trabajando en visual studio y al hacer una busqueda en una base de datos de access (base.accdb) conectada al dsn me genera errores...

Cuando trato de comparar lo que tiene un textbox con el campo de la base me dice que es error de resolución de sobrecarga porque la funcion 'fields' no acepta ese número de argumentos, el código es:



Public Class Form1
Dim Conexion As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim Numero As Integer, Bandera As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Conexion = New ADODB.Connection
Tabla = New ADODB.Recordset
Conexion.Open("dsn=base")
Tabla.Open("aaa", Conexion, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Numero = Val(TextBox1.Text)
If Numero > 0 Then
Bandera = False

With Tabla
If .BOF = False And .EOF = False Then .MoveFirst()

Do While Not .EOF
Numero = !precio /AQUI ME MARCA EL ERROR
.MoveNext()
Loop

If Bandera = False Then
.AddNew()
!precio = TextBox1.Text //Y AQUI TAMBIEN
.Update()
MsgBox("Datos almacenados", MsgBoxStyle.Information, "AVISO")

End If
End With
Else
MsgBox("Meter datos", MsgBoxStyle.Information, "AVISO")
End If

End Sub
End Class



Agradezco de antemano su ayuda, talvez hay varias cosas que estoy haciendo mal, pero es un tipo de autoaprendizaje...
La variable Numero es Integer, le estas pasando un tipo Currency o String?... el campo !precio le pasas un String... verifica los tipos de datos

Etiquetas: basic, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:31.