|
|
Postada em 11/03/2005 08:40 hs
CREATE VIEW MinhaConsulta AS SELECT * FROM Produtos por partes: Create View: Cria a consulta MinhaConsulta: Nome da Consulta(tecnicamente chamada de View) AS: Determina uma Query para a consulta(no caso, Select * from produtos; Podendo ser qualquer Query) |
|
|
|
|
|
|
|
Postada em 11/03/2005 08:41 hs
CREATE VIEW MinhaConsulta AS SELECT * FROM Produtos por partes: Create View: Cria a consulta MinhaConsulta: Nome da Consulta(tecnicamente chamada de View) AS: Determina uma Query para a consulta(no caso, Select * from produtos; Podendo ser qualquer Query) |
|
|
|
|
|
Postada em 11/03/2005 08:42 hs
CREATE VIEW MinhaConsulta AS SELECT * FROM Produtos por partes: Create View: Cria a consulta MinhaConsulta: Nome da Consulta(tecnicamente chamada de View) AS: Determina uma Query para a consulta(no caso, Select * from produtos; Podendo ser qualquer Query) |
|
|
|
|
|
Postada em 11/03/2005 12:47 hs
eu já havia tentado usar esta poioca do create view... dai na hora de executar dava um erro tipo erroo na sintaxe create table ... usava assim set banco = opendatabase...... nome do banco banco.execute "create view ..... select ....." e dava pau... |
|
|
|
|
|
Postada em 11/03/2005 14:29 hs
De facto eu acho que o access não trabalha com creat view pois para o access as views são querys. Bom, eu já tinha indicado antes uma forma de resolver o problema. Fazer uma pesquisa na secção "Dicas". Como pelos vistos não o fez, eu fiz o caminho para si. Retirado da secção "Dicas"-"Biblioetca de acesso a dados": CRIAR UMA QUERY
Sub CreateQuery(strDBPath As String, _
strSQL As String, _
strQryName As String)
' Note: Queries that are created or modified using ADOX aren't visible
' in the Access database window.
Dim catDB As ADOX.Catalog
Dim cmd As ADODB.Command
Set catDB = New ADOX.Catalog
' Open the Catalog object.
catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
Set cmd = New ADODB.Command
' Define a Command object to contain the query's SQL
' statement, and then save it to the database's
' Views collection. strSQL must contain only a
' SELECT statement.
cmd.CommandText = strSQL
catDB.Views.Append strQryName, cmd
Set catDB = Nothing
End Sub
' MODIFICAR UMA QUERY
Sub ModifyQuery(strDBPath As String, _
strQryName As String, _
strSQL As String)
' Note: Queries that are created or modified using ADOX aren't visible
' in the Access database window. For more information, see ADOCreateQueries.doc
' in the Appendixes folder on the companion CD-ROM.
Dim catDB As ADOX.Catalog
Dim cmd As ADODB.Command
Set catDB = New ADOX.Catalog
' Open the Catalog object.
catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
Set cmd = New ADODB.Command
' Get the query from the Procedures collection.
Set cmd = catDB.Procedures(strQryName).Command
' Update the query's SQL statement.
cmd.CommandText = strSQL
'Save the updated query.
Set catDB.Procedures(strQryName).Command = cmd
Set catDB = Nothing
End Sub
E é tudo.
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
|
|
Postada em 11/03/2005 14:59 hs
grande amigo Mateus... eu olhei sim, porém o acesso que estou usando, é em DAO e o exemplo está em ADO... talvez basta modificar algo, mas creio que não seja esta a dificuldade maior... não entendi a funcionalidade da função. Ja testou ela ? obrigado pela ajuda e se puder me conseguir um exemplo pronto com DAO ficaria grato. |
|
|
|
