Access con Xojo

International Español
1

Hola.
Anteriormente programe en Visual Basic 6, con el cual realize muchos programas para empresas, los cuales estan en uso.
Es mi deseo actualizarlos a xojo, pero quiero seguir utilizando en ellos la base de datos access.
Les encargo si existe algun software de migracion de access a sqlite3, agradeceria me lo hagan saber (Por supuesto Free).

He estado haciendo algunas pruebas hoy en la maana y logro la conexion a la base de datos, pero no asi la muestra de un dato luego de la busqueda.
En este caso me dice que encuentra el registro buscado por medio del codigo pero no me muestra el contenido del campo a ver, sino que aparece un msgbox vacio.

Les paso el codigo y la inquietud, desde ya muchas gracias.

Dim db As New ODBCDatabase
db.DataSource = “Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Biblioteca.mdb;Uid=Admin;Pwd=;”
If db.Connect Then
msgbox(“Logre la conexion”)

Dim rs As RecordSet
rs = db.SQLSelect("SELECT * FROM autor where codautor='A011'")

If db.Error Then
  MsgBox("Error: " + db.ErrorMessage)
  Return
End If

If rs <> Nil Then
    msgbox rs.field("Nombre").StringValue  ' Aqui me muesta el msgbox vacio o sea no aparece el contenido del campo nombre
    rs.Close
else
  msgbox ("No esta")
  rs.close
End If
db.Close

Else
MsgBox("Error: " + db.ErrorMessage)
End If

2

Hola Javier,

Estoy utilizando el traductor de google, perdn por mis errores.

Hay algunas sugerencias:

  1. hay un espacio en C:\Biblio … (no debera haber ningn espacio)
  2. El registro puede no existir en SQL (Try “SELECT * FROM autor” en su lugar)
  3. A veces la base de datos no es accesible en el directorio c:\. Pruebe el directorio C:\Test\ directorio en lugar

Aqu est el cdigo que funciona en Windows 8.1 con REALbasic 2015 r1.

[code] Dim db As New ODBCDatabase
db.DataSource = “Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Biblioteca.mdb;Uid=Admin;Pwd=;”
If db.connect Then
msgbox ("Achieve Connection ")
Dim rs As RecordSet
rs = db.SQLSelect ("SELECT * FROM autor ")
If db.Error Then
MsgBox (“Error:” + db.ErrorMessage)
Return
End If
If rs <> Nil Then
msgbox rs.Field (“Name”). StringValue
'It shows the name of the first RecordSet
rs.Close
else
msgbox (“Not”)
rs.close
End If
db.Close
Else
MsgBox ( “Error:” + db.ErrorMessage)
End If

Exception err as OLEException //Let the user know of errors
MsgBox str(err)[/code]

Edit: Mi error. Traductor Google espacios aadi en C: \

Note: La palabra “Nombre” es una palabra reservada en Access. Try ‘FNombre’.

3

Muchas Gracias, me sirvio, te agradezco