Exemplos práticos de Querys em ADO


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Exemplos práticos de Querys em ADO

ED - Clarett
não registrado

Postada em 26/07/2006 15:30 hs

Olá pessoal...

. me ajudem nessa e consequentemente este post poderá ficar interessante a muitas pessoas.

ESTOU MIGRANDO DE "DAO" PARA "ADO"

..............

'CRIANDO UMA CONSULTA

Dim Conexao As adodb.Connection
Dim Consultas As ADOX.Catalog
Dim Comando As adodb.Command

Set Conexao = New adodb.Connection
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD.mdb;"
Set Consultas = New ADOX.Catalog
Set Consultas.ActiveConnection = Conexao

Set Comando = New adodb.Command
Comando.CommandText = "SELECT Tabela1.* FROM Tabela1 Where Título Like """ & Text1.Text & """;"
Consultas.Views.Append "ConsultaTeste", Comando
Consultas.Views.Refresh

Set Comando = Nothing
Set Consultas = Nothing
Set Conexao = Nothing
.......................................

'MODIFICANDO O FILTRO DA CONSULTA ACIMA - conforme seleção no Text1.Text

Não sei...

....................................

'Excluindo do BD A CONSULTA("ConsultaTeste") CRIADA ACIMA

Também não sei

..............................

Muito obrigado por me ajudarem e é claro a muitos outros...

...um grande abraço a todos

kerplunk

SÃO PAULO
SP - BRASIL

Postada em 27/07/2006 11:31 hs

Primeiro vc está fazendo do modo mais difícil, olha só como é simples fazer uma consulta:
Dim Conexao As adodb.Connection
Dim Rs as new adodb.recordset
set Conexao = new Adodb.Connection
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD.mdb;"
set Rs = New Adodb.Recordset
rs.open "SELECT Tabela1.* FROM Tabela1 Where Título Like """ & Text1.Text & """, Conexao

E pronto!
Rs (sigla de recordset) vai conter a seleção que vc fez, sem precisar criar nenhum objeto dentro do banco, no seu caso, seria criada uma view. Com o tempo de uso o banco poderia ficar extremamente saturada de views descecessárias.

ED - Clarett
não registrado

Postada em 27/07/2006 13:22 hs

Se eu não criar nenhum objeto Consulta dentro do banco então como farei para que o meu Relatório no Crystal seja Criado ou que ele reconheça o filtro que o usuario queira?

Eu crio uma consulta e ele fica sempre lá, e ela se altera diante das necessidades do usuario

ED - Clarett
não registrado

Postada em 28/07/2006 15:15 hs

Alguem aí me ajudaaa, help.........

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 28/07/2006 16:28 hs

RS.ActiveConnection = ConexaoADO

RS.Open "Select * from Tabela"

RS.Filter = "Nome Like 'J%'"

Aí vc está filtrando sua consulta.

Para voltar ao q era:

RS.Filter = 0

RS.Requery

ED - Clarett
não registrado

Postada em 28/07/2006 17:35 hs

Pessoal, muito obrigado pelo vossa atenção, mas acho que sou mais burro do que penso ou então estou falando de forma que ninguem entende...

vamos lá de novo.

Tenho uma consulta de Nome("ConsultaTeste")

Quero abrir essa consulta de Nome("ConsultaTeste") para fazer um filtro qualquer e deixar esse ultimo filtro gravado lá, entenderam - É COMO O 1º EXEMPLO QUE DEI ACIMA EM DAO.

Eu sei como se filtra, só preciso saber como faço em ADO a mesma coisa que fazia em DAO - como o 1º exemplo que dei acima.

Desculpe a insistencia e me perdoem a ignorância. muito obrigado a todos...abraços...

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR