Olá *Ricardo, *
* *
Recomendo você usar o MySQL 5.0, use somente tabelas InnoDB, elas te dão
uma baita segurança e suporte a transação/integridade referencial e mais um
monte de coisa.
Para componentes de acesso FREE, recomento o Zeos 6.5 mesmo.
Para componentes pagos recomento o MyDac 5, www.crlab.com
eu trabalho com MySQL ha bastante tempo e tenho uma grande experiência com o
mesmo, qualquer coisa estou à disposição.
Em 12/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
>
> Só tenho algumas dúvidas Eduardo.
>
> Vou trabalhar com o mySQL 5 e gostaria de saber se existe algum driver
> (free é claro) pra acessá-lo pelo Delphi. E como componentes de acesso,
> posso usar diretamente o ZEOS 6.5 ou vc recomenda algum outro? Existe
> alguma recomendação ao criar as tabelas ou a base de dados como usar ou não
> usar MyISAM e usar ou não usar InnoDB?
>
> Grato,
> Ricardo.
>
> Eduardo Silva dos Santos <[EMAIL PROTECTED] <eduardo.drd%40gmail.com>>
> escreveu: hehehe, por isso que gosto do MySQL, um simples *Show Tables*;
> resolve
> esse problema.
>
> Em 04/06/07, Jorge Ericsson <[EMAIL PROTECTED]<jericssonsup%40gmail.com>>
> escreveu:
> >
> > Problema resolvido, mas caso alguém queira a instrução para carregar
> > tabelas
> > e campos do SQL Server que eu montei segue abaixo:
> >
> > with ADOQuery1 do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
> > (NOLOCK)');
> > Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by so.name
> > ');
> > //Somente Tabelas
> > Open;
> > DBCmbTabelas.Items.Clear;
> > while not eof do
> > begin
> > DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
> > ADOQuery1.Next;
> > end;
> > end;
> >
> > Instrução para extração da Tabela informada no ComboBox
> >
> > Screen.Cursor := crSqlWait;
> > with ADOQueryTabelas do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
> > st.name as [Tipo_Dado], sc.length as [Precisao]');
> > Sql.Add('FROM SysObjects so WITH (NOLOCK)');
> > Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
> > Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
> > Sql.Add('where so.type = ''u'' and so.name = :prTabela');
> > Sql.Add('order by sc.colorder');
> > Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
> > Open;
> > vSqlInstrucao := '';
> > vSqlInstrucao := 'SELECT ';
> > vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
> > while not eof do
> > begin
> > vSqlInstrucao := vSqlInstrucao +
> > ADOQueryTabelas.FieldbyName('Nome_Columa').Value
> > + ', ';
> > Next;
> > end;
> > vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
> > vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
> > ('Nome_Tabela').Value;
> > vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
> > end;
> > edtInstrucao.Clear;
> > edtInstrucao.Text := vSqlInstrucao;
> > btnInstrucaoMEC.Onclick(Sender);
> > Screen.Cursor := crDefault;
> >
> > I love you GOOGLE.
> >
> > Em 04/06/07, Ricardo César Cardoso <[EMAIL
> > PROTECTED]<ricardo_engsoft%40yahoo.com.br>
> <ricardo_engsoft%40yahoo.com.br>>
> > escreveu:
> > >
> > > Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> > > assunto na semana passada. Dá uma olhada nas mensagens antigas do
> grupo
> > que
> > > tem alguma coisa.
> > >
> > > Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> > > link... nesse caso vai ter que buscar mesmo pelo Google.
> > >
> > > Sds,
> > > Ricardo.
> > >
> > > Jorge Ericsson <[EMAIL PROTECTED] <jericssonsup%40gmail.com><jericssonsup%
> 40gmail.com><jericssonsup%
> > 40gmail.com>>
> > > escreveu: Olá amigos delphianos,
> > >
> > >
> > > Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> > > ORACLE
> > > e gostaria de saber como faço para pegar parâmetros como nome da
> tabela,
> > > todos os seus campos e tipos de campos.
> > >
> > > Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> > > capturar
> > > os dados e inserir em uma TQuery os mesmos dados.
> > >
> > > Desculpe se não fui muito claro.
> > >
> > > Grato,
> > >
> > > Jorge Ericsson S. Pinheiro
> > > Analista/Projetista de Sistemas
> > > Ericsson Sistemas e Soluções
> > > http://www.jericssonsup.com.br
> > > 61 9667-4785 / 3966-4535
> > > Brasília- DF
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > _
> > >
> > > ---------------------------------
> > > Novo Yahoo! Cadê? - Experimente uma nova busca.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > Jorge Ericsson S. Pinheiro
> > Analista/Projetista de Sistemas
> > Ericsson Sistemas e Soluções
> > http://www.jericssonsup.com.br
> > 61 9667-4785 / 3966-4535
> > Brasília- DF
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] <eduardo.drd%40gmail.com>
> Site: http://www.drdsistemas.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> _
>
> ---------------------------------
> Novo Yahoo! Cadê? - Experimente uma nova busca.
>
> ---------------------------------
> Novo Yahoo! Cadê? - Experimente uma nova busca.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
