Supongo que será una tontería pero llevo varios días con el y no consigo ver que hago mal. Si alguien consigue ayudarme se lo agradecería.
MDatabase.ConectarBase()
TRY CancionesLp = MDatabase.DatosConexion.Exec("Select * from Canciones")
IF ERROR THEN Message.Error("Error al acceder a la tabla de canciones")
MDatabase.CerrarConexion()
CancionesLp.MoveFirst()
WHILE CancionesLp.Available
IF CancionesLp["IdDisco"] = ValueBox1.Value THEN
LBCanciones.Add(CancionesLp["Nombre"])
END IF
CancionesLp.MoveNext()
WEND
TRY CancionesLp = MDatabase.DatosConexion.Exec("Select * from Canciones")
IF ERROR THEN Message.Error("Error al acceder a la tabla de canciones")
MDatabase.CerrarConexion()
CancionesLp.MoveFirst()
WHILE CancionesLp.Available
IF CancionesLp["IdDisco"] = ValueBox1.Value THEN
LBCanciones.Add(CancionesLp["Nombre"])
END IF
CancionesLp.MoveNext()
WEND
Gracias de antemano