CnxHFSQL is Connection
CnxHFSQL.Provider = hAccessHFClientServer
CnxHFSQL.User = "admin"
CnxHFSQL.MotDePasse = ""
CnxHFSQL.Server = "HFSQLServeur:4900"
CnxHFSQL.Database = "CRM"
HOpenConnection(CnxHFSQL)
sListeLiaisons is string = HListLink("*", CnxHFSQL)
sInfoUneLiaison is string
UneLiaison is Link Description
FOR EACH STRING sInfoUneLiaison OF sListeLiaisons SEPARATED BY CR
IF sInfoUneLiaison <> "" THEN
UneLiaison.Name = ExtractString(sInfoUneLiaison, 1, TAB)
UneLiaison.SourceFile = Replace(ExtractString(sInfoUneLiaison, 2, TAB), CnxHFSQL.Database, ".", IgnoreCase)
UneLiaison.SourceKey = ExtractString(sInfoUneLiaison, 3, TAB)
UneLiaison.LinkedFile = Replace(ExtractString(sInfoUneLiaison, 5, TAB), CnxHFSQL.Database, ".", IgnoreCase)
UneLiaison.LinkedKey = ExtractString(sInfoUneLiaison, 6, TAB)
Trace("Suppression >> " + UneLiaison.Name + " >> " + HDeleteLink(CnxHFSQL, UneLiaison))
END
END