gabrieldb

Dá uma olhada nesse site que tá falando exatamente sobre isso ai http://www.macoratti.net/09/04/c_dtb1.htm Abraço!

Posta se código ai que eu passei pelo mesmo problema só que não foi com relatórios...mais quem sabe não consigo te ajudar Abraço!

Consegui galera eu tava colocando errado o rs.close depois do meu rs Valeu pela ajuda de todos! abraço!

faça deste jeito que o kuroi explicopu ou faça assim, como eu faço eu sempre fecho ele quando vou usar exemplo rs.close rs.open....... abraço t+ Consegui resolver essa parte: Mais agora aparece erro no DATGRID, EXCLUIR. Quando eu excluo um registro ele vai pro ultimo que ficou até ai blza. Mais some todos do DATAGRID e não somente o que eu exclui ai tenho queclicar novamente em editar pra voltar a aparecer os outros no DATAGRID.

Então Fabin eu fiz isso coloquei ela na generals mais quando salvo ou tento abrir alguma coisa ele dá esse erro Run-time error '3705': Operação não permitida quando o objeto está aberto. e aponta sempre pra essa linha : rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic

eu tentei mais dá erro e aponta pra essa linha no botão salvar rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic

Esse código aki: Private Sub preenche_grid() With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "select from clientes" 'Set rs = .Execute End With With rs Set DataGrid1.DataSource = rs End With End Sub Private Sub cmdSalvar_Click() Bloqueio Dim rs As New ADODB.Recordset Call conexao 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 & "')") 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

Exatamente isso Nelma...agora falta saber como fazer isso...rsrs

Pelo que eu entendi Nelma ele quis dizer assim se tem como compactar tudo junto com o software sem precisar instalar o BD na máquina do cliente, tipo criar um executável já com o BD junto ...essa tmb é minha dúvida.

ai vai o código dos meu botões Private Sub cmdExcluir_Click() Dim rs As New ADODB.Recordset Call conexao Conex.Execute ("delete from clientes where nome = '" & txtFantasia.Text & "'") rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Não existe registro para ser excluído!" Else txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") rs.Close End If End Sub Private Sub cmdAnterior_Click() If rs.EOF Then MsgBox "Não existe registros!" Else rs.MovePrevious If rs.BOF Then rs.MoveFirst End If txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") End If End Sub Private Sub cmdProximo_Click() If rs.EOF Then MsgBox "Não existe registros!" Else rs.MoveNext If rs.EOF Then rs.MoveLast End If txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") rs.Update End If End Sub Private Sub cmdEditar_Click() Dim rs As New ADODB.Recordset Call conexao Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Nenhum registro foi encontrado!" Else txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") preenche_grid End If End Sub

Dá erro de operação não permitida quando o objeto está fechado.

Mais eu já executo o select e não muda nada...

Não entendi ? Não em nenhum deles eu to usando o rs.update Como eu faço isso ? Pra o recordset aparecer as alterações ?

Minhas dúvidas é nos botões PRÓXIMO, ANTERIOR, PESQUISA, EXCLUIR e no DATAGRID. Tipo assim eu acabei de gravar um registro ele foi pro banco normal mais não visualizo ele no form quando eu clico nos botões pesquisa, proximo ou anterior , aparece todos os outros menos ele até que eu saia e entre de novo no form. Exemplo: Eu tenho no banco as informações de Carlos, Fatima e Ana. Vou incluir o João, ele é incluido normal. Mais quando eu clico em pesquisar aparece os dados no caso o primeiro salvo Carlos. Quando clico em próximo aparece os outros Fatima e Ana, mais o João não aparece em nenhum. Ai quando eu saio da aplicação e volto e repito o processo, aparece normal. Minha dúvida é porque eu tenho que sair da aplicação e voltar pra aparecer o João ? PS: O mesmo acontece quando eu excluo algum registro, ele some do banco mais não do form até que eu saia e entre de novo.

Deu certo com todos aki raphael_suporte tudo resolvido... valeu cara abraço!

rsrs viajei no UPDATE ficou assim e deu certo Private Sub cmdEditar_Click() Dim rs As New ADODB.Recordset Call conexao Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Não há registros" Else txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") 'rs.Update preenche_grid End If End Sub Só falta agora o PROXIMO, ANTERIOR e EXCLUIR vou tentar

Ai vai o código do botão pesquisar, que ficou assim Private Sub cmdPesquisa_Click() Dim rs As New ADODB.Recordset Call conexao Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Não há registros" End If txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") rs.Update preenche_grid End Sub

Fiz aki mais continuou o erro....

Como eu iria fazer isso ?

Bom dia pessoal estou com erros no meu sistema quando eu não tenho nenhum registro na tabela e clico em Pesquisar, Próximo e Anterior ou Excluir ele dá esse erro BOF e EOF e diz que não foi encontrado nenhum registro como faço pra quando o usuário clicar em um desses botões (Pesquisar, Próximo e Anterior e Excluir) não aparecer esse erro quando estiver sem registros na tabela ?

Na mosca Kuroi deu certinho...valeu mais uma vez brother...

Essa parte ae deu certo o limpar.... mais a outra não entendi direito...

Se alguém souber vai ajudar mais gente em ...eu tmb preciso de algo parecido com isso..

kkkkkkkkkkkkkkkkkkk Muito boa essa !

Google tá ficando imbativel