gabrieldb

Consegui resolver a primeira parte disso, coloquei "preenche_grid" no botão pesquisar e quando clico aparece juntos tanto nas texts como no DataGrid....mais agora veio outro probleminha como faço pra quando eu clicar em um registro no DataGrid ele aparecer nas texts e pra limpar o DataGrid como faz ?

Esse aki agora consegui resolver a primeira parte disso, coloquei "preenche_grid" nesse botão e aparece juntos tanto nas texts como no DataGrid....mais agora veio outro probleminha como faço pra quando eu clicar em um registro no DataGrid ele aparecer nas texts e pra limpar o DataGrid como faz ? Private Sub cmdPesquisa_Click() Dim rs As New ADODB.Recordset Call conexao Refresh Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic 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("fone") txtFone2.Text = rs("fonee") txtFone3.Text = rs("foneee") 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

Kuroi eu fiz isso aki e deu certo agora, deixei o set rs como comentário só por curiosidade e apareceu os dados no DataGrid mais não tá aparecendo ao mesmo tempo que eu clico o botão pesquisar eu clico em pesquisar e aparece na tela os dados normal nas texts, mais pra aparecer do DataGrid eu tenho que sair e entrar e novo na aplicação..ai ele atualiza....rsrs tá lokao meu sistema.. Private Sub preenche_grid() With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "select nome from clientes" ' Set rs = .Execute End With With rs Set DataGrid1.DataSource = rs End With End Sub

Não deu certo aki ... Eu tentei fazer assim criei uma sub e declarei duas variaveis no módulo como global mais dá esse erro: Run-time error '3709': A conexão não pode ser usada para realizar esta operação.Ela está fechada ou é inválida nesse contexto E aponta pro Set rs = .Execute Private Sub preenche_grid() With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "select nome from clientes" Set rs = .Execute End With With rs Set DataGrid1.DataSource = rs End With End Sub

sim já está, coloquei um botao que atualiza os dados e deu certo abraço t+ Fabin desculpa ter mexido no tópico fechado mais to com umproblema parecido..como você colocou o botão atualizar ? valeu!

Boa tarde pessoal eu tenho uma aplicação que Salva, Pesquisa e Exclui dados de um BD PostgreSQL. Minha dúvida é a seguinte, quando eu clico no botão pesquisar ele abre os dados no form e eu consigo através de dois botões anterior e próximo mudar de cadastro. Como eu faço pra ao mesmo tempo que ele aparece na tela,eu possa apenas visualizar em um DataGrid ? Se alguém puder ajudar posta ai...

Nesse Link tem a versão 8.2 do PostgreSQL http://rapidshare.com/files/245266378/post...2.13-1.zip.html

Consegui resolver Fabin eu carreguei meu recordset novamente nos botões e tá tudo como eu queria.... uhul... rsrs Valeu pela ajuda ae brother...se surgir mais duvidas daki pra frente eu abro tópico...Pois estou apenas no começo do meu sistema...

Meu botão excluir. Private Sub cmdExcluir_Click() Dim rs As New ADODB.Record Call conexao Conex.Execute ("delete from clientes where nome = '" & txtFantasia.Text & "'") End Sub Vou tentar fazer os outros aki.

No botão excluir eu quero que quando ele excluir um cadastro não só excluir do banco mais também do form limpar , exemplo eu exclui um cadastro ai quando eu clico no botão próximo ele continua na tela (form) ou seja não atualiza a tela mais no banco não existe mais esse cadastro excluído, poderia ser voltar pra o primeiro registro ou ficar em branco a tela entendeu ? O meu botão Editar só serve mesmo pra puxar os dados do BD e colocar na tela nada demais...mais eu queria que quando eu clicasse em editar ele trousesse os dados do BD eu alterasse os campos que precisasse e depois quando clicasse em Salvar ele salvasse em cima do antigo e não em um novo registro. Ai vai o código dele. Private Sub cmdEditar_Click() Dim rs As New ADODB.Recordset Call conexao Refresh Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic 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("fone") txtFone2.Text = rs("fonee") txtFone3.Text = rs("foneee") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") rs.Update End Sub Valeu!

Consegui resolver meu problema Fabin Tudo certo agora...mais ainda tenho duas pequenas dúvidas... 1ª Quando eu excluo ele não atualiza a tela ou seja some o registro do banco mais ainda continua na tela e pra sumir eu tenho que sair e entrar de novo no meu projeto o que será isso ? 2ª Quando eu busco um registro pra atualizar ele abre normal, mais se eu mudo alguma coisa nele ele salva como um novo registro e não em cima do que era pra ser editado, você sabe porque ? O código da resolução rsrs Private Sub cmdExcluir_Click() Dim rs As New ADODB.Record Call conexao Conex.Execute ("delete from clientes where nome = '" & txtFantasia.Text & "'") End Sub

Deu certo meu botão NOVO e SALVAR valeu Fabin... Então eu não tenho chave primária nesse BD ...será que é por isso que o excluir não funciona ?

Cara eu to passando pelo mesmo problema...se alguém puder ajudar ae vai ser 10.

