Discussion :

[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 :

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

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.

[Hauwke]

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 :

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

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 :

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

1
2
ObjetConnection.OpenSchema(siColumns, EmptyParam, EmptyParam, l_rs);
End;

sans intervenir sur le type de emptyparam
Cordialement,
Hauwke

[Delphi-ne]

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

[Hauwke]

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 :

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
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

[Delphi-ne]

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

Merci beaucoup