Olá amigos...

 

Como faço para criar uma Query usando ADO

Faço isso com DAO:

Set bd = DBEngine.OpenDatabase(...banco.mdb)
Set Qd = bd.QueryDefs("ConsForm")
Qd.SQL = "SELECT ConForm.* From ConForm WHERE ConForm.Título Like ""Inf Gerais"""
Qd.Close

 

...E no ADO como faço?

Preciso que a consulta fique registrada no banco

Muito obrigado por qualquer ajuda

 

Dim Cnn as ADODB.Connection

Dim RS as ADODB.Recordset

 

.

.

.

Rs.Open "SELECT ConForm.* From ConForm WHERE ConForm.Título Like 'Inf Gerais%'",Cnn

 

Ou

 

Set RS = Cnn.Execute("SELECT ConForm.* From ConForm WHERE ConForm.Título Like 'Inf Gerais%'")

t+

Olá,

 

Você terá que usar a extensão da ADO chamada de ADOX. Procure por Microsoft ADO Ext 2.8 for DDL And Secutity no item References do menu Project.

Aqui vai um exemplo de como fazer:

    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=D:Meus ProgramasPWR MissionBancopwrEstoque.mdb;"
   
    Set Consultas = New ADOX.Catalog
    Set Consultas.ActiveConnection = Conexao
   
    Set Comando = New ADODB.Command
    Comando.CommandText = "Select * From Produto"
   
    Consultas.Views.Append "Teste", Comando
    Consultas.Views.Refresh
   
    Set Comando = Nothing
    Set Consultas = Nothing
    Set Conexao = Nothing

 

Um abraço,

Sandro.

Blz... funcionou...

mas o código acima cria a consulta e como faço apenas para altera-la?

 

Desculpe a ignorância é que estou migrando do DAO pro ADO e estou apanhando um pouco

 

muito obrigado pela atenção e ajuda

Olá,

 

Você pode  fazer da mesma forma. Sendo que primeiro deve capturar o objeto Command da consulta, depois exclua a mesma e inclua novamente alterada.

 

um abraço,

Sandro.

Aí é que está . como faço para excluir essa consulta?

 

Abraços...