Forbindelse til .mdb database

Jeg har noget Delphi kode der kan. Det kan du bare bruge i dit C++ Builder projekt.

Skriv hvis der har interesse.
Jens B

Tjaa C++ og Delphi ligner jo egentlig meget hinanden, så vil da gerne se koden, måske det løser problemet :)

Du kan bruge det direkte i C++ Builder. Hvis du ikke ved hvordan så skriv lige igen.

unit UnitDataConnection;

interface

uses
  ADODB, Classes, DB, Sysutils;

type
  TCustomConnection = class(TADOConnection)
  protected
    procedure SetupConnectionString(Sender: TObject); virtual; abstract;
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TDBaseConnection = class(TCustomConnection)
  private
    FPath: string;
    procedure SetPath(const Value: string);
  protected
    procedure SetupConnectionString(Sender: TObject); override;
  public
    constructor Create(AOwner: TComponent); override;
    property Path: string read FPath write SetPath;
    property Connected;
  end;

  TSQLServerConnection = class(TCustomConnection)
  private
    FUserName: string;
    FPassWord: string;
    FServerName: string;
    FDatabaseName: string;
    procedure SetDatabaseName(const Value: string);
    procedure SetPassWord(const Value: string);
    procedure SetServerName(const Value: string);
    procedure SetUserName(const Value: string);
  protected
    procedure SetupConnectionString(Sender: TObject); override;
  public
    constructor Create(AOwner: TComponent); override;
    property UserName: string read FUserName write SetUserName;
    property PassWord: string read FPassWord write SetPassWord;
    property DatabaseName: string read FDatabaseName write SetDatabaseName;
    property ServerName: string read FServerName write SetServerName;
  end;

  TAccessConnection = class(TCustomConnection)
  private
    FPassWord: string;
    FUserName: string;
    FFileName: string;
    procedure SetFileName(const Value: string);
    procedure SetPassWord(const Value: string);
    procedure SetUserName(const Value: string);
  protected
    procedure SetupConnectionString(Sender: TObject); override;
  public
    constructor Create(AOwner: TComponent); override;
    property UserName: string read FUserName write SetUserName;
    property PassWord: string read FPassWord write SetPassWord;
    property FileName: string read FFileName write SetFileName;
  end;

implementation

{ TCustomConnection }

constructor TCustomConnection.Create(AOwner: TComponent);
begin
  inherited;
  LoginPrompt := false;
  BeforeConnect := SetupConnectionString;
end;

{ TDBaseConnection }

constructor TDBaseConnection.Create(AOwner: TComponent);
begin
  inherited;
  FPath := '';
end;

procedure TDBaseConnection.SetPath(const Value: string);
begin
  FPath := Value;
end;

procedure TDBaseConnection.SetupConnectionString(Sender: TObject);
begin
  ConnectionString := format('Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Mode=ReadWrite;Initial Catalog=%s', [FPath]);
end;

{ TSQLServerConnection }

constructor TSQLServerConnection.Create(AOwner: TComponent);
begin
  inherited;
  FServerName := 'localhost';
  FPassWord := 'masterkey';
  FUserName := 'sysdba';
  FDatabaseName := '';
  ConnectionString := 'Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;User ID=%s;Initial Catalog=%s;Data Source=%s';
end;

procedure TSQLServerConnection.SetDatabaseName(const Value: string);
begin
  FDatabaseName := Value;
end;

procedure TSQLServerConnection.SetPassWord(const Value: string);
begin
  FPassWord := Value;
end;

procedure TSQLServerConnection.SetServerName(const Value: string);
begin
  FServerName := Value;
end;

procedure TSQLServerConnection.SetupConnectionString;
var
  s: string;
begin
  s := format(ConnectionString, [FPassword, FUserName, FDatabaseName, FServerName]);
  ConnectionString := s;
end;

procedure TSQLServerConnection.SetUserName(const Value: string);
begin
  FUserName := Value;
end;

{ TAccessConnection }

constructor TAccessConnection.Create(AOwner: TComponent);
begin
  inherited;
  FPassWord := '';
  FUserName := 'Admin';
  FFileName := '';
  ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=%s;Data Source=%s;Jet OLEDB:Database Password=%s;';
end;

procedure TAccessConnection.SetFileName(const Value: string);
begin
  FFileName := Value;
end;

procedure TAccessConnection.SetPassWord(const Value: string);
begin
  FPassWord := Value;
end;

procedure TAccessConnection.SetupConnectionString(Sender: TObject);
var
  s: string;
begin
  s := format(ConnectionString, [FUserName, FFileName, FPassword]);
  ConnectionString := s;
end;

procedure TAccessConnection.SetUserName(const Value: string);
begin
  FUserName := Value;
end;


end.


Jens B

Har du husket at starte IBService?

Du har bemærket login og password i ovenstående, ikke? Det kunne også bare være dem du ledte efter.

Har ikke lige afprøvet det endnu.... men hvor er det du siger det skal indsættes i koden?

Ved ikke om jeg har startet IBService, ved ikke engang hvad det er :)

Jeg antager, at du ikke kører en professionel database, men bare den lokale klient.

For at få adgang til en Interbase-fil skal der køre et service-program i baggrunden.

For at starte/kontrollere at den kører: Kontrolpanelet, "Administrative opgaver", Services. Heri bør du kunne finde en "Interbase Server" og hvis den ikke er startet, så dobbeltklikker du på den osv.

Nu skulle det være muligt at opnå forbindelse. Det kan du teste vha. IBConsole-programmet hvor du skal angive sysdba og masterkey som login.

Når nu der er hul igennem, så skal du til at oprette databaser og tabeller. Det sker via SQL og er ikke helt let. Håber at du har erfaring med relationelle databaser (der ligger nogle gode tutorials under Interbases' doc-katalog)

Hmm den der interbase under services findes vist ikke.... men har interbase installeret.

Hvis du alligevel vil bruge en ACCESS DB, er der ingen grund til at bruge interbase. Jeg har i mit kodelagt optil at du bruger ADO det fungerer fint for mig !!!

Jens B

Men hvor skal det indsættes i koden?
Har faktisk kun lavet designet, ikke noget egentlig programmering af det program endnu

Min fejl. Stirrede mig blind på ordet databaser og tænkte slet ikke på Access ;-)

Borrisholdt's eksempel er rettet mod Access og jeg har heller ikke haft problemer med at tilsluttte dertil vha. ADO - men jeg har ikke brugt det meget...

http://borrisholt.com/eksperten/ADOTest.zip

Jens b

ahh det virker :)
Vidste ikke man skulle bruge ADO komponenter, når man arbejde med Excel, er vandt til paradox databaser.

Så må du gerne lukke spørgsmålet :)

Jens B

hehe ja :)
Det der undrede mig var bare hvad den der låste Nwind.ldb laver.
Men tak for hjælpen :)