Este é um post disponível para assinantes MVPEste post também está disponível para assinantes da ClubeDelphi ou para quem possui Créditos DevMedia. Clique aqui para saber mais!
download
dê seu feedback
post favorito
Video: Rad Studio 2007-DBX4 e Firebird 2.0-Aplicação comercial de vendas do Inicio ao Fim-Parte 20-Aprendendo as classes do DBX4 para conexão com o banco de dados
Nesta vídeo aula, Rodrigo Carreiro utiliza na prática as classes do DBX4 para conexão com o banco de dados.
Título: Rad Studio 2007-DBX4 e Firebird 2.0-Aplicação comercial de vendas do Inicio ao Fim-Parte 20-Aprendendo as classes do DBX4 para conexão com o banco de dados
Tempo: 21m06ss
Mini resumo: Nesta vídeo aula o autor da continuidade a série sobre D2007 com Tecnologia DBExpress 4 e FireBird 2.0 criando uma aplicação completa. Em sua última vídeo aula o autor criou todos os métodos que a classe usuário irá necessitar. Nesta fase o autor utiliza na prática as classes DBX4. No metodo login são criados três objetos (TDDBXConnection, TDBXComand, TDBXReader) para que possa ser efetuado o login. O autor mostra a função de cada uma das classes do DBX4 que são utilizados. O autor mostra ainda como o DBX4 localiza os parâmetros do banco de dados.
Exemplos construídos: Classes DBX4.
Palavras chave: Delphi2007, DBX4, Classes, FrameWork, Login.
14 COMENTÁRIOS
Fernando Henrique Tozetto
Boa Noite Rodrigo...
Beleza de Video Aula, más surgiu uma duvida...
já que a conexão é dinamida como eu faço para listar as conexôes do arquivo .INI como no componente do delphi (Loockup).
isso seria muito util para um cliente com duas empresas, ele se conctaria onde desejar!!!!!
mais uma vez parabéns
um grande abraço
[há +1 ano] -
Responder
[autor]
Rodrigo Carreiro Mourão
Olá Fernando, não entendi muito bem mas você que colocar num combo todas as conexões disponivies num ini. é isso ????
Bem se for basta mapea-lo e pegar todas as seções diponivies. Não sei se o DBX tem um metodo para isso, vou dar uma olhada, mas se nao tiver fazemos uma.
abs !!!!
Bem se for basta mapea-lo e pegar todas as seções diponivies. Não sei se o DBX tem um metodo para isso, vou dar uma olhada, mas se nao tiver fazemos uma.
abs !!!!
[há +1 ano] -
Responder
Saverio Vertoni
Ola Rodrigo tudo legal ?
Estou achando o curso excelente parabens.
Que tal vc fazer uma busca dinamica, trocando o commandtext colocando os comandos SQL dinamicamente determinando o campo e a string de busca, eu consegui fazer uma busca dinamica aqui aproveitando todas as funcoes de suas aulas, mais esta meia boca .
no botao pesquisar coloquei os seguintes codigos
procedure TFrmClientes.BtnPesquisarClick(Sender: TObject);
var
xcomandosql :string;
begin
inherited;
if (cbxField.Text <> EmptyStr) and
(EdtValor.Text <> EmptyStr) then
begin
xcdsnome := Copy(ds.Dataset.name,1) ;
xcomandosql := 'select * from ' + Copy(ds.Dataset.name,4) ;
xcomandosql := xcomandosql + ' where ' ;
xcomandosql := xcomandosql + ds.dataset.fields[ListaField[cbxField.ItemIndex]].FieldName + ' like ';
xcomandosql := xcomandosql +QuotedStr(UpperCase(EdtValor.Text)+'%');
xcomandosql := xcomandosql + ' order by ' + ds.dataset.fields[ListaField[cbxField.ItemIndex]].FieldName ;
DS.DATASET.Close;
dm.Cdsclientes.CommandText := xcomandosql ;
if not Ds.DataSet.Active then
begin
DS.DATASET.Open;
end;
end;
end;
var
xcomandosql :string;
begin
inherited;
if (cbxField.Text <> EmptyStr) and
(EdtValor.Text <> EmptyStr) then
begin
xcdsnome := Copy(ds.Dataset.name,1) ;
xcomandosql := 'select * from ' + Copy(ds.Dataset.name,4) ;
xcomandosql := xcomandosql + ' where ' ;
xcomandosql := xcomandosql + ds.dataset.fields[ListaField[cbxField.ItemIndex]].FieldName + ' like ';
xcomandosql := xcomandosql +QuotedStr(UpperCase(EdtValor.Text)+'%');
xcomandosql := xcomandosql + ' order by ' + ds.dataset.fields[ListaField[cbxField.ItemIndex]].FieldName ;
DS.DATASET.Close;
dm.Cdsclientes.CommandText := xcomandosql ;
if not Ds.DataSet.Active then
begin
DS.DATASET.Open;
end;
end;
end;
tive q colocar o array listafield como public no formmodelo
vc poderia fazer uma busca dinamica e mostrar pra gente
flw abraco
saverio
ps. sou novato no delphi esta muito primitivo eu acho, mais funcionou
[há +1 ano] -
Responder
[autor]
Rodrigo Carreiro Mourão
Olá Saverio, ficou bacana e não tem essa de meia boca, nosso código é sempre o melhor. É que em programção e principalmente em delphi temos várias maneiras de fazer a mesma coisa.
Quanto à consultas dinâmicas vamos abordar o assunto quando formos criar a tela de movimentação diária. Todo o processo será dinâmico. Aguarde ....
abs !!!
Quanto à consultas dinâmicas vamos abordar o assunto quando formos criar a tela de movimentação diária. Todo o processo será dinâmico. Aguarde ....
abs !!!
[há +1 ano] -
Responder
Francisco Marques Magalhães
Olá Rodrigo!
estou acompanhando os seus cursos"Excelentes", más estou com um problema para abrir banco de dados DBVENDAS.FDB.
Tenho o Interbase 6.5 e o Firebird 2.0 instalados, uso o IBConsole ou o IBExpert, más quando vou registrar o BD
aparece a sequinte menssagem de erro:
Unsupported on-disk structure for file C:\DBVENDAS.FDB; found 32779, support 10
Já fiz de tudo e não resolvi, só falta fazer o que vai realmente resolver...
Parabens por dedicar o seu tempo para difundir o conenhecimento, um abraço.
Marques
[há +1 ano] -
Responder
[autor]
Rodrigo Carreiro Mourão
Olá Amigo !!
Isso pode estar ocorrendo pois vc tem os dois servidor rodando e os dois usam a porta 3050. Das duas uma, ou vc para o servidor interbase para acessar o firebird ou entao troca a aporta de um dos servidores.
Abs!!
Isso pode estar ocorrendo pois vc tem os dois servidor rodando e os dois usam a porta 3050. Das duas uma, ou vc para o servidor interbase para acessar o firebird ou entao troca a aporta de um dos servidores.
Abs!!
[há +1 ano] -
Responder
Edson Cunha
Ola rodrigo, comecei a estudar delphi e gostei ja dessa video aulas muito boas.
e ja tou com poblema sera que pode me ajudar.
estou utilizando o delphi 2010,firebord 2.0,quando tento gravar na tabela de cliente da um erro dizendo q nao vou gerado o id do cliente, no banco ja tem generators, e triggers o que fazer
e ja tou com poblema sera que pode me ajudar.
estou utilizando o delphi 2010,firebord 2.0,quando tento gravar na tabela de cliente da um erro dizendo q nao vou gerado o id do cliente, no banco ja tem generators, e triggers o que fazer
[há +1 mês] -
Responder
Wesley Yamazack
Olá Edson, em resposta a sua dúvida, o que pode estar acontecendo é o seguinte. No seu ClientDataSet e SQLDataset/SQLQuery, você tem que localizar o Field IDCliente(por exemplo) e nas propriedades verificar se a propriedade Required esta como TRUE, se ela tiver você tem que colocar ela para FALSE, assim o registro será gravado, pois o IDCliente irá ser ignorado por não ter valor nenhum atribuído, já que esta tarefa é do Banco de Dados.
Tente ver se este é o problema, caso não envie novamente um comentário que tentamos te ajudar, um abraço.
Tente ver se este é o problema, caso não envie novamente um comentário que tentamos te ajudar, um abraço.
[há +1 mês] -
Responder
Edson Cunha
ola pessoal estou com problema, quando tento incluir um cadastro da uma mensagem...
project comercial.exe raised exception class TDBXerror with message invalid request BLR at offset 74 generator GEN_CLIENTE_ID is not defined.
o que significa isso
project comercial.exe raised exception class TDBXerror with message invalid request BLR at offset 74 generator GEN_CLIENTE_ID is not defined.
o que significa isso
[há +1 mês] -
Responder
Wesley Yamazack
Olá Edson, observe no seu banco de dados, se você tem o GEN_CLIENTE_ID, pois bem provável que não tenha criado o mesmo, ok ?
Um abraço!
Um abraço!
[há +1 mês] -
Responder
Edson Cunha
sim, tenho so a unica coisa e que ta no plural sera que tem alguma problema...
estou fazendo tudo que explica a video
no banco esta assim Gen_Clientes_ID
estou fazendo tudo que explica a video
no banco esta assim Gen_Clientes_ID
[há +1 mês] -
Responder
Wesley Yamazack
Opa Edson, tem problemas sim meu querido, se o Rodrigo estiver "chamando" pelo sistema terá que ser como ele escreveu, e pelo visto foi GEN_CLIENTE_ID, certo ? que é diferente de GEN_CLIENTES_ID, blz?
Remove este "s" e me retornar depois pra vermos se resolveu ?
Um abraço
Remove este "s" e me retornar depois pra vermos se resolveu ?
Um abraço
[há +1 mês] -
Responder
Edson Cunha
meu amigo vc esta me dizendo para trocar o no da tabela no banco...
como faço isso, não consigo.
como faço isso, não consigo.
[há +1 mês] -
Responder
Wesley Yamazack
Olá Edson, o Rodrigo ensinou a criar o generetor certo ?
Basta você localizar ele no banco de dados, e pressionar o F2 e modificar seu nome, apenas isso.
Senão conseguir me manda um e-mail que eu faço um artigo pra você posto no portal e todos ficam com a dica, o que você acha?
meu e-mail é wyamazack@devmedia.com.br
Um abraço
Basta você localizar ele no banco de dados, e pressionar o F2 e modificar seu nome, apenas isso.
Senão conseguir me manda um e-mail que eu faço um artigo pra você posto no portal e todos ficam com a dica, o que você acha?
meu e-mail é wyamazack@devmedia.com.br
Um abraço
[há +1 mês] -
Responder
Você está em:
canal Delphi
Publicidade
Este post faz parte de:
Curso(s):
Rad Studio 2007-DBX4 e Firebird 2.0-Aplicação comercial d...
Curso(s):
Rodrigo Carreiro Mourão
Space do autor
Consultor de TI especializado em Orientação e Objetos, Design Patterns e Gestão de Projetos. Instrutor certificado pela Borland e Delphi Product Certified. É sócio da RM Factory Soluções em TI e da Szeryng Traduções e Informática. Atua como Supervisor de TI do Grupo Editorial Nacional e é instrutor ...
Space do autor
6
0
