Visual basic

Como estas estoy haciendo una aplicación con visual baisc 6.0 y bdd mysql
tengo un problema en las onsultas cuando la base de datos esta muy llena
me sale el error proveedor de datos u otro servicio devolvió un estado E_fail
Estoy seguro que es la cantidad de registros por que la probé con menos y me funciona correctamente.
Este es una parte del código
Pedidos. MoveFirst
                        While Not pedidos.EOF
                            If pedidos.Fields("numero_pedido") = numero Then
                                sw = 1
                                Label11 = ""
                                Label7 = pedidos.Fields("fecha_ingreso")
                                Label11 = pedidos.Fields("cliente")
                                GoTo exi
                            End If
                            Pedidos. MoveNext
                        Wend
Donde pedidos es un recorset
El mensaje sale cuando cambia al siguiente registro
ose a en este pedidos. MoveNext
por favor si puedes darme una sugerencia te lo agradecería

1 Respuesta

Respuesta
1
¿En qué linea es el error?, si es el numero de registros de la consulta entonces deberías revisar la cantidad de memoria que tienes en el PC porque es posible que sea eso.
Hola como estas estoy haciendo una aplicación con visual baisc 6.0 y bdd mysql
tengo un problema en las onsultas cuando la base de datos esta muy llena
me sale el error proveedor de datos u otro servicio devolvió un estado E_fail
Estoy seguro que es la cantidad de registros por que la probé con menos y me funciona correctamente.
Este es una parte del código
Pedidos.MoveFirst
                        While Not pedidos.EOF
                            If pedidos.Fields("numero_pedido") = numero Then
                                sw = 1
                                Label11 = ""
                                Label7 = pedidos.Fields("fecha_ingreso")
                                Label11 = pedidos.Fields("cliente")
                                GoTo exi
                            End If
                            Pedidos.MoveNext
                        Wend
Donde pedidos es un recorset
El mensaje sale cuando cambia al siguiente registro
ose a en este pedidos.MoveNext
por favor si puedes darme una sugerencia te lo agradecería
Mi Pc tiene 2 Gb de RAM
por que lo que cre o que no se eso.
Lo que hice fue hacer la consulta directamente por que con ese recorset no soporta mucha informacion
esto fue lo que hice
cadena = "select numero_pedido from pedidos where numero_pedido='" & numero & "'"
                        Call consultar(cadena)
                        If IsNull(DATO.Fields("numero_pedido")) = True Then
                            If DATO.Fields("numero_pedido") = numero Then
                                sw = 1
                                Label11 = ""
                                Label7 = pedidos.Fields("fecha_ingreso")
                                Label11 = pedidos.Fields("cliente")
                            End If
                        End If
Y ya me funciona bien
Muchas gracias por su interés
Si lo puedo ayudar en algo con mucho gusto estoy a su disposición
Gracias
Que pena volver a molestarte pero es que me salio otro problemita, como ya sabes me toso de cambiar el tipo de consulta. Ahora estoy haciendo un inser y me saca un error en el paréntesis y no puedo ver cual es el inconveniente.
cadena = "insert into pedidos(numero_pedido,referencia,descripcion,cantidad,observaciones,fecha_ingreso,cliente) " _
& "VALUES('" & pedi & "','" & referen & "','" & descrp & "','" & can & "'," & observ & "'," & fec_ingre & ",'" & client & "')"
Coloque la fecha así sin las comas simples para que no me de error.
Con valores normales o sea sin variables la consulta la hace bien pero cuando lo hago con variables sale el error en los paréntesis
No cual es el error de los parentesios, tampoco mencionas el mensaje del error
El error dice que cheque el manual de referencia error en la sintaxis near ')'
El error esta en el sql justo en los paréntesis.
Gracias por tu interés
Mira con este código lo hace perfecto
cadena = "insert into pedidos(numero_pedido,referencia,descripcion,cantidad,observaciones,fecha_ingreso,cliente) " _
& "VALUES(102030,'blb','descri',1,'dobser','2010-06-17','metal')"
Hola ya lo pude solucionar
Lo que hice fue hacerlo con valores normales y después ir cambiando de uno en uno los registros, y le cuento que no me di cuenta cual era el error lo que se es que ya me funiono ahí le dejo el código por si alguien más lo necesita,
cadena = "insert into pedidos(numero_pedido, referencia, descripción, cantidad, observaciones, fecha_ingreso, cliente) " _
& "VALUES(" & pedi & ",'" & referen & "','" & descrp & "'," & can & ",'" & observ & "','" & fec_ingre & "','" & client & "')"
Call consultar(cadena)
Le voy a dar los puntos por su interés con mi duda
gracias
Lo que debe estar pasando es que una de las variables no tiene valor y eso hace que la sentencia sql sea invalida y de allí el error.
Verifica y valida que las variables tengan valores

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Unir Varios Campos en uno solo o en un campo Memo

