DAO PARA ADO

ADENILSONLUSTOS 03/10/2014 16:58:33
#441690
Olá, povo
tentei usar alguns exemplos que encontrei no fórum, mas como conheço pouco de ADO não obtive sucesso;
seguinte, em DAO faço assim:

Dim db As Database, rs As Recordset
Dim db2 As Database, rs2 As Recordset

Set db = OpenDatabase([Ô]C:\banco.mdb[Ô], False, False, [Ô];PWD=senha[Ô])
Set rs = db.OpenRecordset([Ô]select * from tabela where x = [ô][Ô] + y + [Ô][ô][Ô])

Set db2 = OpenDatabase([Ô]C:\banco2.mdb[Ô], False, False, [Ô];PWD=senha[Ô])
Set rs2 = db2.OpenRecordset([Ô]select * from tabela2[Ô])

While Not rs.EOF
rs2.AddNew
rs2([Ô]Campo1[Ô]) = rs([Ô]Campo1[Ô])
rs2([Ô]Campo2[Ô]) = rs([Ô]Campo2[Ô])
rs2([Ô]Campo3[Ô]) = rs([Ô]Campo3[Ô])
rs2.Update
Wend

rs.close
rs2.close
db.close
db2.close

Como fazer a mesma coisa com ADO???

grato desde já
MARCELO.TREZE 03/10/2014 17:45:59
#441693 Resposta escolhida
vá em project/references, e marque [Ô]Microsoft ActiveX Data Object 2.8 library[Ô] depois a conexão, eu faço ela em um módulo assim fica mais fácil veja

Global conexao As New ADODB.Connection

Public Function Conecta(ByVal Valor As Boolean)
 If conexao.State = 1 Then
 conexao.Close
 Set conexao = Nothing
 Valor = True
 End If
If Valor = True Then
 conexao.Open [Ô]provider=microsoft.jet.oledb.4.0; data source=[Ô] & App.Path & [Ô]\banco.mdb;jet OLEDB:System Database=system.mdw;pwd=senha;[Ô]
Else
 conexao.Close
 Set conexao = Nothing
 End If
End Function


feito a conexao no modulo você pro form

no load do form ou quando for fazer a consulta:

[txt-color=#007100][ô]Voce se Conecta[/txt-color]
Conecta True
[txt-color=#007100][ô]declara um recordset[/txt-color]
Dim RS As Recordset
[txt-color=#007100][ô] e faz a consulta ou alteração usando query[/txt-color]
sSQL = [Ô]INSERT INTO tabela2 (campo1,campo2,campo3) VALUES (SELECT campo1,campo2,campo3 FROM tabela WHERE x = [ô][Ô] + y + [Ô][ô][Ô])[Ô]
Conexao.Execute sSQL
Set RS = Nothnig
RS.Close
[txt-color=#007100][ô] ai voce se desconecta[/txt-color]
Conecta False


veja se funciona
OMAR2011 03/10/2014 17:47:59
#441694
Marcelo, deixa o cabra pesquisar.
A hora que ele estiver para bater no pc,
ai; tome-lhe código.
EPISCOPAL 03/10/2014 20:38:31
#441695
Citação:

Marcelo, deixa o cabra pesquisar.
A hora que ele estiver para bater no pc,
ai; tome-lhe código.



Se voce não quer responder, não iniba os outros fazer isso.

Por mais que a pergunta seja burra, existe resposta a altura, ...
OMAR2011 03/10/2014 21:18:59
#441696
A questão não é essa WOLFFIRE.
Faz parte da regra do site.
Pesquise antes de perguntar.
Crud Ado é o que mais tem na net.
Você vai deixar o cabra preguiçoso de achar tudo na mão.
Não acredito que tu é menininho querido da mamãe.
ADENILSONLUSTOS 03/10/2014 22:14:18
#441698
Boa noite, senhores
MARCELO-TREZE, gostaria de agradecer por sua resposta, que ajudou muito, como eu disse, entendo pouco de ADO, e lamento se causei algum constrangimento devido ao comentário que foi lhe direcionado.
WOLFFIRE, agradeço a contribuição que realmente ajudará aqueles que tem dificuldade ou pouca experiência ou começando agora, a continuar por aqui; me desculpo com você também se causei constrangimento com o comentário que foi direcionado a sua pessoa.
OMAR2011, estou por aqui desde 2004 e nunca havia passado por uma situação assim, e como acho que não devemos polemizar vamos encerrar por aqui sem comentar seus comentários.
Tópico encerrado , respostas não são mais permitidas
Voltar