Módulo 14 - Progresso da aplicação

Conceição Maroco / Rui Inácio 1

Conceição Maroco / Rui Inácio 2

Formulário

Sub Form_Load()

End Sub

Aplicação VB

ConnectionRecordSet

Base de dados

Como manter a ligação activa durante a execução do formulário?

Como manter os dados (registos) disponíveis na durante a execução da aplicação?

Conceição Maroco / Rui Inácio 3

Conceição Maroco / Rui Inácio 4

Formulário

Aplicação VB

ConnectionRecordSet

Base de dados

Sub Form_Load()

End Sub

Sub cmd1_Click()

End Sub

Como evitar a criação/eliminação de múltiplas ligações?

Que estratégias para evitar a duplicação de código?

Conceição Maroco / Rui Inácio 5

Conceição Maroco / Rui Inácio 6

Aplicação VB

Base de dados

Module 1

ConnectionRecordSet

Form 1

Form 2

Form 3

Form 4

Public Sub abrirBD()

Set ligacaoBD = New ADODB.Connection

ligacaoBD.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=C:\Users\Staples\Documents\Associacao.mdb"

'Abrir a ligação

ligacaoBD.Open

End Sub

Conceição Maroco / Rui Inácio 7

Public Sub fechaBD()

ligacaoBD.Close

End Sub

Conceição Maroco / Rui Inácio 8

Public Function daTabela(nomeTabela As String) As

ADODB.Recordset

Dim rec As ADODB.Recordset

Set rec = New ADODB.Recordset

rec.Open "SELECT * FROM " + nomeTabela, ligacaoBD,

adOpenDynamic, adLockOptimistic

Set daTabela = rec

End Function

Conceição Maroco / Rui Inácio 9

Conceição Maroco / Rui Inácio 10

Formulário Principal

Pagamentos

Valor Quotas

Associados