(Resolvido) DataGrid

[gabrieldb]

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...

Editado Julho 8, 2009 por gabrieldb

[kuroi]

isso??

Set DataGrid1.DataSource = rs

onde rs é o nome do seu recordset.

[gabrieldb]

isso??

Set DataGrid1.DataSource = rs

onde rs é o nome do seu recordset.

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

[kuroi]

gabriel, essa conexao (Conex) tem q estar aberta na hora de executar o recordset.

[gabrieldb]

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

[kuroi]

qual o codigo do botao pesquisar??

[gabrieldb]

qual o codigo do botao pesquisar??

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

[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 ?

[kuroi]

mais agora veio outro probleminha como faço pra quando eu clicar em um registro no DataGrid ele aparecer nas texts

no evento clique do grid, pegue os dados da linha atual do recordset (o mesmo codigo q você usou acima).

e pra limpar o DataGrid como faz ?

acho q é isso:

Set DataGrid1.DataSource = Nothing

[gabrieldb]

acho q é isso:

Set DataGrid1.DataSource = Nothing

Essa parte ae deu certo o limpar....

mais a outra não entendi direito...

no evento clique do grid, pegue os dados da linha atual do recordset (o mesmo codigo q você usou acima).

[kuroi]

esse codigo aqui:

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")[/code]

[gabrieldb]

esse codigo aqui:

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")

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