1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Visual Basic - Visualizar uma Base De Dados

Discussão em 'Programação' iniciada por U_Q, 3 de Abril de 2007. (Respostas: 2; Visualizações: 971)

  1. U_Q

    U_Q Power Member

    Boas!!
    Tou a fazer um trab em Visual Basic 6.0 e que utiliza uma base de dados criada em Access. Utilizo DAO pa fazer a ligação à BD.

    Exemplo de código:
    fBD = path
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(fBD, , ReadOnly = False)

    sql = "SELECT * FROM exp"
    Set rs = db.OpenRecordset(sql)

    rs.MoveFirst

    Do While Not rs.EOF

    sql = "UPDATE exp SET Valor=14 WHERE Produto='maca'"
    db.Execute sql

    rs.MoveNext
    Loop

    rs.Close
    db.Close


    Isto está a funcionar correctamente, mas o que eu gostava de saber era como é que podia ver uma tabela (por exemplo, a tabela de produtos) através do VB. Tipo, carrego num botão e ele mostra me um form com uma tabela.

    Cumprimentos e brigdão pela ajuda.

    Hasta!!!
     
  2. Private Sub Odracir()
    Dim r As Recordset
    Set r = New Recordset
    Dim strsql As String
    strsql = "SELECT * From Leitores "
    r.Open strsql, conect
    ListView1.ListItems.Clear
    Do Until r.EOF
    ListView1.ListItems.Add , , r.Fields("chave-da-base-de-dados").Value
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(1) = r.Fields("campo-da-bd").Value & ""
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(2) = r.Fields("campo-da-bd").Value & ""
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(3) = r.Fields("campo-da-bd").Value & ""
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(4) = r.Fields("campo-da-bd").Value & ""
    ListView1.ListItems.Item(ListView1.ListItems.Count).SubItems(5) = r.Fields("campo-da-bd).Value & ""
    r.MoveNext
    Loop
    Set r = Nothing
    End Sub



    e num modulo:

    Public conect As ADODB.Connection


    E claro... tens de por os respectivos campos <<<SubItems(2)>>> na tabela... neste caso como o SubItems(2) corresponde ao valor do "nome" (ex)... na tabela metes nome... :D
     
  3. U_Q

    U_Q Power Member

    Brigadao.... ja fikou bem melhor o trabalho...:p
     

Partilhar esta Página