gabrieldb

Opa precisando posta ai.

Dá uma olhada nesse link, explica como fazer,qualquer coisa posta ai. Acessando o Firebird

:D Opa precisando posta ai... abraço!

Eu tenho quase certeza que o erro é no "Conex", no meu sistema funciona assim: Conex = é a minha conexão com o banco de dados, e ela está em um módulo. Tenta no lugar do "Conex" colocar a sua conexão e posta ai.

O debug aponta pra qual linha ?

Esse é o botão salvar sem o insert só com o update Private Sub cmdSalvar_Click() FormAlterado = False Bloqueio Call conexao Conex.Execute ("update clientes Set nome = '" & txtFantasia.Text & "',estab ='" & txtEstab.Text & "',razao='" & txtRazao.Text & "',endereco='" & txtEndereco.Text & "',bairro='" & txtBairro.Text & "',cidade='" & txtCidade.Text & "',estado='" & txtEstado.Text & "',cep='" & txtCep.Text & "',cnpj='" & txtCnpj.Text & "',inscricao='" & txtInscricao.Text & "',ccm='" & txtCcm.Text & "', fone1='" & txtFone1.Text & "',fone2='" & txtFone2.Text & "', fone3='" & txtFone3.Text & "',fax='" & txtFax.Text & "',resp='" & txtResp.Text & "', cargo='" & txtCargo.Text & "', email='" & txtEmail.Text & "',site='" & txtSite.Text & "' Where codigo = '" & codigo & "'") If rs.State = 1 Then rs.Close rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic txtFantasia = Empty txtEstab = Empty txtRazao = Empty txtEndereco = Empty txtBairro = Empty txtCidade = Empty txtEstado = "São Paulo" txtCep = Empty txtCnpj = Empty txtInscricao = Empty txtCcm = Empty txtFone1 = Empty txtFone2 = Empty txtFone3 = Empty txtFax = Empty txtResp = Empty txtCargo = Empty txtEmail = Empty txtSite = Empty Set DataGrid1.DataSource = Nothing rs.Close End Sub e o botão editar onde eu busco no bd Private Sub cmdEditar_Click() Desblokeio Call conexao Conex.CursorLocation = adUseClient If rs.State = 1 Then rs.Close rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Nenhum registro foi encontrado!", vbExclamation, "De Luca Serviços" Else codigo = rs("codigo") txtFantasia.Text = Trim(rs("nome")) txtEstab.Text = Trim(rs("estab")) txtRazao.Text = Trim(rs("razao")) txtEndereco.Text = Trim(rs("endereco")) txtBairro.Text = Trim(rs("bairro")) txtCidade.Text = Trim(rs("cidade")) txtEstado.Text = Trim(rs("estado")) txtCep.Text = Trim(rs("cep")) txtCnpj.Text = Trim(rs("cnpj")) txtInscricao.Text = Trim(rs("inscricao")) txtCcm.Text = Trim(rs("ccm")) txtFone1.Text = Trim(rs("fone1")) txtFone2.Text = Trim(rs("fone2")) txtFone3.Text = Trim(rs("fone3")) txtFax.Text = Trim(rs("fax")) txtResp.Text = Trim(rs("resp")) txtCargo.Text = Trim(rs("cargo")) txtEmail.Text = Trim(rs("email")) txtSite.Text = Trim(rs("site")) preenche_grid End If End Sub Será que é algum erro neles?

Deu certinho esse código ai que você passou, mais ele tá estranho vou dar um exemplo do que tá acontecendo ai você entende melhor do que eu explicar. Exemplo: Eu tenho o registro "Universo Tintas" e "Hospital Ifor" ai eu vou e apago do registro "Universo" a palavra "Tintas" e depois volto a Incluir o "Tintas" ele some o registro "Hospital Ifor" e fica os dois outros "Universo" e "Universo Tintas". Conseguiu entender ?

Meu código ficou assim, não dá mais o erro mais também não atualiza nada na tabela fica do meu jeito. Conex.Execute ("Update clientes Set codigo = '" & codigo & "' Where Codigo = '" & codigo & "'")

Olha ai o erro que dá.

