
19/04/2010, 10:04
|
 | | | Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 6 meses Puntos: 47 | |
Respuesta: Ayuda al tratar hacer consulta en visual basic Cita:
Iniciado por Ulfrheimr 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 |