Discussion :

[tomy_libre]

salut à tous , je travaile via ODBC et je connecte sur des différent type de base , je désire faire la requette qui me retourne les noms des tables dans une base et je le trouve pas (requette), pouvez vous m'aidez svp.

(je fait mes test sur deux type , access et excel).
je vous attend et merci

[Just-Soft]

Salut;

pour ACCESS voici le code je l'ai obtenu depuis swissdelphicenter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
unit dbTables;
 
interface
 
uses ADODb;
 
type
  TTableType = (ttTable, ttView, ttSynonym, ttSystemTable, ttAccessTable);
 
type
  TTableTypes = set of TTableType;
 
type
  TTableItem = record
    ItemName: string;
    ItemType: string;
  end;
 
type
  TTableItems = array of TTableItem;
 
function addFilter(string1, string2: string): string;
function ADODbTables(ADOConnection: TADOConnection; types: TTableTypes): TTableItems;
 
implementation
 
function addFilter(string1, string2: string): string;
begin
  if string1 <> '' then
    Result := string1 + ' or ' + string2
  else
    Result := string2;
end;
 
function ADODbTables(ADOConnection: TADOConnection; types: TTableTypes): TTableItems;
var
  ADODataSet: TADODataSet;
  i: integer;
begin
  ADODataSet := TADODataSet.Create(nil);
  ADODataSet.Connection := ADOConnection;
  ADOConnection.OpenSchema(siTables, EmptyParam, EmptyParam, ADODataSet);
 
  if (ttTable in types) then
    ADODataSet.Filter := addFilter(ADODataSet.Filter, '(TABLE_TYPE = ''TABLE'')');
 
  if (ttView in types) then
    ADODataSet.Filter := addFilter(ADODataSet.Filter, '(TABLE_TYPE = ''VIEW'')');
 
  if (ttSynonym in types) then
    ADODataSet.Filter := addFilter(ADODataSet.Filter, '(TABLE_TYPE = ''SYNONYM'')');
 
  if (ttSystemTable in types) then
    ADODataSet.Filter := addFilter(ADODataSet.Filter, '(TABLE_TYPE = ''SYSTEM TABLE'')');
 
  if (ttAccessTable in types) then
    ADODataSet.Filter := addFilter(ADODataSet.Filter, '(TABLE_TYPE = ''ACCESS TABLE'')');
 
  ADODataSet.Filtered := True;
 
  SetLength(Result, ADODataSet.RecordCount);
 
  i := 0;
  with ADODataSet do
  begin
    First;
    while not EOF do
    begin
      with Result[i] do
      begin
        ItemName := FieldByName('TABLE_NAME').AsString;
        ItemType := FieldByName('TABLE_TYPE').AsString;
      end;
      Inc(i);
      Next;
    end;
  end;
 
  ADODataSet.Free;
end;
 
end.
 
{
Example: create a new project and add a TADOConnection (ADOConnection1),
a TButton (Button1) and a TMemo (Memo1); assign a ConnectionString to the
TADOConnection component and set "ADOConnection1.Active := True"
}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  output: ttableitems;
  i: integer;
begin
  output := ADODbTables(ADOConnection1, [ttTable, ttView, ttSynonym]);
  //  output := ADODbTables(ADOConnection1, [ttSystemTable, ttAccessTable]);
  for i := Low(output) to High(output) do
  begin
    Memo1.Lines.Add(output[i].ItemName + '---' + output[i].ItemType);
  end;
  output := nil;
end;

[tomy_libre]

merci bien mais j'utilise l'ODBC donc seulement je doit insérer la requette apres reservation de hundle et connection , voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
begin
 
    // Allocation d'un Handle d'environnement
    RetCode := SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, Henv);
 
    if SQLSucceeded(retcode) then
    // location de hundle OK
    showmessage('hundle reservé')
    Else
    // Echec  en  location de hundle
    showmessage('erreur en location de hundle');
 
 
 
    // Fixe la version de l'ODBC
    RetCode := SQLSetEnvAttr(hEnv, SQL_ATTR_ODBC_VERSION, SQLPOINTER(SQL_OV_ODBC3), 0);
    if SQLSucceeded(retcode) then
    // OK
    showmessage('version 3 fixé')
    Else
    showmessage('erreur en fixation de version  3');
    // Echec
 
 
    // Allocation d'un Handle de connexion
    retCode := SQLAllocHandle(SQL_HANDLE_DBC, hEnv, HDbc);
    if SQLSucceeded(retcode) then
    // location de hundle OK
    showmessage('hundle connection réeusit ')
    Else
    // Echec  en  location de hundle
    showmessage('erreur en location de hundle de connection ');
 
 
 
         //connection à la base
 
    iChaine_Len := 256;
    sChaine := StringOfChar(' ',iChaine_Len);
    RetCode := SQLDriverConnect(hDbc,Application.Handle,
               pchar(nomDriver+'; DBQ=' + cheminBD),
               SQL_NTS, PChar(sChaine), iChaine_Len, siRet,
               SQL_DRIVER_NOPROMPT);
    if sqlsucceeded(retcode) then
    // OK
    showmessage('connection à la base réeusite')
    Else
    // Echec
     showmessage('erreur du connection à la base');
 
 
 
     //préparation de connextion pour la requette
// Allocation d'un Handle de résultat
    RetCode := SQLAllocHandle(SQL_HANDLE_STMT, hDbc, hStmt);
    if sqlsucceeded(retcode) then
 
    // OK
    showmessage('location de hundle pour la requette réeussi')
 
    Else
    // Echec d'allocation du handle de résultat
     showmessage('Echec d allocation du handle de résultat pour la requette');
// Requête SQL à exécuter
 
sSQL := 'ici e vais mettre mon requette qui doit retourné les noms des tables';
 
// Lance la requête
 
    RetCode := SQLExecDirect(hStmt, Pchar(sSQL), SQL_NTS);
 
    if sqlsucceeded(retcode) then
 
    // OK
    showmessage('requette réeussi')
    Else
 
    // Echec de la requête SQL
     showmessage('Echec de la requête SQL');

donc c juste la requette qui doit etre inclure , c le meme travail pour tous les type (grace au ODBC).

[rec82]

salut.
juste une prposition

je désire faire la requette qui me retourne les noms des tables dans une base

j'ai l'habitude de travailler avec ADO et j'itulise la fonction GETTABLENAME de composant Tadoconnection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

adoconnection1.gettablename(Tliste,false)

il te rend la liste des tables de votrs base .

cordialement rec82.

[tomy_libre]

merci bien , mais je travaille avec l'ODBC , je doit faire une commande sql de base ,c ca le probleme .

[philnext]

A priori il n'y a pas de requête SQL standard pour obtenir le nom des tables.

[Just-Soft]

si tu arrives à une solution je suis preneur car j'ai beau cherché mais sans résultat.

Bonne chance.