Programación General > Visual Basic 6.0 e inferiores

 Problemas Con Bases Dao Y Ado

<< < (2/2)

neorent:

--- Cita de: "cpmario" --- Yo tuve problemas con un campo de indice auto numérico, que ya no quiso avanzar el índice, pero fue con DAO, cuando pasé la base de datos de Office 97 (Access Jet 3.5) a Office 2000 (Access Jet 3.6)

Si este puede ser tu problema, busca en Microsoft o Google lo referente al artículo con el siguiente número: Q202117


---------------------------------------------

--- Fin de la cita ---
si es ese el problema pero sabes yo no he migrado la base de datos sigue estando en access 97 asiq eu no entiendo cual podria ser la razon pero se estanco y no quiere avanzar igual pense que podia haberse descargado mal desde el servidor pero no la he descargado como 10 veces y el problema persiste igual me gustaria saber cuales son la referencias necesarias pk quizas puede ser una referencia que este faltando creo no se pk ahora le dio por mandar un error de.

No coinciden los tipos (Error 13)
y cuando depuro me marca esta linea de codigo
Set b = a.OpenRecordset("tabla_tecnicos")
no se porque pero creo que es pk falta una referencia
si me pueden ayudar se los agradeceria muchisimo que esten bien adios

eliza_marti:
mmmm  :huh:

neorent:

--- Cita de: "eliza_marti" --- mmmm  :huh:
--- Fin de la cita ---
yo tambien estoy asi  :huh: si quieres me envias un correo a mi mail y te envio la aplicacion con la base y la analisas y me cuentas que te parece¿?
neorent@gmail.com
 :comp:
gracias

cpmario:
Si el problema puede ser el contador entonces trata con esta rutina:

--- Código: Text --- Private Sub FixIDCounter()    Dim dbConsulta As Database    Dim lngIDPacID As Long    Dim strMainIDQry As String    Dim rsID As Recordset    On Error GoTo ErrorFixIDCounter    Set dbConsulta = DBEngine.OpenDatabase(gstrDBFilenameHist, False, False, &#34;;Pwd=&#34; & gstrPG)    strMainIDQry = &#34;SELECT * FROM Identificacion&#34;    Set rsID = dbConsulta.OpenRecordset(strMainIDQry, dbOpenDynaset)    rsID.MoveLast    lngIDPacID = rsID(&#34;IDPac&#34;)    rsID.Close    strMainIDQry = &#34;ALTER TABLE Identificacion ALTER COLUMN IDPac COUNTER (&#34; & lngIDPacID + 1 & &#34;,1)&#34;    dbConsulta.Execute strMainIDQry, dbFailOnErrorExit SubErrorFixIDCounter:    gstrMsg = &#34;Existe error al reparar el contador automático de la base de datos.&#34;    MsgBox gstrMsg, vbInformation, gstrAppTitleExit SubEnd Sub 
Esta rutina repara el contador, cambia las variables para que se ajusten a tu programa. Está diseñada para una base de datos con contraseña, retira la contraseña si tú no la usas.

Espero te sirva..
 :comp:

cpmario:

--- Citar ---No coinciden los tipos (Error 13)
y cuando depuro me marca esta linea de codigo
Set b = a.OpenRecordset("tabla_tecnicos")
--- Fin de la cita ---
Por otra parte verifica que tipo de variable es 'b' debe ser Recorset, o algo parecido. No colocas el resto del código.
 :comp:

Navegación

[0] Índice de Mensajes

[*] Página Anterior

Ir a la versión completa