TREEVIEW ESPECIAL

USUARIO.EXCLUIDOS 09/06/2004 16:38:40
#29029
é o seguinte: Tenho dois treeviews ,um com nomes de consultas e outro que recebera as consultas que eu selecionar no primeiro.O meu problema é que preciso pegar todas consultas selecionadas que estao no segundo treeview e deleta-las no banco de dados.
Nao consigo fazer isso.
Se puderem me ajudar :)
USUARIO.EXCLUIDOS 14/06/2004 10:37:03
#29485 Resposta escolhida
Ei te enviei uma apostila, se lembra?

Ali tem tudo o uqe tu quer
USUARIO.EXCLUIDOS 14/06/2004 10:42:26
#29487
Tambem não conheço, apenas o ADOX
USUARIO.EXCLUIDOS 14/06/2004 10:52:05
#29499
Usnado DAO até dá.

Mas qual o banco que você está usando?
USUARIO.EXCLUIDOS 14/06/2004 10:59:18
#29506
Eu queria saber o nome do banco, tipo Access, Sql Server ....
USUARIO.EXCLUIDOS 14/06/2004 11:08:36
#29511
Então pode usar DAO
USUARIO.EXCLUIDOS 14/06/2004 11:28:53
#29518
O que você quer

Exibir em uma treeview as consultas do banco e exibir nos nós os campos da consulta?
USUARIO.EXCLUIDOS 15/06/2004 10:40:32
#29683
Fiz dois exemplos com ADO e DAO



Sub DAOCreateQuery()
    Dim db As DAO.Database
    Dim qry As DAO.QueryDef
    'Abre o banco
    Set db = DBEngine.OpenDatabase("C:
wind.mdb")
    'Cria a consulta
    Set qry = db.CreateQueryDef("AllCategories", _
    "SELECT * FROM Categories")
    db.Close
End Sub
Sub ADOCreateQuery()
    Dim cat As New ADOX.Catalog
    Dim cmd As New ADODB.Command
    'Abre o catalogo
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:
wind.mdb;"
    'Cria a consulta
    cmd.CommandText = "Select * FROM Categories"
    cat.Views.Append "AllCategories", cmd
    Set cat = Nothing
End Sub
Sub DAODeleteQuery()
    Dim db As DAO.Database
    Dim qry As DAO.QueryDef
    'Abre o banco
    Set db = DBEngine.OpenDatabase("C:
wind.mdb")
    'Exclui a consulta
    db.QueryDefs.Delete "AllCategories"
    db.Close
End Sub
Sub ADODeleteQuery()
    Dim cat As New ADOX.Catalog
    Dim cmd As New ADODB.Command
    'Abre o catalogo
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:
wind.mdb;"
    'Exclui a consulta
    cat.Views.Delete "AllCategories"
    Set cat = Nothing
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar