Authorware - Base de Datos y authorware

 
Vista:
sin imagen de perfil

Base de Datos y authorware

Publicado por Cesar (2 intervenciones) el 13/07/2007 17:31:47
Hola amigos, ahora me han dejado de tarea que el trabajo realizado conecte con una base de datos, si es access mejor.

Estoy desesperado, me quieren jalar

Cesar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Base de Datos y authorware

Publicado por Bruno Chavez (2 intervenciones) el 06/11/2007 15:35:17
Hola! que authorware tienes, ya que yo estoy trabajando con la version 7 y es muy sencillo deja te pongo el codigo:

-- Nombre de la conexion via ODBC, si es que la quieres en este modo
DB_DatabaseName:="BD"
DB_ODBCError:=""

-- Abre el manejador de datos. Envia la variable a utilizar para los mensajes de error, el nombre de
-- la fuente de datos, el nombre de la base de datos y la clave de acceso
DB_ODBCHandle:=ODBCOpen(WindowHandle;"DB_ODBCError";DB_DatabaseName;"admin";"")

-- Revisamos si la conexion fue exitosa, si no fue asi, entonces nos conectamos directamente al
-- Archivo

if DB_ODBCHandle=0 then
DB_ODBCpath:=FileLocation^"db.mdb"
DB_ODBCuser:="Admin"
DB_ODBCpwd:="Admin"
DB_ODBCdriver:="Driver=(Microsoft Access Driver (*.mdb));"
DB_ODBCconnect:=DB_ODBCdriver
DB_ODBCconnect:=DB_ODBCconnect^"DBQ="^DB_ODBCpath^";"
DB_ODBCconnect:=DB_ODBCconnect^"UID="^DB_ODBCuser^";"
DB_ODBCconnect:=DB_ODBCconnect^"PWD="^DB_ODBCpwd^";"
DB_ODBCHandle:=ODBCOpenDynamic(WindowHandle;"DB_ODBCError";DB_ODBCconnect)
end if

-- Con esto ya tenemos abierta la base de datos
-- Para realizar operaciones en ella seria algo asi:

sSQL:="SELECT * FROM Tabla WHERE X="^X

info:=ODBCExecute(DB_ODBCHandle; sSQL)

if DB_ODBCError <> "" then
info:="Ocurrio un error."
end if

-- Info es un texto desplegado en pantalla

Espero que esto te sirva, en authorware 7 esto viene en un ejemplo...

Cualquier duda en la que te pueda ayudar avisame...

Saludos
Bruno Chávez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar