nsouza

Colegas, eu estou usando o sql server express, conectei o delphi 7 com o compontente ADO. Esta tudo indo as mil maravilhas, mas depois conectava e dava o erro abaixo: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso Agora, não entro nem sequer no sql server 2005. alguém poderia ajudar em como resolver esta problema? Obrigado!

Faça um teste antes de salvar os dados... só atribua o valor da data ao campo se ele não estiver vazio exemplo: if DateEdit1.Text <> (' / / ') then CDS_CadastrodtAdmissao.Value := DateEdit1.Date; abraço Deu certo, conforme o colega Jhonas instruiu. Obrigado!

Colegas, Estou conseguindo salvar as datas normalmente, meu problema agora é o contrario tenho 3 campos datas, dois foi preenchido o campo que estava vazio deu a seguinte mensagem: "Incorret data value: ' / / ' for collum 'dtAdmissao at row.1, ou seja preciso altera e salvar os dados mesmo que o campo data fique vazio. Desde já obrigado

Veja isto http://www.mcdbabrasil.com.br/modules.php?...icle&sid=67 Talvez voce tenha que instalar um driver do dbexpress especifico para a versão do seu SQL Sever http://www.ziggi.com.br/downloads/driver-d...para-sql-server http://74.125.95.132/search?q=cache:jB2Ass...=clnk&gl=br abraço obrigado, foi de muita ajuda!

Colegas, tentei fazer a conexão do delphi com SQL-SERVER 2005 EXPRESS usando o dbexpress digitei todos os dados inclusive o Adm "sa" e sua senha, mas não deu erro. alguém teria um tutorial que explica como fazer esta configuração para a conexão? Obrigado!

Colegas, fiz uma conexão dbexpress com SQL SERVER 2005 EXPRESS EDITION usando o mysql 5.00.77 o problema é que ao conectar ele não aceita uma senha em branco "" Li um tutorial que ensinou a configurar um outro usuario no SQL SERVER 2005 EXPRESS EDITION, criei e coloquei uma senha. No Entanto, quando vou conectar o SQL SERVER 2005 EXPRESS EDITION o usuário que criei não aparece para eu escolher, aparece somente o usuário padrão. Como faço para utilizar o usuário que criei, senão não conseguirei conectar o Delphi com SQL SERVER 2005 EXPRESS EDITION usando o dbexpress? Obrigado!

DataSet não está no modo Edit ou modo Insert Procedure TF_Funcinario.confirmarClick(Sender:TObject); begin if confira <> 3 then begin grava; // Se nesta procedure não estiver Editando ou Inserindo este erro acontece F_Dados.Q_funcionario.Post; end; // porque este END está aqui ? PanGrid.BringToFront; PanBotoes.Enabled := True; Limpa; end; Veja se encontra onde está este comando F_Dados.Q_funcionario.Edit; ou F_Dados.Q_funcionario.Insert; OBS: Preste mais atenção no seu código .... voce está comentendo erros primários abraço Caro Jhonas, obrigado pelo toque quanto a prestar atenção nas minhas syntaxes vou ficar mais atento. O erro esta porque eu coloquei .append e era .insert. No entanto quando fui corrigir a syntaxe abaixo: DM.Q_Funcionarios.Active := False; DM.Q_Funcionarios.SQL.Clear; DM.Q_Funcionarios.SQL.Add('INSERT INTO FUNCIONARIO (CODESPECIALIDADE, NOME, ENDERECO)'); DM.Q_Funcionarios.SQL.Add('VALUES (:CODESPECIALIDADE, :nome, :endereco)'); DM.Q_Funcionarios.ParamByName('codespecialidade').AsInteger := StrToInt(edtcodespecialidade.Text); DM.Q_Funcionarios.ParamByName('nome').AsString := edtNome.Text; DM.Q_Funcionarios.ParamByName('endereco').AsString := edtEndereco.Text; DM.Q_Funcionarios.ExecSQL; DM.Q_Funcionarios.Active := TRUE; esta linha de comando estava escrita desta forma: //DM.Q_Funcionarios.Active := TRUE; como sabe ela não tem função desta forma, deletei-a e ainda sim continuou aparecendo a mensagem de erro: 'Q_Funcionarios: Cursor not retorned from Query"

Caro Jhonas, quando clico no botão confirmar para salvar os dados, recebo a mensagem Dataset not in edit or insert mode abaixo esta o código do botão confirmar, pesquisei algumas coisas mas não tive sucesso em resolver. Obrigado pela sua atenção, se puder ajudar de novo agradeço. Procedure TF_Funcinario.confirmarClick(Sender:TObject); begin if confira <> 3 then begin grava; F_Dados.Q_funcionario.Post; end; PanGrid.BringToFront; PanBotoes.Enabled := True; Limpa; end;

DML – Data Manipulation Language Inserindo dados em uma tabela (INSERT) Atualizando dados em uma tabela (UPDATE) Removendo dados de uma tabela (DELETE) Exemplo usando meu Banco de dados procedure TForm1.Button1Click(Sender: TObject); begin IBQuery1.Active := False; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('INSERT INTO OBRAS (COD_EMP, COD_OBRA) '); IBQuery1.SQL.Append('VALUES (9999, 9999)'); SHOWMESSAGE(IBQuery1.SQL.Text); IBQuery1.ExecSQL; IBQuery1.Active := TRUE; end; procedure TForm1.Button1Click(Sender: TObject); begin IBQuery1.Active := False; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('INSERT INTO OBRAS (COD_EMP, COD_OBRA) '); IBQuery1.SQL.Append('VALUES (:COD1, :COD2)'); IBQuery1.ParamByName('COD1').AsInteger := 8888; IBQuery1.ParamByName('COD2').AsInteger := 8888; SHOWMESSAGE(IBQuery1.SQL.Text); IBQuery1.ExecSQL; IBQuery1.Active := TRUE; end; procedure TForm1.Button1Click(Sender: TObject); begin IBQuery1.Active := False; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('INSERT INTO OBRAS (COD_EMP, COD_OBRA) '); IBQuery1.SQL.Append('VALUES ('+ Edit1.Text + ',' + Edit2.Text + ')'); SHOWMESSAGE(IBQuery1.SQL.Text); IBQuery1.ExecSQL; IBQuery1.Active := TRUE; end; procedure TForm1.Button1Click(Sender: TObject); begin IBQuery1.Active := False; IBQuery1.SQL.Clear; IBQuery1.SQL.Append('INSERT INTO OBRAS (COD_EMP, COD_OBRA) '); IBQuery1.SQL.Append('VALUES (:COD1, :COD2)'); IBQuery1.ParamByName('COD1').AsInteger := strtoint(Edit1.Text); IBQuery1.ParamByName('COD2').AsInteger := strtoint(Edit2.Text); SHOWMESSAGE(IBQuery1.SQL.Text); IBQuery1.ExecSQL; IBQuery1.Active := TRUE; end; Todas essas maneiras funcionam ... faça uma comparação com o seu código Veja outras informações: http://www.devmedia.com.br/articles/viewcomp.asp?comp=5085 http://www.apostilando.com/download.php?co...categoria=MySQL http://imasters.uol.com.br/artigo/3707/mysql/mysql_5/ http://www.cursoadv.com.br/mysql.aspx abraço amigo, funcionou coloquei a seguinte syntaxe: DM.Q_Funcionarios.Active := False; DM.Q_Funcionarios.SQL.Clear; DM.Q_Funcionarios.SQL.Add('INSERT INTO FUNCIONARIO (CODESPECIALIDADE, NOME, ENDERECO)'); DM.Q_Funcionarios.SQL.Add('VALUES (:CODESPECIALIDADE, :nome, :endereco)'); DM.Q_Funcionarios.ParamByName('codespecialidade').AsInteger := StrToInt(edtcodespecialidade.Text); DM.Q_Funcionarios.ParamByName('nome').AsString := edtNome.Text; DM.Q_Funcionarios.ParamByName('endereco').AsString := edtEndereco.Text; DM.Q_Funcionarios.ExecSQL; DM.Q_Funcionarios.Active := TRUE; no entanto retornou o seguinte erro: 'Q_Funcionarios: Cursor not retorned from Query" Outro detalhe é que apesar de dar este erro, quando dou um refresh no banco de dados os registros estão sendo gravado, porém duplicados. obrigado!

Caro Jhonas, tentei, retentei, tentei de novo, mudei o jeito, perdi horas tentando e não tive sucesso fiz da forma que você com poucas colunas e mesmo assim continua dando e erro de syntaxe 1- forma que tentei DM.Q_Funcionarios.Active := False; DM.Q_Funcionarios.SQL.Clear; DM.Q_Funcionarios.SQL.Add('INSERT INTO FUNCIONARIO (ENDERECO, NUMERO) VALUES ('); DM.Q_Funcionarios.SQL.Add('"'+EdtENDERECO.Text+'","'); DM.Q_Funcionarios.SQL.Add(EdtNumero.Text+',)'); DM.Q_Funcionarios.ExecSQL; 2- forma que tentei DM.Q_Funcionarios.close; DM.Q_Funcionarios.sql.clear; DM.Q_Funcionarios.SQL.Add('INSERT INTO FUNCIONARIO (NOME, ENDERECO'); DM.Q_Funcionarios.SQL.Add('VALUES (:NOME, :ENDERECO)'); DM.Q_Funcionarios.ParamByName('NOME').AsString := edtNome.Text; DM.Q_Funcionarios.ParamByName('ENDERECO').AsString := edtEndereco.Text; DM.Q_Funcionarios.ExecSql(false); voce poderia dar uma exemplo de como devo fazer? Obrigado!

Caro, minha dificuldade esta justamente em identificar onde esta o erro para neste syntaxe você tem o manual de referencia desta versão onde pode me orientar onde eu consigo? Obrigado

Colegas sou iniciante e estou com problema no código abaixo recebo a seguinte mensagem ao clicar no botão incluir: Da a seguinte mensagem de erro: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Value('2', 'Carlos',",",",",",",",",",",",",",",",",","' / / ',' ate line 2'. Minha conexão é com o DBExpress e estou usando o Mysql 5.0.77 Por favor alguém poderia corrigir este código ou parte de código para mim. DM.Q_Funcionarios.close; DM.Q_Funcionarios.sql.clear; DM.Q_Funcionarios.SQL.Add('INSERT INTO FUNCIONARIO (CODESPECIALIDADE, NOME, ENDERECO, NUMERO, OMPLEMENTO, CIDADE, ESTADO, CEP, TELEFONE, CELULAR, EMAIL, RG, CPF, DTNASCIMENTO, DTADMISSAO, DTDEMISSAO, NOMECONTATO,TELCONTATO, LOGIN, SENHA, FOTO'); DM.Q_Funcionarios.SQL.Add('VALUES (:NOME, :ENDERECO, :NUMERO, :COMPLEMENTO, :CIDADE, :ESTADO, :CEP, :TELEFONE, :CELULAR, :EMAIL, :RG, :CPF, :DTNASCIMENTO, :DTADMISSAO, :DTDEMISSAO, :NOMECONTATO,:TELCONTATO, :LOGIN, :SENHA, :FOTO)'); DM.Q_Funcionarios.ParamByName('NOME').Text := edtNome.Text; DM.Q_Funcionarios.ParamByName('CODESPECIALIDADE').Text := edtcodespecialidade.Text;; DM.Q_Funcionarios.ParamByName('ENDERECO').Text := edtEndereco.Text; DM.Q_Funcionarios.ParamByName('NUMERO').Text := edtNumero.Text; DM.Q_Funcionarios.ParamByName('COMPLEMENTO').Text := edtComplemento.Text; DM.Q_Funcionarios.ParamByName('CIDADE').Text := edtCidade.Text; DM.Q_Funcionarios.ParamByName('ESTADO').Text := edtUF.Text; DM.Q_Funcionarios.ParamByName('CEP').Text := mkeCep.Text; DM.Q_Funcionarios.ParamByName('TELEFONE').Text := mkeTelefone.Text; DM.Q_Funcionarios.ParamByName('CELULAR').Text := mkeCelular.Text; DM.Q_Funcionarios.ParamByName('EMAIL').Text := edtEmail.Text; DM.Q_Funcionarios.ParamByName('RG').Text := edtIdentidade.Text; DM.Q_Funcionarios.ParamByName('CPF').Text := mkeCpf.Text; DM.Q_Funcionarios.ParamByName('DTNASCIMENTO').Text := mkeNascimento.Text; DM.Q_Funcionarios.ParamByName('DTADMISSAO').Text := mkeDemissao.Text; DM.Q_Funcionarios.ParamByName('DTDEMISSAO').Text := mkeDemissao.Text; DM.Q_Funcionarios.ParamByName('NOMECONTATO').Text := edtNomeCont.Text; DM.Q_Funcionarios.ParamByName('TELCONTATO').Text := mkeTelContato.Text; DM.Q_Funcionarios.ParamByName('LOGIN').Text := edtLogin.Text; DM.Q_Funcionarios.ParamByName('SENHA').Text := edtSenha.Text; DM.Q_Funcionarios.ParamByName('FOTO').Text := edtFoto.Text; DM.Q_Funcionarios.ExecSql(false);

você tem o link? Esta ferramenta é freeware Se puder me enviar te agradeço nilojf@yahoo.com.br

obrigado, deu certinho

Colegas, estou usando o DBdesigner para modelar banco de dados no mysql. Existe algum programa semelhante para modelar banco de dado no SQL-SERVER? Obrigado!

Colegas, eu instalei o mysql 5 no seguinte local C:\MySQ5\ tenho pouca esperiencia, tentei conectar o mysql atraves do DOS usando o comando cmd não consegui, como faço para conectar o mysql através do DOS, alguém poderia me fornecer a linhas de comando? Obrigado!

Caro colega, obrigado pela resposta. Gostaria de dizer que estou a pouco tempo estudando e programando em Delphi o material sugerido foi de muita ajuda, mas ainda não consigo converter toda essa teoria em pratica. já li vários manuais enormes como mysql, vb.net e o proprio delphi, e muito conhecimento mas diante de tanto conteúdo e pouca prática não consigo assimilar com tanta rapidez. Será que seria possivel me enviar o código? Para algunas situação mais simples eu consigo resolver. Grato pela compreensão. Nlsouza

Colegas estou com dificuldades em salvar o registro no campo data. Meu banco de dados em SQL-SERVER tem o campo data de nascimento no formato DateTime, o único formato disponível. Já tentei de todas as formas salvar uma data mas sempre da a mensagem que o formato " / / " não é valido, Já tentei várias forma pra solucionar problema habilitei e desabilitei a opção carecteres literais no mask edit. Criei a linha de comando: if mkeNascimento.Text <> ' / / ' then mkeNascimento.Text := F_Dados.Q_Funcionario.FieldByName('dtnascimento').AsString Mas foi em vão. aguem pode me ajudar?

Se fizer um backup do arquivo depois renomear o arquivo ir até a o texto da unit e mandar substituir não funciona?

Bom ddia colegas, Gostaria de uma ajuda que para vocês são simples. Eu nomeei uma Unit como U_Cliente, mas desejo mudar para U_Proprietário. Como faço esta operação sem dar um bug no meu programa? Obrigado!

Imagine 2 forms ( Form1 e Form2 ) no form1 voce tem um edit e um botao e no form2 outro edit para passar o valor do edit1 do form1 para o edit1 o form2 seria algo assim: // NO FORM1 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin form2.Edit1.Text := Edit1.Text; form2.Show; end; end. ///////////////////////// // NO FORM2 unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Edit1: TEdit; private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.DFM} end. Observe que no form1 se faz referencia ao form2 atraves da Uses uses Unit2; // referencia ao Form2 procedure TForm1.Button1Click(Sender: TObject); begin form2.Edit1.Text := Edit1.Text; // passando o valor do edit1 do form1 para o edit1 do form2 form2.Show; // mostrar o form2 end; A ideia seria esta. abraço Caro colega, muito obrigado pela simples explicação implementarei no meu form. bom feriado!

Na verdade eu não tenho dúvida de como usar as chaves estrangeiras, apenas gostaria de saber a linha de código usada para que quando eu abrisse o subform ele herdasse o numero da ordem de requisição do formulário principal.

Colegas, minha duvida é a seguinte: Tenho um formulário com os seguintes campos Tabela OrdemServico (Principal) Cod_Sevico (PK) proprietario placa km atual Tabela ServicoExecutado (Dependente da tabela principal) Cod_Execucao (PK) Cod_Servico(FK) Cod_Local Cod_Defeito Criei um formulário F_OrdemServico com a tecla de atalho F2 que chama o formulario F_ServicoExecutado eu preciso que quando o F_ServicoExecutado abrisse, o campo Cod_Servico(FK) que é uma chave estrangeira herdasse o valor do campo Cod_Sevico (PK) que é chave primária que esta no F_OrdemServico que esta aberto. Mais uma vez muito obrigado!

michei muito obrigado!

Tá bom, mesmo assim obrigado pelo esforço em me ajudar!