Cara meu botão NOVO eu fiz igual o seu e deu certo aki mais não é ainda o que eu preciso eu quero um tipo assim o botão SALVAR e os campos ficasse blokeado sabe...e quando eu clicasse em novo ele liberava o Salvar e os campos pra digitação, ai quando terminasse de digitar clicasse em SALVAR ele blokeasse novamente os campos até clicar no NOVO novamemente...rsrs Entendeu ? E meu excluir deu erro , é esse aki: Argument of where must be type boolean, not type record Não sei se eu fiz certo... Meu código ficou assim : Private Sub cmdExcluir_Click() Dim rs As New ADODB.Command Call conexao Conex.Execute ("delete from clientes where('nome','estab','razao','endereco','bairro','cidade','estado','cep','cnpj','inscricao','ccm','fone','fone2','fone3','fax','resp', 'cargo','email','site') ") End Sub

Consegui resolver isso ai... declarei uma variável como private, e não mais como dim (private rs as adodb.recordset). Depois coloquei dois botões um próximo e um anterior. Arranquei isso do meu botão Editar Call conexao Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic Coloquei no form_load. Acrescentando set rs = new adodb.recordset e na declaração da variavel private tirei a palavra new. Ficando mais ou menos assim: Anterior Private Sub cmdAnterior_Click() 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("fone") txtFone2.Text = rs("fonee") txtFone3.Text = rs("foneee") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") End Sub Próximo: Private Sub cmdProximo_Click() 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("fone") txtFone2.Text = rs("fonee") txtFone3.Text = rs("foneee") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") End Sub Meio caminho andando já está funcionando o Pesquisar, Proximo, Anterior, Editar ...falta o Novo e Excluir mais agora vai ser mais fácil...

desculpa ai gabriel mas por esse codigo ai eu to aprendendo ainda entaum não sei como te explicar o porque por isso que coloquei no modo cnnComando pois é masi facil mas post ai que os modertadores lhe darao a areposta abraço t+ Valeu brother !

Meu código pra abrir os registros ficou assim : Private Sub cmdEdit_Click() Dim rs As New ADODB.Recordset Call conexao Conex.CursorLocation = adUseClient rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic 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("fone") txtFone2.Text = rs("fonee") txtFone3.Text = rs("foneee") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") rs.Update End Sub Mais ele só abre o primeiro registro da tabela...os outros não...

Nem deu certo aki não...

Meu banco de dados é o PostgreSQL...me passa ai cara como fazer esses botões..to precisando muito só falta eles pra terminar essa parte... poxa vida brother eu uso access mas achu que não diferencia as querrys não olha so tenho uam apostila aqui que seria muito boa para você inicar no vb nela explica muita coisa e apo´s a leitura voce vai formular estes botoes que bem explicado na apostila no site aqui tambem tem porcure pelo nome APOSTILA DE VB MUITO BOA qualquer coisa eu te passo o exemplo dos botoes ai pra voce abraço t+ Passa o exemplo dos botões ae com Access mesmo eu consigo mudar pra Postgre

Meu banco de dados é o PostgreSQL...me passa ai cara como fazer esses botões..to precisando muito só falta eles pra terminar essa parte...

Ai meu Form e como eu disse o Salvar funciona já com o codigo q eu postei e salva os dados normal no BD (PostgreSQL) o Editar eu consigo abrir os dados no form mais só abre o primeiro registro e não sei como faço os outros aparecer Agora falta o Novo, Excluir que eu não sei como colocar....e fazer aparecer os dados no dbgrid pra escolher qual cadastro quais os dados.

Então cara eu tenhos os botões : Novo, Salvar, Editar, Excluir e um dbgrid Mais não sei como colocar esses botões pra funcionar... o Salvar funciona já com o codigo q eu postei e salva os dados normal no meu BD (PostgreSQL) o Editar eu consigo abrir os dados no form mais só abre o primeiro registro e não sei como faço os outros aparecer Agora falta o Novo, Excluir que eu não sei como colocar....e fazer aparecer os dados no dbgrid pra escolher qual cadastro quais os dados.

Bom dia galera eu tenho uma aplicação que salva os dadosde um formuláiro em um BD porem quero trazer essas informações de volta pra poder editar ou exlcluir do BD. ai vai meu código pra salvar no BD Private Sub cmdSalvar_Click() 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 & "','" & txtDianf.Text & "','" & txtImplant.Text & "','" & txtVenc.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtSite.Text & "','" & txtEmail.Text & "')") End Sub Alguém pode me ajudar a criar essas opções no meu sistema ? valeu!

Tenta fazer assim brother Private cnn As ADODB.Connection Private cmd As ADODB.Command Set cnn = New ADODB.Connection Set cmd = New ADODB.Command cnn.Open("Provider=SQLOLEDB;Initial Catalog=SEU_BANCO;Data Source=SEU_SERVIDOR; integrated security=SSPI; persist security info=True;UserId=SEU_USUARIO;Password=SUA_SENHA" cmd.ActiveConnection = cnn cmd.Execute "insert into tabela values(valores)" cnn.Close() Qualquer coisa posta ae... falou

Consegui pessoal por esse código aki: Private Sub cmdSalvar_Click() Dim rs As New adodb.Recordset Call conexao Conex.Execute ("insert into clientes values('" & txtFantasia.Text & "',)") End Sub Valeu pela ajuda de todos ! Se precisar tamo ai