Sem Usar BDE

[Herbert M. Dias Paiva 0]

Dae Galera la vem eu denovo uhauhuha.... seguinte fiz um sistema ultilizando tabela Paradox + Delphi e preciso que esse programa rode em outra maquina porem nao quero instalar o BDE na outra maquina quero fazer o Alias via ODBC porem nao sei fazer isso... Alguem me ajuda a configurar meu sisteminha para ODBC?? O que devo Fazer?

 

No sistema no Datamodule tem 1 Query, 1 Table e 1 Dataset

 

Ja deixando claro se tiver um passo a passo a fazer acesso ao ODBC... Pq la no ODBC tem a fonte Paradox e criei um alias indicando para a pasta onde esta minha tabela porem no sistema nao sei o que fazer para conectar o ODBC....

 

O Alias aparece na Propriedade DatabaseName do Table porem quando tento ativa ele ele pede Login e Senha e nao sei isso e onde configura...

 

Vlw Galera

[marcio.theis 3]

Pode ainda pesquisar sobre o desenvolvimento com os componentes da paleta ADO + arquivo de configuração UDL

[Herbert M. Dias Paiva 0]

Pode ainda pesquisar sobre o desenvolvimento com os componentes da paleta ADO + arquivo de configuração UDL

Mais sera que tem como fazer o acesso ao ODBC pq ele chega a enchergar o Alias ODBC que criei porem quando tento ativalo ele nao ativa pede login e senha e nao sei onde defino isso....

 

Ja tentei procurar em tudo na net e nao achei nada sobre conexao ao ODBC

[Discorpio 1]

Boa noite Herbert.

 

Talvez isso possa te ajudar.

 

Voce pode criar uma Aliás do BDE via programação, assim:

 

Inclua na seção uses: DB

 

{ se o alias não existir... } 
   if not Session.IsAlias('MeuAlias') then 
   begin 
		{ Adiciona o alias } 
		Session.AddStandardAlias('MeuAlias', 'C:\DirProg', 'PARADOX'); 
		{ Salva o arquivo de configuração do BDE } 
		Session.SaveConfigFile; 
   end;

Para criar um alias do dBase troque a string 'PARADOX' por 'DBASE'. No caso acima usei como path o caminho "C:\DirProg", mas se você quiser poderá trocar este caminho por ExtractFilePath(ParamStr(0)) para que o alias seja direcionado para o local onde está o executável.

 

Uma outra maneira de fazer isto, é seguir este exemplo:

 

1. Crie um novo projeto.

 

2. Coloque os seguintes comoponentes no form: Tdatabase, Ttable, Tdatasource, Tdbgride Tbutton.

 

3. Dê um duplo clique no Tdatabase para entrar no Database propriety editor.

 

4. Configure o Database Name para 'MeuAlias' .

 

5. Selecione 'STANDARD' para Drive Name.

 

6. Clique no botão Default. Ele automaticamente adicionará um PATH= na área de parâmetros.

 

7. Configure o PATH= para C:\DELPHI\DEMOS\DATA.

 

8. Clique no botão OK para fechar a caixa de diálogo.

 

9. Configure a proporiedade DatabaseName do Ttable para 'MeuAlias'.

 

10.Configure a proporiedade Dataset do TDatasource para 'Table1'.

 

11.Configure a proporiedade DataSource do Tdbgrid para 'Datasource1'.

 

12.Coloque o seguinte código no evento Onclick do TButton:

 

Procedure TForm1.Button1Click(Sender:Tobjetc); 
begin 
  Table1.TableName := 'CUSTOMER'; 
  Table1.Active := true; 
End;

Uma alternativa para os passos 1-11: Coloque o seguinte código no evento OnClick do TButton:

 

Procedure TForm1.Button1Click(Sender:Tobjetc); 
begin 
  Database1.DataBaseName := 'MeuAlias'; 
  Database1.DriverName := 'STANDART'; 
  Database1.Params.Clear; 
  Database1.Params.Add('PATH=C:\DELPHI\DEMOS\DATA'); 
  Table1.DatabaseName := 'MeuALias'; 
  Table1.TableName := "CUSTOMER' 
  Table1.Active := true; 
  DataSource1.Dataset := Table1; 
  DBGrid1.DataSource := Datasource1; 
End;

 

 

Um abraço.

 

Jorge da Silva Abreu