Caso vc use o FireBird ...
ALTER TABLE IPEDIDO ADD CONSTRAINT FK_IPEDIDO FOREIGN KEY (CODIGO)
REFERENCES PEDIDO (CODIGO_NF) DELETE CASCADE ON UPDATE CASCADE;
Quando deletar o codigo do pedido tambem deletará os itens do pedido
usando ON DELETE CASCADE
Espero ter ajudado !!!
Luciano
Estou com vc JB ..
Também não renovei minha assinatura só pensar em LUCRAR
!! Tem video aula que mesmo sendo assinante vc tem que ter crédito
para baixar !!!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
JB escreveu:
por isso não renovo (não assassino ) assino essa
.text+'%') que comece com a letra
** QuotedStr('%'+Edit1.text+'%') que contenha a letra
** QuotedStr('%'+Edit1.text+''); que termine com a letra
Espero ter ajudado !
Luciano Angelini
PM de Lupionópolis-Pr
Gilvan Costa escreveu:
Olá Srs
Estou querendo montar um filtro com ClietDataSet de
Boa Tarde Hugo
Tente dar um espaço em
SQL.Add('UPDATE TABLE PRODUTO');
para
SQL.Add('UPDATE TABLE PRODUTO ');
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Hugo Vieira escreveu:
Boa tarde amigos,
Estou com uma duvida que ja me fez perder a paciencia.
Tenho uma query que
!! Eu tinha um sistema para imprimir cartão
de aniversariantes do municipio que eu colocava uma Label só pra mostrar
a idade !!
Espero ter ajudado
Luciano Angelini
gustavoandref escreveu:
Luciano,
fico muito grato pela sua ajuda, mas estou precisando pegar esse valor
e colocar
e aproveitando caso vc queira saber anos ... meses e dias .
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Ano, Mes: Integer;
Total_dias: Real;
begin
//Descobrir a idade somente em anos, meses ou dias...
ShowMessage(IntToStr(YearsBetween(Date, StrToDate(MaskEdit1.Text))) + '
)) then
Dec(Result);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
DataNasc: TDateTime;
begin
DataNasc := StrToDate(MaskEdit1.Text);
ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos');
end;
Espero ter ajudado !1
Luciano Angelini
Prefeitura de Lupionópolis-Pr
;
FrmDm.CDSCadProduto.locate('nome_produto','edit1.text',[loPartialKey]) ;
end;
sendo que a tabela esta carregada na memória, evita de ficar indo e
voltando no servidor
espero ter ajudado
Luciano Angelini
Prefeitura deLupionópolis-Pr
Claudiney - Listas escreveu:
Olá Paulo
EmbarcaDelphi
Eu também não irei renovar minha assinatura ClubeDelphi, por esse
motivo ia para o 4ª de assinatura
tem curso... video-aula que vc mesmo sendo assinante voce tem que
comprar crédito para assistir os mesmos !!!
Que futuro tem isso
EmbarcaDelphi
acontece, tenho certeza que
o computador ira desligar ! Pois isso é falha de hardware e não de
Software.
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Carlos Negrão escreveu:
Estou com um problema aqui.
O computador que um cliente usa para rodar um programa que fiz anda
desligando
Caro Alisson .
Talvez vc não entendeu o que eu quiz dizer
o sistema seria pra gerar a classificação do campéonato ...
tipo o Campeonato brasileiro tem os jogos ... o sistema faz os
calculo dos pontos ...
dos jogos realizados
Alisson escreveu:
Que pergunta mais
Caro Marcio ...
Como é pra mim ter uma base
vou começar com pontos corridos
Marcio F. Cruz escreveu:
é pontos corridos? tem oitavas-de-final?
2009/5/18 Alisson alss...@yahoo.com.br mailto:alssnco%40yahoo.com.br
Que pergunta mais genérica! Assim fica difícil alguém
Bom dia Rafael
Nos meus sistemas eu utilizo o Fortes Reportes
os componentes RLMemo e RLDBMemo com as propriedades
Aligment := taJustify
Funciona corretamente
Luciano Angelini
Prefeitura de Lupionópolis-PR
Rafael Jorge escreveu:
eu to tentando escrever um contrato
Rafael
Segue o link do forum do Fortes Report ...
http://forum.produsys.com.br/viewforum.php?f=1
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Rafael Jorge escreveu:
tem como vc me enviar o que vc usa..
o que eu usava vivia dando bronca.
sem dizer que eu uso o delphi 2006
guimaraesrodrigo23
Tem um componente da JEDI . TJvDriveCombo muito bom !!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
guimaraesrodrigo23 escreveu:
Fala galera bom dia.
To precisando usar um Opendialog, porém ele
funciona apenas para selecionar arquivos. Preciso
guimaraesrodrigo23
Complementando .
Vc usa o JvDriveCombobox junto com o JvDirectoryListBox
vc escolhe o Drive com o JVDriveComboBox e o JvDirectoryListBox mostra
as pasta que tem
bem bacana
Luciano Angelini
guimaraesrodrigo23 escreveu:
Fala galera bom dia.
To precisando
BORDERSTYLE := bsSIZEABLE ;
Sergio - Jundiai /SP escreveu:
Boa tardea
Windowstate WsNormal
Gostaria de saber se tem como fixar a borda do form, para que o
usuario nao
clique na borda e aumente o tamanho.
Sergio
[As partes desta mensagem que não continham texto foram removidas]
Opa
foi mal .
BorderStyle := BsSingle ;
Luciano Angelini escreveu:
BORDERSTYLE := bsSIZEABLE ;
Sergio - Jundiai /SP escreveu:
Boa tardea
Windowstate WsNormal
Gostaria de saber se tem como fixar a borda do form, para que o
usuario nao
clique na borda e aumente
Paulo
Muito obrigado pela dica ... me escrevi no grupo ''AutomaçãoTotal'' ...
ja coloquei minha duvida... estou no aguardo que alguma solução
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Paulo - yahoo escreveu:
Luciano:
- Certa vez, precisei imprimir cheques em uma impressora
Boa Noite Moacir
Muito obrigado pela atenção mas segui a dica do Paulo e me
escrevi no grupo ''AutomaçãoTotal''.
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Moacir - GMail escreveu:
Lá pelos idos de 1990 eu fiz algumas rotinas com esta impressora usando
clipper..
O que
Boa dia Coutinho
Nas minhas criações caseiras eu utilizo o DVD Lab 2 com ele vc cria
menus com imagem de fundo ... com musica de fundo ... muito bom
Baixei ele pelo Emule
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Coutinho - Yahoo escreveu:
Pessoal
Tenho uma
Felipe
para salvar ..
FrmTabelas.ADOQ_imoveis.Post .
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 17 Nov 2008 12:21:49
-0800Subject: [delphi-br] Enc: quais são comandos do DBGrid [DBGrid nao ...
falai errado .. é DBNavigator]
galera foi mau ..falei coisa errada
: ' + inttostr(total)) ;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionopolis
stainle2003 escreveu:
Amigos, estou com Delphi 7 lendo arquivos textos e tentando atualizar
tabelas no Firebird 1.5, leio os textos e coloco num CDS que está
ligado a um Provider que por sua vez está ligado ao
Putz ...
me desculpem coloquei o exemplo errado .
esse é pra converter txt para xml
foi mal
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Fri, 14 Nov 2008 09:25:38
-0200Subject: Re: [delphi-br] Firebird não atualiza
Bom dia Stainle2003 quando preciso importar dados TXT
Bom dia Denise .
As vezes acontece isso com o meu Delphi 7 . eu apenas apago o
executavel do sistema que esta dando o problema quando compila, e
compilo de novo
agora porque acontece eu não sei te explicar !
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis
Bom dia Vicente ...
Use SQLDataSet ... Ligado ao DataSetProvider Ligado ao
ClientDataSet Ligado ao DataSource ... e finalmente ligando o DBGrid
ao DataSource
Vicente Alves escreveu:
Bom dia !
Estou usando os compontes Dbexpress e Data Access para os cadastros
nas
label/edit
... quando o texto na caber mais na label/edit... o restando do texto
ira para a outra label/edit. Entendeu ???/
obrigado pela atenção
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Luciano Calenzani Simões escreveu:
Não me lembro em versões anteriores, mas no Delphi 2006 o TLabel
mando é pequeno 1.5 Mb ...
Espero ter ajudado !!!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
===
José Ferreira S. Filho escreveu:
Caros colegas,
Por gentileza algum colega do grupo conhece ulgum componente free
para delphi que converta um arquivo Doc em Pdf
aForm.ShowModal;
finally
aForm.Free;
end;
end;
para utilizar no clique do componente ... MainMenu SpeedButton ...
Button ...
AbreForm(TNomedoFormulario, NomedoFormulario) ;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis-Pr
alessandra porto escreveu:
Chamo meu
Tenta Assim
dmGeral.qryFinanceiro.Close ;
dmGeral.cdsFinanceiro.close ;
dmGeral.qryFinanceiro.SQL.Clear;
dmGeral.qryFinanceiro.SQL.Add(sql);
dmGeral.qryFinanceiro.Params.ParamByName('parametro').Value := edit1.text;
dmGeral.cdsFinanceiro.Open;
Espero ter ajudado ...
Luciano Angelini
http://br.groups.yahoo.com/group/nfe_nota_fiscal_eletronica/
http://br.groups.yahoo.com/group/nfe_nota_fiscal_eletronica/
felipe govoni escreveu:
alguem ja fez alguma coisa com nf-e?
to tentando começar, pelo que entendi devo consumir um webservice,
mas qual a maneira correta? pelo wsdl
Luciano
Ja vi e esta correto ... que no entanto tenho outras aplicações que não
ocorre esse problema só nesta que esta ocorrendo
Luciano Angelini
Prefeitura de Lupionópolis- Pr
Luciano Calenzani Simões escreveu:
Já olhou a configuração da sua barra de tarefas? Lá tem uma opção
propriedades:
Position = poDesigned
Windows State = wsMaximinized
Alguem ja passou por isso ou tenho uma solução ???
Luciano Angelini
Prefeitura de Lupionópolis- Pr
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http
Flavio tenta assim ...
no evento onClick do DBLookupComboxBox ...
Edit1.text := ClientDataSet1EmpNo.value ;
Espero que seja isso !!!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
flavio_pnn escreveu:
Gostaria de saber como faço para resolver este problema.
Estou utilizando um
DBGrid Properties Options DgRowSelect ... True
rzzanatta escreveu:
olá queria saber como faço pra ficar focado o cursor numa coluna do
dbgrid?
Boa Tarde Rafael
A coisa é bem simples
ClientDataSet2.Data := ClientDataSet1.data ;
Espero ter ajudado ..
Luciano Angelini
Prefeitura de Lupionópolis-Paraná
Rafael Marques escreveu:
bom dia!!
alguem sabe se tem alguma rotina q copie todos os registros d um
dataset para
- ClientDataSet.ApplyUpdates(0) ;
Luciano Angelini
Prefeitura de Lupionópolis-Pr
stainle2003 escreveu:
Usando a combinação Query(bde) DataSetProvider e ClientDataSet eu
estou conseguindo incluir; usando após o POST o CDS.ApplyUpdate(0);
quando em inclusão tudo bem, porém quando vou alterar estes dados
ItaSouza,
Acredito que seja a propriedade SQLDialect do SQLConnection !!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
itasouza escreveu:
Pessoal, estou com uma aplicação em delphi 7, a mesma não foi feita por
mim tem um banco de dados firebird, estou tendo problemas devido ao
dialeto
fazer as
conexões
Luciano Angelini
Prefeitura de Lupionópolis-Pr
[EMAIL PROTECTED]
Mario Rodrigues escreveu:
Luciano Angelini,
Eu ja tinha encontrado este link porem, fiquei com uma duvida:
- No form que eu quero colocar o DBLookupComobox so preciso colocar
mais um datasource
http://www.linhadecodigo.com/Dica.aspx?id=556
Mario Rodrigues escreveu:
Srs,
Alguem tem algum material sobre DBLookupComboBox..como criar
configurações enfim material sobre o DBLookupComboBox ja q estou
iniciando em delphi e é uma boa usar o combo
falowww
William ..
Tente assim ...
No click do button
if MessageDlg('Registro Selecionado: '+
ClientDataSet1.fieldbyname('name').asstring, mtConfirmation,
[mbYes,mbNo], 0) = MrYes then
begin
ClientDataSet1.Delete ;
ClientDataSet1.ApplyUpdates(0)
end;
Espero ter ajudado ...
Luciano
William e no DBGrid na propriedade Option passe o DgRowSelect para True !!!
william.designer escreveu:
Certo, mas gostaria de fazer isso através de um clique em um
botão...quando eu clicasse no botão iria aparecer um pedido de
confirmação e só apos confirmar o registro seria apagado...
será
Itassouza
Eu uso esse função
Function Tform1.IdadeN(Nascimento:TDateTime) : String;
Type
Data = Record
Ano : Word;
Mes : Word;
Dia : Word;
End;
Const
Qdm:String = '312831303130313130313031'; // Qtde dia no mes
Var
Dth : Data; // Data de hoje
Dtn : Data; // Data de nascimento
anos,
Bom dia Juliano ...
Tente assim:
DBText2.Caption := '0,00' ; // Campo Aggregate ligado ao DBText2.Caption
Espero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Juliano Silva - Yahoo escreveu:
Pessoal
Tenho um campo AGGREGATE no ClientDataSet que faz a soma de uma coluna de
Luciano Angelini [EMAIL PROTECTED]
mailto:luciano.angelini%40uol.com.br escreveu: Bom dia Ricardo
O interessante é se vc consegui desenvolver a dica/exemplo ... se não
mandei antes ou mandei depois é coisa que acontece, pois acredito que
todos aqui na lista/forum... estamos na correria
conseguindo te
explicar direito
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Ricardo César Cardoso escreveu:
O problema não foi entender ou não, mas o fato que vc simplesmente não
colocou isso na mensagem em que enviou a transcrição do que estava no
seu link, portanto, ficou uma coisa sem pé
Caro Rubem ...
Me desculpe de não ter lembrado seu nome !
Luciano Angelini
Prefeitura de Lupionópolis - Pr
Rubem Nascimento da Rocha escreveu:
Para os mais desavisados e os que estão chegando agora na lista, quem
usa sempre o bordão Quem Procura, Acha!, sou eu!
Sds.
To: [EMAIL
:= 'Capital';
end;
end;
Espero que desta vez tenha te ajudado, caso tenha alguma dúvida me chame
no MSN: [EMAIL PROTECTED]
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Adenes I. Freire Junior escreveu:
Luciano, essa rotina não deu certo.
Queria que o título da coluna do dbgrid ficasse
';
S2 := 'Capital';
end;
A mágia de colocar duas linha no titulo que faz é o Canvas:
//Escrevendo o Título
Canvas.TextOut(Rect.Left+2, 2 , S1) ;
Canvas.TextOut(Rect.Left+2, 16, S2) ;
Entendeu
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Ricardo César Cardoso escreveu:
E
Boa Tarde Adenes
Como sempre alguem (me desculpe não lembro o nome agora)
Quem procura acha !
http://www.devmedia.com.br/articles/viewcomp.asp?comp=924
Espero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Adenes I. Freire Junior escreveu:
Como faço para
rsrsrsrsrs ... o Marcus Vinícius vc ja consegui receber alguma
resposta
Caso consegui avisa
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Leslyn Fernandes escreveu:
aki!
On 11/28/07, Rafael Jorge [EMAIL PROTECTED]
mailto:rafael.jorge%40gmail.com wrote:
presente
Agora vai !
Nilson Chagas escreveu:
Testado.
Em 28/11/07, Marcus Vinícius Moreira [EMAIL PROTECTED]
mailto:marquinhus%40gmail.com escreveu:
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens enviadas.
Agradeço.
--
Marcus Vinícius Moreira
[As
Bom dia Vicente
Tente assim
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
edit1.text := DBGrid.DataSource.DataSet.Fields[0].Text ;
end;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Vicente Alves escreveu:
Bom dia!!
Como fazer para que um
é Alexandre .
Tem gente pra tudo nesse mundo(lista) rsrsrsrsrsrsr
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Alexandre Rodrigues escreveu:
Bah, o cara te oferece a base de graça e tu quer ainda em MySQL?
Não acha que tá querendo um pouco de mais?
Por favor, me corrija se estou
declarei a lib: MIDASLIB !!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Andre Gustavo Meister escreveu:
Caros colegas tive o mesmo problema mas num micro com win98, resolvi
facil, declarei na USES do meu form principal MIDASLIB e resolvido.
From: Luiz Carlos
Sent: Tuesday, November 13
DBLookupComboBox.KeyValue := null
sampaiobrito escreveu:
Amigos, como o próprio assunto já indica, preciso de uma ajuda pra
limpar o texto selecionado num TDBLookupComboBox (estou usando-o) como
se fosse um ComboBox com a diferença de sua integração com um Tabela de
dados para exibir a
Bom dia Felipe ...
Gosto muito da ClubeDephi, ja estou no segundo ano de assinatura
Luciano Angelini
Prefeitura Municipal de Lupionópolis
Felipe Nunes escreveu:
Alguém me indica um revista boua de Delphi 7.
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
fica vazio/branco ...
Alguém tem uma solução ??
Luciano Angelini
Prefeitura Municipal de Lupionópolis
Sandro ...
Tenta assim ...
SELECT
(EXTRACT(MONTH FROM DT_EMI_NF))|| '/' || (EXTRACT(YEAR FROM DT_EMI_NF))
AS MES_ANO
FROM NOTAS
Espero ter ajudado !!!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Sandro Ricardo escreveu:
Olá amigos Delphianos,
Estou com um probleminha por aqui
) ;
Espero ter ajudado !!!
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Samuel M. Basso escreveu:
Boa Tarde!
Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa
simples para praticar com dbexpress e tenho um problema que ao gravar e
excluir eu adicione applyupdate(-1) mas
descobrir o erro:
no evento onReconcileError do clientdataset...
Label1.Caption := E.Message;
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Samuel M. Basso escreveu:
Boa Tarde!
Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa
simples para praticar com dbexpress e tenho
www.sysmar.com.br
Jota Pyl Gmail escreveu:
Preciso de um sistema de controle de Licitações para orgão publicos.
O sistema deve respeitar as legislações pertinentes (Lei 8.666/93, Lei
de Micros e Pequenas empresas).
Deve englobar tambem a Modalidade de Pregão.
Se algum dos amigos tiver e
Boa Tarde Red Mosquito
Vc tem que liga o DataSource com o ClientDataSet o ClientDataSet
com DataSetProvider ... e finalmente o DataSetProvider no ADOQuery .
e seu Select com coloca no ADOQuery e não no ClientDataSet ...
Espero ter ajudado
Luciano Angelini
Prefeitura de
Red Mosquito
Acesse o Link tem um exemplo prático para fazer o Master/Detail
tem até uma video Aula
http://clip2net.com/page/m543/40732
é necessario instalar os codec (tscc)
ESpero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Red Mosquito escreveu
aForm.ShowModal;
finally
aForm.Free;
end;
end;
no clique do botão:
AbreForm(TFrmCadProduto, FrmCadProduto) ;
Espero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Fellipe Henrique escreveu:
Olá amigos, quero criar um tela de localizar, sempre que o usuário
clica no
botão
Marcelo
Como vc usa o DBedit
quando sua procura achar um CPNJ ...
Table.edit ...
Se caso não achar ...
Table.append ou Table.insert ...
os dados que vier da consulta estaram preso do DataSet ...
Luciano Angelini
Prefeitura de Lupionópolis-Pr
mclpaltrin escreveu:
Tenho uma
Boa Tarde Jorge
Eu ainda não usei ... eu apenas me lembrei que tinha lido na Revista
ClubeDelphi
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Jorge Ericsson escreveu:
O Exemplo do Adriano é muito bom, cai como uma luva no que preciso,
mas não
esta funcionando bem, apresenta
Bom dia Jorge
Acesse o Site da www.devmedia.com.br
tem uma edição da revista ClubeDelphi n° 83 que mostra passo a passo
como fazer
Espero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Jorge Ericsson escreveu:
Olá amigos,
Estou com o desafio de implementar
Bom dia ...
Caso alguém tenha, gostaria de receber também
[EMAIL PROTECTED]
ou
[EMAIL PROTECTED]
Grato
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Luciano Reis escreveu:
Alguém tem uma base de dados relacionada ao CID10
to fazendo um sistema de clinica, e to precisando
se alguem
;
FrmDm.CDSCadProduto.locate('nome_produto','edit1.text',[loPartialKey]) ;
end;
Luciano Angelini
Prefeitura de Lupionópolis-Pr
DelphiStar escreveu:
Boa Tarde a todos
Estou com um problema que não estou conseguindo resolver
Estou usando Delphi 6
e gostaria de saber, como eu faço para consultar parte
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if ClientDataSet1.IndexFieldNames '' then
DBGrid1.Columns[ClientDataSet1.FieldByName(
ClientDataSet1.IndexFieldNames).Index].Title.Color :=
DBGrid1.fixedColor;
if not (Column.Field.DataType in [ftBlob,ftMemo]) then
begin
Bom Dia .
Aki onde eu trabalho nós usamos o TeamViewer muito bom !!
Daniel Bastos escreveu:
Sei que não é a idéia do tópico, mas recomendo tb o serviço do logmein (
https://secure.logmein.com/home.asp?lang=en
https://secure.logmein.com/home.asp?lang=en)
Com ele não
Bom dia Felipe .
Basta vc marcar a linha clicando no F5 e para desmarcar clique
novamente no F5
Felipe Nunes escreveu:
Ola pessoal, alguem sabe qual opção nas configurações do delphi, que
quando estou debugando eu passo o mouse em cima de uma variavel ou
outra opção qq que
Desde Sexta-feira ... esta em manutenção !
Rodrigo Bevilacqua Marcondes escreveu:
Olá Pessoal,
O site da devmedia está fora do ar mesmo ? alguem sabe porque ?
Rodrigo Bevilacqua Marcondes
[EMAIL PROTECTED] mailto:rodrigod6%40yahoo.com.br
Abra sua conta no Yahoo! Mail, o único sem
Retire o asterisco da Query
bene20032004 escreveu:
Como eu apago todos os registros de uma tabela access via
programação ?
Estou fazendo assim:
tabela.close;
tabela.sql.clear;
tabela.sql.text:='delete * from tabela';
Esta dando este erro O provedor atual não oferece suporte para
Tenta isso ..
Valor :=
DBGrid1.DataSource.DataSet.FieldByName(DBGrid1.Columns[0].FieldName).Value ;
Luiz Gustavo Barbosa Teixeira escreveu:
Galera,
Bom dia. Por favor, alguém pode me explicar como faço para saber quais
são os valores de cada coluna de uma linha selecionada em um
Adriano . Vc ja ouviu falar do TeamViewer ?? É Free muito
bom !!
Adriano Santos escreveu:
Alguém conhece um serviço, mesmo pago, igual o LogMeIn no Brasil?
Preciso contratar um serviço como este para meus clientes.
Obrigado
--
Adriano Santos
Desenvolvedor Delphi desde
Comunicação Social pela Universidade Cruzeiro do Sul, SP.
Colunista e Comissão Editorial da revista ClubeDelphi.
http://www.delphitodelphi.blogspot.com
http://www.delphitodelphi.blogspot.com
Luciano Angelini respondeu:
Adriano . Vc ja ouviu falar do TeamViewer ?? É Free
Talvez ajude..
procedure TForm1.Button1Click(Sender: TObject);
var dt_normal : TDateTime ;
dt_soh_numero : string ;
begin
dt_normal := StrToDate(edit1.text) ;
dt_soh_numero := formatdatetime('DDMM',dt_normal);
label1.Caption := dt_soh_numero ;
end;
Boa Tarde Satoy .
Talvez isso te ajude
Transacao.TransactionID := 2;
Transacao.IsolationLevel := xilREADCOMMITTED;
try
if not FrmDM.SQLConnection.InTransaction then
FrmDM.SQLConnection.StartTransaction(Transacao);
Inclusao:
FrmDm.QueryCredores.Close;
TForm, é do tipo TForm que é o nome do
Form da sua aplicação...
Exemplo:
vForm : TFrmCadCredores;
vForm1 : TFrmConsulta;
então...vc colocar T + NOME DO SEU FORM.
Espero ter ajudado.
Abraços
- Mensagem original
De: Luciano Angelini [EMAIL PROTECTED]
mailto:luciano.angelini
Ribamar Souza e Ricardo
eu mudei e ficou assim:
no form FrmCadCredores:
Cadastro_Credor : Tform ;
e no form FrmConsulta_Credores ficou assim
procedure TFrmConsulta_Credores.DBGrid1DblClick(Sender: TObject);
begin
With FrmDm do
if not CDSCredores.isempty then
begin
82 matches
Mail list logo