ADO GRID

GESSINGER 14/03/2010 21:16:57
#336947
como vc disse seu eu vou usar um determinado codigo em varios forms em Coloco no Mudulo.
mas para eu trabalhar com [ô]rs[ô] rs.algumObjeto
tenho q fazer isso em todos dos forms:
dim rs as new adodb.recordset, pors eu digitei rs. em outro form e não apareceu nada depois do
.
(ponto)

outra duvida, tenho 2 form 1 e 2 no segundo quero carregar um datagrid, no primeiro tatudo fucinando até usei o modulo q o ROBIU me passou.

no segundo segundo form tenho esse codigo:

<General>
Dim rs As New ADODB.Connection
------------------------------------------------
Private Sub Form_Load()

Set Grid.DataSource = rs [ô]Preenchendo Grid com Ado

End Sub


e da o seguinte erro
Run-time erro 13
Type mismatch ..........................................alguem pode me ajudar ?

ERIVELTONVGA 14/03/2010 21:44:16
#336948
BOA NOITE.
No projeto anterior tinha te mandado o seu projeto com as alteracoes voce viu ele? estou te mandando de novo.

espero ter ajudado
GESSINGER 15/03/2010 12:32:24
#337001
sim so que vc fez com Adodc1, com ele eu sei fazer...Obrigado
preciso q seja com Ado (codigo)

alguem pode ajudar ?
ERIVELTONVGA 15/03/2010 12:43:19
#337002
boa tarde Gessinger
aí pra mim ja complica mas da uma olhada neste topico da VBWEB

http://www.vbweb.com.br/forum_resp.asp?Codigo=232057&PaginaResp=

talvez te ajude a esclarecer melhor seu problema.

espero ter ajudado.
DANIKULL 15/03/2010 13:09:52
#337003
GESSINGER, boa tarde.

Deixa eu ver se entendi. Você quer se conectar com o Banco de Dados em Modo Desvinculado, sem do objeto ADODC???
DANIKULL 15/03/2010 13:36:13
#337006
Citação:

:
sim so que vc fez com Adodc1, com ele eu sei fazer...Obrigado
preciso q seja com Ado (codigo)

alguem pode ajudar ?



Boa tarde.

Segue seu projeto alterado. Veja se é isto que você quer.

Eu aconselharia você a mudar seu grid para o MSHFlexGrid, fica mais profissional a aplicação.

Dúvidas Poste novamente.

OK.
ROBIU 15/03/2010 16:15:38
#337026
Resposta escolhida
Errado:
Citação:

Dim rs As New ADODB.Connection


Correto:
Dim Rs As New ADODB.Recordset

Em um módulo:
Public Rs As New ADODB.Recordset


Agora você já pode usar um rs aberto em um form no outro form. Veja o exemplo anexo.

Quanto a outra dúvida, vamos esclarecer o seguinte:
Pesquisa: Você vai para o registro pesquisado e os outros registros continuam visíveis na grid.
Filtro: Só mostra os registros do critério do filtro.

Eu fiquei na dúvida se você queria Pesquisa ou filtro, então montei os dois códigos para você.

Tópico encerrado , respostas não são mais permitidas