Postada em 30/07/2006 23:40 hs
Use o comando Sql "CREATE VIEW", usando seu primeiro exemplo ficaria assim:
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
|
