Duduh_Capixaba

Tipo isso? procedure TForm1.Button1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0: Form1.Show; 1: Form2.Show; end; end;

Obrigado Jhonas, resolvi! Na verdade era um outro problema que estava acontecendo antes de chegar nessa rotina. Havia um caractere a mais no caminho da pasta. Nada que um "showmessage" não resolva. Obrigado!

Olá galera! Tenho aqui um código bem simples que verifica a existência de uma pasta e de um arquivo em uma rede interna. O código que verifica o arquivo já está funcionando: Edit1.Text = \\estacao\C\Pasta\ Edit2.Text = \\estacao\C\Pasta\Arquivo.ext if not FileExists(Edit2.Text) then ShowMessage('Arquivo não encontrado. Verifique!') else ShowMessage('Arquivo encontrado!'); Já o código para verificar a pasta, não funciona. Ele sempre diz que não encontra a pasta, sendo que é a mesma pasta onde eu procuro o arquivo, como vocês podem conferir no Edit1 e Edit2: if not DirectoryExists(Edit1.Text) then ShowMessage('Diretório não existe. Verifique!') else ShowMessage('Diretório encontrado!'); Já tentei colocar o conteúdo do Edit2.Text também, mas acontece a mesma coisa. Alguém pode me dar uma luz?!

Xafam, você diz que tem dúvidas quanto ao DBEdit, mas nessas linhas de código que você deixou no seu post, não tem nenhum DBEdit. No erro apresentado ('Qarmazem2: Cannot modify a read-only dataset'), o Delphi está te dizendo que você não pode modificar uma tabela somente leitura. Se não aparece nada nos campos da mesma, talvez não tenha nada mesmo. Tente abrir essa tabela com a ajuda de alguma ferramenta para a sua base de dados para fazer uma verificação.

VMS, o seu código está repetindo a mesma coisa a cada registro lido da sua tabela. Essa configuração de tamanho de fonte, cor e estilo do DBRichEdit pode ser feita apenas uma vez, e tudo que estiver relacionado a ele receberá essa formatação. Pelo menos é assim que eu uso nas minhas aplicações.

Como assim "escrever nesse DBEdit"? O DBEdit recebe os dados da base que você seta no DataSource, não é como um Edit, que você escreve o que quiser. Talvez você esteja tentando dizer que não consegue visualizar os dados da base, é isso? Se for, talvez você não tenha colocado um comando para abrir sua base de dados.

Rodrigo, escreva o erro que aparece na mensagem, assim alguém poderá ir direto ao ponto.

Olá Gallyleus! Quais componentes você está usando em sua aplicação? Qual gerenciador de base de dados você utiliza?

Cara, nosso sistema também usa Querys, tanto que no exemplo que te passei o código SQL é inserido em uma das Querys do Form. Esse exemplo só não te serviria se você não pudesse alterar a estrutura da sua base de dados. Caso contrário, serve perfeitamente. Abraço!

Cara, uma coisa que a gente usa aqui no nosso sistema e que funciona muito bem, é uma "coluna de seleção" dentro da tabela. Como funciona: Navegando pelo Grid, o usuário usa a tecla "ESPAÇO" para selecionar, no nosso exemplo, o cliente. Um asterisco é gravado em um campo do cadastro desse cliente. Vamos supor que esse campo seja "SELECAO". Então, ao clicar na tecla "ESPAÇO", o campo "SELECAO" é preenchido com um asterisco. Então o usuário vai marcando todos os clientes desejados. Quando ele clica em imprimir, o filtro SQL inclui esse campo SELECAO, assim: SELECT CAMPOS FROM TABELA WHERE CONDICAO 1 AND CONDICAO 2 . . . AND SELECAO = '*' Quando sair da impressao, lembre-se de desmarcar as seleções.

Melhor você postar os códigos que você está usando. Mas pelo erro apresentado, acho que o problema é que você não está abrindo a tabela antes de postar nela. Tenta assim: begin . . . tblClientes.open; tblClientes.insert; tblClientes.FieldByName('CAMPO').Value := Dados; tblClientes.post; tblClientes.close . . . end;

Mude essa linha: qclientes.ParamByName (nome):=ed.text; Para: qclientes.ParamByName ('nome').Value := ed.text; Lembre-se que para usar "ParamByName", você já deve ter seu código SQL montado na propriedade "SQL" da query. E com o parâmetro devidamente informado dentro desse código, assim o Delphi o cria automaticamente.

Olá Pleite! Cara, até dá pra te ajudar, mas ficaria mais fácil se você explicasse com mais detalhes o seu projeto. Por exemplo, que componentes de que palheta você está usando? Você tem algum código que faça o que você quer mas está dando algum tipo de erro? Está usando tabelas ou querys? Tente também escrever em português claro e legível, com pontuação correta e acentuação. Afinal, quem pega um texto como o seu quase não entende uma palavra do que está escrito, e por isso, desiste de cara de ajudar. Abraço!

Minha idéia seria mais ou menos isso: T1 > tabela que recebe os dados do arquivo CSV; T2 > tabela que vai armazenar os títulos de acordo com os dados informados em T1; T1: data vencimento = 01/05/2008;quantidade titulos = 03;valor inicial = R$ 200,00 T2: vencimento = 01/05/2008;parcela = 1;valor = 200,00; vencimento = 01/06/2008;parcela = 2;valor = 200,00; vencimento = 01/07/2008;parcela = 3;valor = 200,00; Apesar de eu achar a estrutura do seu arquivo CSV bem estranha. Tipo, todas as parcelas sempre possuem o mesmo valor?! Mas se for isso mesmo, a idéia acima funciona.

Na palheta dbExpress você também tem a opção de usar tabelas, ao invés de query's, é o componente SQLTable. Mas se você preferir usar o componente SQLQuery, terá que fazer inserções e edições por comandos SQL.

Agora deu pra entender. Mas veja bem: Um Grid exibe dados armazenados em uma base de dados, ou seja, você terá que inserir mais dois títulos na sua base, não no Grid. O que você pode fazer, é construir mais uma tabela dentro da sua base, onde irá gerar os títulos de acordo com o informado nessa tabela principal que você traz do arquivo CSV.

Olá! Sua pergunta está meio confusa. Você quer modificar os dados que aparecem no Grid? Não seria uma modificação diretamente em sua tabela?!

Olá! Quais componentes você está usando? Cada componente tem seu modo de trabalhar. Detalhe um pouco mais sua pergunta. Abraço!

Fala Micheus! Esse projeto não tem uma linha de comando sequer. Eu só estava testando como conectar uma base Firebird por uma conexão ADO no Delphi, pois eu já trabalhava com ADO e Firebird no VB. A mensagem de erro aparece quando eu clico F7 na inicialização do único Form do projeto: Project1: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); >> erro aqui! Application.Run; end. Se eu clico no F7, F8 ou F9 logo após a mensagem, o programa continua executando normalmente. O Grid traz os dados certinhos sem problemas, mas eu só gostaria de entender o motivo desse erro. Será que algum de vocês poderia fazer esse teste aí?! É só instalar o Firebird ODBC Drivers 1.2 e criar um Alias na fonte de dados ODBC do Windows.

Minhas sugestões se acabaram Fernando... Tente começar um outro projeto seguindo a mesma linha do seu projeto principal: um DM e um Form. Adicione alguma coisa no DM, faça a ligação entre eles e compile. Analise os dois projetos para ver se há algo faltando. É isso que eu faço quando não encontro a saída para um erro, começo tudo de novo, mas sem desistir do projeto que está em andamento. Assim eu posso comparar um com o outro pra verificar se algo está faltando. Boa sorte!

As opções estão se esgotando, mas, veja se na pasta onde você está salvando seu projeto, existem os arquivos: UDM.dcu, UDM.ddp, UDM.dfm, UDM.pas.

Então talvez seu problema não esteja no código SQL. Tente acompanhar seu código com o Step Over para ver onde está acontecendo o problema. Ou poste todo seu código para podermos entender melhor sua lógica. Abraço!

Cara, ao invés de colocar essas variáveis dentro do seu código SQL, não seria melhor usar parâmetros?! Ao Invés disso: Tabela.SQL.Clear; Tabela.SQL.Add('Select * From Produtos'); Tabela.SQL.Add('Where (LocalReg = "'+Cidade+'")'); Tabela.SQL.Add(' and (Cor = "'+Cor+'")'); Tabela.SQL.Add(' and (Categoria = "'+Categoria+'")'); Tabela.SQL.Add(' and (Veiculo = "'+Veiculo+'")'); Tabela.SQL.Add(' and (Tipo = "'+Tipo+'")'); Tabela.SQL.Add(' and (LocalPlaca = "'+Local+'")'); Tente isso: Tabela.SQL.Clear; Tabela.SQL.Add('Select * From Produtos '); Tabela.SQL.Add('Where LocalReg = :par1 '); Tabela.SQL.Add('and Cor = :par2 '); Tabela.SQL.Add('and Categoria = :par3 '); Tabela.SQL.Add('and Veiculo = :par4 '); Tabela.SQL.Add('and Tipo = :par5 '); Tabela.SQL.Add('and LocalPlaca = :par6'); Tabela.Params[0].AsTipo := Cidade; Tabela.Params[1].AsTipo := Cor; Tabela.Params[2].AsTipo := Categoria; Tabela.Params[3].AsTipo := Veiculo; Tabela.Params[4].AsTipo := Tipo; Tabela.Params[5].AsTipo := LocalPlaca;

Não tem nada de errado no código. Tente retirar o DM do projeto e adicioná-lo de novo. Tá estranho isso aí!

A fonte "Script" não é do Word, e sim do Windows. Use o componente FontDialog da palheta Dialogs. Bons estudos!