Newsgroup: it.comp.lang.delphi
Titolo: ADO e verifica esistenza tabella

All'avvio del programma devo verificare l'esistenza o meno di una tabella in
un database Access attraverso un componente ADO.
Se la tabella esiste allora la devo cancellare e ricreare vuota, se non
esiste non faccio nulla.
io ho fatto qualcosa del tipo
adoselect.sql.text:='DROP TABLE 'nometabella';
adoselect.ExecSQL;
adoselect.Close;
adoselect.SQL.clear;
se la tabella esiste allora la cancella senza problemi, se però non esiste
chiaramente il programma mi crasha perchè non la trova.
C'è un modo per verificare se una tabella esiste e nel qual caso
cancellarla?
Ce'è un qualche comando che mi sfugge?
Grazie a tutti

 Ce'è un qualche comando che mi sfugge?
ciao,
il comando esiste ed è un metodo della classe TADOConnection, si tratta di
GetTableNames
qui sotto ti metto un piccolo esempio che ho provato a fare, cmq, guarda la
guida di delphi e trovi un altro esempio ;)
ciao
roberto
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  nomeTabellaDaEliminare : String;
  isTabellaEsiste        : boolean;
  j                      : integer;
begin
  nomeTabellaDaEliminare := 'tblAziende2';   // per esempio
  isTabellaEsiste := false;
  ADOConnection1.Connected     := true;
  ADOConnection1.GetTableNames(ListBox1.Items, false);
  ADOConnection1.Connected := false;
  for j:=0 to ListBox1.Items.Count-1 do
    if ListBox1.Items.Strings[j] = nomeTabellaDaEliminare then
      isTabellaEsiste := true;
  if isTabellaEsiste then
    ShowMessage('la tabella esiste quindi elimino la tabella')
  else
    ShowMessage('la tabella non esiste perciò non faccio niente');
end;
end.

guida di delphi e trovi un altro esempio ;)
Ottimo esempio, complimenti :)
-- 
Morde. 
morde[at]programmer[.]net

 Ottimo esempio, complimenti :)
sto imparando :)
tra l'altro qualche tempo fa avevo io stesso il problema in questione, e
forse la soluzione me l'avevi data proprio te.
gira e rigira le domande e risposte sono quasi sempre le stesse, non si
potrebbe creare un progetto comune per archiviarle tutte?
ciao
Roberto

potrebbe creare un progetto comune per archiviarle tutte?
Eh eh he.... il problema non sono le idee, ce n'e' un vagone, ma il TEMPO. Mi
sembra di capire che la maggior parte siamo tutti professionisti del settore,
e il tempo da dedicare a queste cose e' veramente poco.... purtroppo :(
Ciao


 Ciao
si č vero, c'č poco tempo, anche se ultimamente dalle mie parti (to) non c'č
poi tanto lavoro, vedo un po' se riesco a farmi venire un'idea nei prossimi
giorni e poi lo comunico al newsgroup.
ciao

poi tanto lavoro
anche qui (VA) c'e' aria di crisi, da circa un anno l'hardware e' sottoterra,
e noi sopravviviamo con soluzioni software verticalizzate e personalizzazione
ai gestionali che vendiamo.
Il mercato cmq, e' in piena crisi (complice anche la guerra, nessuno sposta
piu' denaro, quindi nessuno investe, quindi niente lavori....).


 piu' denaro, quindi nessuno investe, quindi niente lavori....).
    si sono d'accordo, in più dalle mie parti si soffriva già per la FIAT,
infatti come è noto, Torino è molto FIAT dipendente.
    vedremo di sopravvivere! Auguri a tutti!
ciao
Roberto

 ha scritto nel messaggio
news:b8iv2a$vs4$1...@lacerta.tiscalinet.it...


Condivido pienamente il problema per tutti del TEMPO. !!!
E' proprio questo il fulcro di tutto.
Qui dentro *non mancano* idee, menti brillanti, menti pazzerelle, stakanovisti
del lavoro, bacchettoni, simpaticoni e lameroni.... insomma c'e' di tutto, e'
un bel fermento, peccato che nessuno ha tempo a sufficenza per seguire un
progetto comune come per i colleghi di access.


 piu' denaro, quindi nessuno investe, quindi niente lavori....).
A chi lo dite..... :(
Io sono stato appena bruciato da una consulenza a Lugano che durava già da 2
anni (Taglio di costi dovuti proprio a questa crisi di m....)... :(((
Sig sig sig...

anni
Per noi varesini Lugano e' sempre stato molto appetibile, per via dei ricavi
:). Se e' arrivata la crisi anche nel paese dell'emmental e delle banche...
allora e' proprio dura....


 wrote in message
news:ljqsavorkm5kn8fdp...@4ax.com...


Ed č ancora piů dura se sei di Palermo e trasferito lě per loro.... :(
'Sticazzi....
Mi dispiace tanto.... perdere il lavoro non e' mai bella cosa.... 
 :-(( 
