Postada em 31/07/2006 13:08 hs
Criando uma consulta (query / view):
Dim Conexao As adodb.Connection
Set Conexao = New adodb.Connection
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD.mdb;"
Conexao.Execute "CREATE VIEW ConsultaTeste AS SELECT * FROM Tabela1 Where Título Like "'" & Text1.Text & "'"
Set Conexao = Nothing
Excluindo uma consulta (query / view):
Dim Conexao As adodb.Connection
Set Conexao = New adodb.Connection
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD.mdb;"
Conexao.Execute "DROP VIEW ConsultaTeste"
Set Conexao = Nothing
|
