Bases de datos
Hola y gracias por anticipado.
Estoy intentando trabajar con Datagrip y Director 8.5.
Hace mucho que no trabajo con lingo y me está costando un poco
Tengo este código y me dice que no existe la tabla cuando he comprobado todo y si existe
on mouseUp
set sqlString = "SELECT Musico_DNI FROM Musicos"
set rsHandle = DGCreateRecordset(sqlString, dbHandle)
if rsHandle = "#ERROR#" then
alert "Error: " & GetLastDGError()
alert "Now exiting tabla."
end if
end
¿Qué me falta
Gracias
Estoy intentando trabajar con Datagrip y Director 8.5.
Hace mucho que no trabajo con lingo y me está costando un poco
Tengo este código y me dice que no existe la tabla cuando he comprobado todo y si existe
on mouseUp
set sqlString = "SELECT Musico_DNI FROM Musicos"
set rsHandle = DGCreateRecordset(sqlString, dbHandle)
if rsHandle = "#ERROR#" then
alert "Error: " & GetLastDGError()
alert "Now exiting tabla."
end if
end
¿Qué me falta
Gracias
1 Respuesta
Respuesta de paulito
1
Como yo lo hago.
Siempre en el primer Movie tomalo como un movie loading que se carga primero yo pongo esto y así no tienes que repetirlo en cada select
-----------------------------
On prepareMovie
-- Abrir la Base de Datos
set PathBD = the moviepath&"bd\BD97.mdb"
-- Defino esta variable global para todos los movies y siempre tengo que ponerla como global en los demás movies.
Global gBD
set gBD = DGOpenDatabase(PathBD,1,1,";PWD=hemmdd")
if gBD = "#ERROR#" then
alert "Error la Base de Datos no se encuentra" & GetLastDGError()
alert "Ahora se cerrará la Aplicación."
ClearDGError()
quit
end if
end
----------------------------
Y después en otro movie hago esto
global gBD
SQLInfoC="SELECT * FROM TbGenerales WHERE type= 2 And Name='"&Var&"'"
set RSInfoC=DGCreateRecordset(SQLInfoC, gBD)
-- Obtengo el valor del campo dado el recorset y texto
CItems =DGRSGetFieldValue ("Description", RSInfoC)
Y así es como lo hago colega y nunca me ha dado problemas y no tienes necesidad de repetir constantemente el
if rsHandle = "#ERROR#" then
alert "Error: " & GetLastDGError()
alert "Now exiting tabla."
end if
Siempre en el primer Movie tomalo como un movie loading que se carga primero yo pongo esto y así no tienes que repetirlo en cada select
-----------------------------
On prepareMovie
-- Abrir la Base de Datos
set PathBD = the moviepath&"bd\BD97.mdb"
-- Defino esta variable global para todos los movies y siempre tengo que ponerla como global en los demás movies.
Global gBD
set gBD = DGOpenDatabase(PathBD,1,1,";PWD=hemmdd")
if gBD = "#ERROR#" then
alert "Error la Base de Datos no se encuentra" & GetLastDGError()
alert "Ahora se cerrará la Aplicación."
ClearDGError()
quit
end if
end
----------------------------
Y después en otro movie hago esto
global gBD
SQLInfoC="SELECT * FROM TbGenerales WHERE type= 2 And Name='"&Var&"'"
set RSInfoC=DGCreateRecordset(SQLInfoC, gBD)
-- Obtengo el valor del campo dado el recorset y texto
CItems =DGRSGetFieldValue ("Description", RSInfoC)
Y así es como lo hago colega y nunca me ha dado problemas y no tienes necesidad de repetir constantemente el
if rsHandle = "#ERROR#" then
alert "Error: " & GetLastDGError()
alert "Now exiting tabla."
end if
