$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
ahora le indicamos que base de datos vamos a usar:$DataBase = @ScriptDir & "\basededatos.mdb"
$s_database=FileGetShortName($DataBase)
ahora creamos el objeto ADODB con el que nos conectaremos a la base de datos y realizaremos las consultas mediante comandos SQLantes guardamos en una variable la consulta SQL que vamos a realizar:
$consultaSQL= "SELECT * FROM post ORDER BY titulo"
$objetoConnection = ObjCreate("ADODB.Connection")
$objetoRecordSet = ObjCreate("ADODB.Recordset")
$objetoConnection.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="&$s_database&";UID=;PWD=")
$objetoRecordSet.Open($consultaSQL, $objetoConnection, 2, 2)
nos movemos al primer registro devuelto por la consulta SQL$objetoRecordSet.MoveFirst
ahora ya podemos recorrer los resultados mediante un bucleWhile Not $objetoRecordSet.Eof
$resultado = $resultado & $objetoRecordSet.Fields(2).Value & @CRLF
$objetoRecordSet.MoveNext()
WEnd
cerramos la conexion:$objetoRecordSet.Close
$objetoConnection.Close
les dejo otros comandos SQL que podemos ejecutar:Agregar datos a la base: $consultaSQL=
"INSERT INTO POST (titulo, linkdeltitulo) VALUES ("&GUICtrlRead($ta_titulo)&","&GUICtrlRead($ta_linkdeltitulo)")"
Borrar datos de la base: $consultaSQL= "DELETE FROM POST WHERE titulo = "&GUICtrlRead($ta_titulo)
DATOS IMPORTANTES:Fuente: elsoportista.blogspot.com.