Estoy realizando una app que permita pasar los campos y datos de una tabla Access a una base de datos sqlite.
Va todo bien, me esta quedando de lujo.
Ahora bien, cuando decido pasar los datos (contenido de los campos registro por registro) el prcose se bloquea en el 3 o 4 registro de la tabla y me dice
DEBUGmdbtosqlite.exe dejo de funcionar. Y obvio no encuentro el error.
Si alguien puede ayudarme lo voy a agradecer.
Les paso el codigo a ver que onda.
Dim db As New ODBCDatabase
dim sql as string
Dim tables As RecordSet
dim i as integer
dim j as integer
db.DataSource = “Driver={Microsoft Access Driver (*.mdb)};Dbq=” + trim(label5.text) + “;Uid=Admin;Pwd=;”
If db.Connect Then
sql = "SELECT * FROM " + label10.text
tables=db.SQLSelect(sql)
if tables<>nil then
tables.movefirst
j=0
While Not tables.EOF
j=j+1
i=tables.columntype(j)
msgbox (tables.IdxField(1))
if i=5 then
msgbox ("TEXT")
end if
tables.MoveNext 'ACA ES DONDE SE PROBOCA CREO EL ERROR YA QUE LUEGO DEL MSGBOX DESPUES DEL TERCER REGISTRO APARECE EL ERROR
Wend
end if
tables.close
db.close
else
msgbox (“No logre la conexion con la base de datos”)
db.close
end if
return