Estoy tratando de unir varios campos en un campo memo. Lo que quiero hacer es enviar un mail a cada cliente con el contenido de la factura de compra. Tengo una base de datos de pedidos de clientes como una factura y cada factura tiene varios...
1 respuesta

Búsqueda dinámica en Visual basic 6.0

Necesito que alguien me ayude con esto, la cuestión es la siguiente, estoy haciendo un sistema y necesito realizar una búsqueda dinámica, osea, que el usuario a medida de que vaya introduciendo el nombre de la persona el sistema le vaya cargando una...
1 respuesta

Valores nulos en fechas

Nuevamente acudo a usted con otro problema, necesito insertar valores nulos a la base de datos, más exactamente una fecha, en el código que usted me ayudo a construir la fecha de retiro de un empleado en ocasiones debe estar nula, ya que el empleado...
1 respuesta

Autogenerar código ayudame

La idea es autogenerar un código (100220110001) que es la fecha 10022011 más un correlativo de 4 dígitos (0001) Por ejemplo fecha 10/02/2011 Registro 1 (100220110001) Registro 2 (100220110002) ... Fecha 11/02/2011 Registro 1 (110220110001) Registro 2...
1 respuesta

Consulta de fecha en access

Tengo una tabla con varios campos donde quiero hacer la consulta de selección por el campo fecha, este campo tiene el formato de fecha corta. Debería ser sencillo pero no entiendo por que no funciona, el campo tiene 85 registros en diferentes fechas,...
5 respuestas

Extraer números entre paréntesis de una celda

Necesito extraer unos números entre paréntesis y con el signo del € pero no hay forma... Todas las celdas tienen este formato: Exclusive product - WQK (3737.77 € ) Y necesito los números 3737.77 para poder hacer cálculos (numérico) ¿Alguien me ayuda...
1 respuesta

Problema DBusq

Tengo un problema con la función DBusq, tengo en un formulario llamado Pedidos con un cuadro combinado del que selecciono los nombres de clientes que provienen de una tabla llamada Clientes, en ese mismo formulario tengo un cuadro de texto que...
1 respuesta

Filtrar fechas en SQL SERVER

Necesito filtrar un rango de fechas por dos campos diferentes, explico un poco:Tengo un campo fecha_ini y otro fecha_final, como hago para seleccionar un rango que vaya desde fecha_ingreso hasta fecha_fin, he usado lo siguiente para seleccionar...
1 respuesta

Error al llamar datos de una tabla

Tengo el Siguiente código: Private Sub cboObra_Click() cboAnticipoDirigidoA.Text = "" cboLegalizacionNo.Text = "" Set Con = New ADODB.Connection With Con .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb"...
2 respuestas

Instrucciones para marcar cantidades con decimales y cargar formularios en Microsoft Access

Espero que te encuentres bien, después de algún tiempo, vuelvo con más preguntas, en esta ocasión: a)Cual es la mejor forma para que me una caja de texto me aparezca una cantidad de dinero con decimales y con el signo de una determinada moneda (lo he...
1 respuesta