Forum > Databases

Zeos zconnection problem

(1/1)

d:soft:
Salve a tutti, pongo una questione probabilmente già affrontata e risolta:
sto usando i componenti zeos per accedere a un database SQLite. Il componente ZConnection ha un metodo GetTableNames che torna in una stringlist la lista dei nomi delle tabelle. Se nel db ci sono tabelle che nel nome hanno un carattere di underscore _ la procedura va in errore. Qualcuno ha incontrato questo problema ?

nomorelogic:
Ciao
Vedo che questo è il tuo primo post quindi approfitto per darti il benvenuto.

Purtroppo oggi non riesco a verificare questa cosa, ma intanto vorrei chiederti la versione delle zeoslib che stai usando.

Ciao
Nomorelogic

DragoRosso:
Runtime x64, Lazarus 2.2.4, FPC 3.2.2, ZEOS 7.2.14

La versione di sqlite3.dll non la sò si preciso, la dll è di Aprile 2021

Funziona senza problemi. Tra l'altro io ho per default una tabella, evidentemente nascosta "sqlite_sequence" con l'underscore appunto.

Ciao

d:soft:
Salve, grazie della sollecitudine nel rispondere. Errore mio comunque. In effetti la funzione GetTableNames funziona. Quella che da problemi e' GetColumnNames. Il tutto mi serve per costruire dinamicamente un menu popup con nomi tabelle e relativi campi


--- Codice: ---
procedure TForm1.AggiornaMenuDBMemo;
var
 tb,cp: TMenuItem;
 t,c: string;
 listatabelle,listacampi: TStringList;
begin
 listatabelle:=TStringList.create;
 listatabelle.Sorted:=true;
 listacampi:=TStringList.create;
 try
  ZConnection1.GetTableNames('',listatabelle);
  listatabelle.Delete(listatabelle.IndexOf('analisi'));
  listatabelle.Delete(listatabelle.IndexOf('param'));
  CampiDB.Clear;
  for t in listatabelle do
   begin
    tb:=TMenuItem.Create(PopupMenu1);
    tb.Caption:=UpperCase(t);
    campiDB.Add(tb);
    //----- senza la funzione StringReplace se nel nome tabella c'e' un underscore si genera un errore perche' l'underscore e' usato come carattere jolly
    zconnection1.GetColumnNames(StringReplace(t,'_','/_',[rfReplaceAll]), '', listacampi);
    for c in listacampi do
     begin
      cp:=TMenuItem.Create(PopupMenu1);
      cp.Caption:=c;
      cp.OnClick:=@ItemNomeCampoClick;
      tb.Add(cp);
     end;
   end;
 finally
  listatabelle.free;
  listacampi.free;
 end;
end;

--- Termina codice ---

Se il nome tabella, di cui ottenere i nomi dei campi, contiene un underscore si ha un errore. Ora penso di aver capito. il carattere underscore e' usato come carattere jolly per passare una maschera e va "escappato" per "non dare fastidio", sostituendo gli underscore con il carattere di escape e underscore

zconnection1.GetColumnNames(StringReplace(t,'_','/_',[rfReplaceAll]), '', listacampi);

Ora il tutto funziona. Grazie comunque per l'attenzione

Navigazione

[0] Indice dei post