L'utilisation de OpenSchema via ADO en Delphi

Version imprimable

03/08/2006, 14h59
Delphi-ne

L'utilisation de OpenSchema via ADO en Delphi
Je voudrais récupérer la structure d'un table d'une base et pour cela j'aimerais utilise OpenSchema.

Sous VB je n'ai aucun problème mais sous Delphi avec le code suivant j'ai une erreur mémoire
Code:

1 2 3 4 5 6 7 8 Var l_rs : TADODataSet; EmptyParam : OleVariant; Begin l_rs := TADODataSet.Create(Nil); ObjetConnection.OpenSchema(siColumns, EmptyParam, EmptyParam, l_rs); End;
Je pense que c'est au niveau de EmptyParam qui est mal défini mais je ne sais pas quel type lui donner.

Citation:
Envoyé par Delphi-ne
Je voudrais récupérer la structure d'un table d'une base et pour cela j'aimerais utilise OpenSchema.

Sous VB je n'ai aucun problème mais sous Delphi avec le code suivant j'ai une erreur mémoire
Code:

1 2 3 4 5 6 7 8 Var l_rs : TADODataSet; // EmptyParam : OleVariant; inutile avec Openschema Begin l_rs := TADODataSet.Create(Nil); ObjetConnection.OpenSchema(siColumns, EmptyParam, EmptyParam, l_rs); End;
Je pense que c'est au niveau de EmptyParam qui est mal défini mais je ne sais pas quel type lui donner.
essayez de cette manière :
Code:

1 2 ObjetConnection.OpenSchema(siColumns, EmptyParam, EmptyParam, l_rs); End;
sans intervenir sur le type de emptyparam
Cordialement,
Hauwke

07/08/2006, 09h36
Delphi-ne

Si je ne définis pas EmptyParam j'obtiens une erreur de compilation : Identificateur non déclaré.

Montre ton code, c'est pas ta fonction qui cloche mais ta clause Uses et le Tdataset déclaré en variable locale.
Essaies de poser le Tdataset sur une fiche vierge... Comme suit :
Basic mais marche à tous les coups:

Code:

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
unit UForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
 
type
  TForm1 = class(TForm)
    Cnnt1: TADOConnection;
    Dts1: TADODataSet;
    Ds1: TDataSource;
    DBGrid1: TDBGrid;
    Bt1: TButton;
    ADOTable1: TADOTable;
    procedure Bt1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Bt1Click(Sender: TObject);
begin
Cnnt1.OpenSchema(sicolumns, emptyparam, emptyparam, Dts1);
end;
end.

Cordialement,
Hauwke

09/08/2006, 08h59
Delphi-ne

Exact, la clause Uses était incompléte.
EmptyParam est défini dans Variants

Merci beaucoup