Datagrid y access

Hola! Tengo un problemilla y es que si utilizo access 2000 no me carga el datagrid y con el 97 sí. He puesto el 4.0 así que no se lo que puede ser, te mando un trozo de código a ver si ves el error. Gracias.
'REALIZO LA CONEXION
MiConexion.Provider = "Microsoft.Jet.OLEDB.4.0;"
MiConexion.ConnectionString = "Data Source=" & App.Path & "\fotos.mdb"
MiConexion.Open
Set MisReg = New ADODB.Recordset
MisReg.CursorType = adOpenKeyset
MisReg.LockType = adLockOptimistic
MisReg.ActiveConnection = MiConexion
'CARGO EL DATAGRID
Set misreg5 = New ADODB.Recordset
misreg5.CursorType = adOpenKeyset
misreg5.LockType = adLockOptimistic
misreg5.ActiveConnection = MiConexion
sql = "select * FROM ticket"
misreg5.Open sql, MiConexion
Set DataGrid2.DataSource = misreg5
2

2 Respuestas

91.225 pts. Estudio ingenieria en sistemas, estoy en 3º año
Lo que te falta es en la es lo mismo en la conexión y en el recordset.
Supongo que el mensaje de error que te aparece, dice que el conjunto de filas no acepta o no tiene marcadores algo así...
Para solucionarlo pones
en los 2
adoconeccion.CursorLocation = adUseClient
esto va antes de
MisReg.ActiveConnection = MiConexion
---------------------------
rsADO.CursorLocation = adUseClient
y esto va antes de
misreg5.ActiveConnection = MiConexion
Ya lo había averiguado, pero gracias porque era eso lo que fallaba, ahora tengo otro problema y es que al imprimir un informe me pide la contraseña de MS access y yo no le he puesto ninguna ¿tiene algo que ver el haber puesto adUseClient? Yo creo que sí porque no he tocado otra cosa.
Gracias. Te mereces el 5 y a ver si con esta es un 10, je je
Si para hacer consultas o sea para lo del primer problema no usaste la contraseña...
Es extraño que ahora te la pida...
Pero puede ser,
Que tengas el recordset abierto para mostrar los datos...
Y que quieras volver a abrirlo para imprimirlos... ese puede ser el problema
A mi nunca me causo eso haber agregado aduserclient...
Verifica eso que te acabo de decir,
fíjate si la base de datos tiene alguna protección...
Puedes cerrar el recordset que te muestra la consulta en el datagrid... sin actualizar este ultimo, para que siga mostrando los datos...
Y realizar la consulta otra vez, para poder tomar los datos para imprimirlo...
También puedes probar con aduseserv, ua que este tiene libre acceso...
Yo directamente imprimo los datos desde el grid. Por eso nunca me surgió este problema.
Prueba a ver como sale...
46.750 pts.
A mi me había pasado eso, probá poniendo cursorlocation = aduseclient en misreg y misreg5
Creo que así lo había solucionado
Y disculpame la demora, estaba en parciales
Ya lo había solucionado con cursorlocation = aduseclient pero ahora tengo otro problema y es que al imprimir un iforme con crystal reports me pide la contraseña de la base de datos y yo he puesto ninguna ¿puede ser que no sea compatible el access 2000 y el crystal reports 4.6?. Porque si abro el informe desde crystal reports me pide también la contraseña y cuando le doy a cancelar dice que no reconoce el formato de la base de datos, no tengo ni idea de que puede ser y estoy estancada.
Gracias
Exactamente, la versión original no lo soporta; bajate este archivo:
http://es.groups.yahoo.com/group/visualbasic-esp/files/access2000drivers.zip
Que son los drivers para access 2000; no los probé ya que yo uso crystal 8.5, pero deberían de funcionar...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Botón Examinar en Access y guardar la URL en un textbox

Tengo un formulario que guarda los escáner y luego lo descargue. Se que no se debe guardar imágenes en las bases de datos por la situación del peso, por lo tanto La idea es tener un botón "Examinar" que su función es que me abra el cuadro de dialogo...
1 respuesta

Consulta donde aparezca lo que está escrito en el formulario

No sé si es posible pero me gustaría crear una consulta donde se registrara lo que hay escrito en el formulario, es decir, que se copie de forma instantánea lo que hay en el formulario y que si se borra del formulario se borre de la consulta.
1 respuesta

Actualizar automáticamente al apretar botón

Me gustaría que al apretar el botón de un formulario se me actualizara una tabla y una consulta de forma automática. Actualmente si le doy al botón, después a la tabla le tengo que dar a Actualizar Todo para que aparezca el registro nuevo y me...
1 respuesta

Error en Sumas en un Formulario

Tengo un Formulario en el que muestro el resultado anual de movimientos mes a mes. Intento sumar los resultados por trimestres y mientras estoy trabajando con el me realiza las sumas trimestrales perfectamente. Pero al salir y volver a entrar en el...
1 respuesta

Validar botón access con permisos de usuario

Estoy practicando con permisos de usuarios y tengo el siguiente código que verifica si tiene el permiso de lo contrario el botón se a paga Dim userlevel As Integer userlevel = DLookup("Generarpdf", "usuarios", "usuario = '" &...
2 respuestas

Alguna ruta o guía con este problema de vba

Macro con un pequeño error en comentario una guía por favor la pregunta esta en otra pregunta
1 respuesta

Problema con decimales en excel

Lo que ocurre es que, al realizar un cálculo con el código adjunto, si hay decimales me da error 1004, en cambio, si hay números enteros todo funciona perfecto. Cells(5, 6).Value = "=-1*" & Cells(5, 4).Value & "*" & Cells(4, 6).Value & "+" & Cells(5,...
1 respuesta

Ejecutar código en columnas intercaladas

Como puedo hacer que este código Buenas expertos de excel Tengo el siguiente código pero me gustaría que se ejecutara solamente en las columnas intermedias como A, C, E, G, I, QUE, M, O, QUE, ES, U, POR, Z Como puedo lograrlo Sub colorear() inicio =...
1 respuesta

Exportar Consulta de Access a un excel

Me gustaría saber si es posible exportar una consulta con criterio a un excel muestro el siguiente ejercicio : Tengo una botón que ejecuta una consulta por criterio de fecha: la respuesta es exitosa Mi pregunta si es posible al dar clic en el botón...
2 respuestas

Macro para borrar completas desde la 1ª fila (celda A1), hasta fila cuya primera celda contiene el valor Unit ID/Número Bastidor

Necesito una macro que, en primer lugar, borre enteras desde la primera fila (celda A1), hasta la fila cuya primera celda (celda de la columna A) contiene el texto Unit ID/Número Bastidor. En segundo lugar, quisiera que borrara las filas completas,...
1 respuesta