Eu fiz assim mais dá erro. Conex.Execute ("update clientes nome = '" & txtFantasia.Text & "',estab ='" & txtEstab.Text & "',razao='" & txtRazao.Text & "',endereco='" & txtEndereco.Text & "',bairro='" & txtBairro.Text & "',cidade='" & txtCidade.Text & "',estado='" & txtEstado.Text & "',cep='" & txtCep.Text & "',cnpj='" & txtCnpj.Text & "',inscricao='" & txtInscricao.Text & "',ccm='" & txtCcm.Text & "', fone1='" & txtFone1.Text & "',fone2='" & txtFone2.Text & "', fone3='" & txtFone3.Text & "',fax='" & txtFax.Text & "',resp='" & txtResp.Text & "', cargo='" & txtCargo.Text & "', email='" & txtEmail.Text & "',site='" & txtSite.Text & "')") Mais dá erro.

Consegui resolver Kuroi, eu tirei o campo "codigo" do insert ai quando eu gravo os outros campos ele autonumera o campo "codigo" na tabela, só que ficou mais uma dúvida : se eu busco um cliente no BD e atualizo por exemplo o telefone dele e salvo, ele não grava em cima do registro atual,ele cria um novo ai fica dois clientes iguais e com o campo telefone diferente.Sabe como eu posso resolver isso ?

Se for a cor de fundo do Form na propriedade BackColor lá tem várias cores. Se for outra coisa que está querendo explique melhor sua dúvida. Abraço!

Então eu corrigi meu insert agora, mais minha dúvida é porque eu tenho que digitar o "codigo" do cliente em uma text se o campo é autonumeração ? Nos outros bancos ocorre a mesma coisa (eu to usando o PostgreSQL nesse sistema) ele pede mesmo assim o valor do campo "código" e eu queria assim que quando eu clicasse no botão "novo"ele gerasse o código ao invés de ter que digitar,porque como você falou não pode receber valor , e digitar toda vez o código eu não acho legal.

Tente assim : Atribui a máscara como texto da maskedbox. Maskedbox1.text = "__/__/___" ( se a máscara for ##/##/####) ou então use assim. Maskedbox1.cliptext=""

Bom dia pessoal, eu aqui mais uma vez, rsrs Eu criei um campo codigo na tabea "Clientes" do meu BD mais surgiu um problema...eu criei o campo "codigo" como serial tipo ele auto insere o codigo do cliente mais na hora do insert ele pede pra digitar o código na textbox....eu penso que seria assim deixava a textbox em branco e ele auto-inserisse o numero e não precisasse digitar ele na text. Como eu faço isso ? Ai vai o código do meu atual Insert Conex.Execute ("insert into clientes values('" & txtFantasia.Text & "','" & txtEstab.Text & "','" & txtRazao.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtCnpj.Text & "','" & txtInscricao.Text & "','" & txtCcm.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtEmail.Text & "','" & txtSite.Text & "')") ps: O campo codigo é o primeiro da tabela.

Valeu Raphael e Kuroi pela ajuda, consegui resolver meu problema. abraço!

Exatamente, por exemplo minha tabela nome tem o valor pra 20 caracters ai eu gravo apenas 10 quando eu busco ele aparece na text os 10 caracteres e mais 10 de espaço. Como eu uso essa função Trim() ?

Kuroi sempre me salvando ...rsrs Deu certinho cara, mais ainda tenho uma dúvida não sei se abro outro tópico ou posto aqui mesmo, sobre o espaço na tabela quando eu busco um registro na tabela ele me traz com espaço como faço pra eliminar esse espaço ?

Ai o meu código do change do combo Private Sub cboPosto_Change() Call conexao If Conex.Execute("select from clientes where nome = ''") Then txtSetor = rs("nome") txtRazao = rs("razao") txtContato = rs("resp") txtCargo = rs("cargo") End If End Sub

Eu fiz isso mais não deu certo, nem deu erro nenhum não aparece nada.

Não entendi raphael

Consegui fazer com que meus clientes apareçam no combo meu problema agora é como eu faço pra selecionar um cliente e preencher os campos conforme na imagem com os dados deles ?

Então vai ser mais ou menos assim nesse combobox eu quero que liste todos os meus clientes salvos no banco,e quando o usuario escolher um cliente preencha os campos com os dados do cliente selecionado.Entendeu ?

Sim tem registro nela sim.

No evento Click tmb não apareceu Kuroi.