E’ possibile selezionare la procedura dal menu’ Impostazioni.

Questa procedura permette di gestire le coordinate bancarie.

I dati vengono prelevati direttamente dalla tabella BANCHE memorizzata nel database di magazzino.

Le impostazioni per il collegamento del controllo ADODC risiedono in FORM_LOAD.

datPrimaryRS.CommandType = adCmdText

datPrimaryRS.ConnectionString = VpathCon

datPrimaryRS.RecordSource = "select * from Banche"

datPrimaryRS.Refresh

Nota

VpathCON = connessione del magazzino

Per codice ABI e CAB

Per codice ABI

Per codice CAB

Per istituto, con possibilità di ricerca parziale con il carattere jolly *

Per città, con possibilità di ricerca parziale con il carattere jolly *

Non è possibile la ricerca incrociata tra i campi eccetto per codice ABI e CAB.

Per avere in linea tutti i record cliccare sul pulsante Rivisualizza

Per ordinare fare click sulla testata dei campi ABI, CAB, Istituto, città

Nome: BANCHE

Campi:

CodBanca text 10 Key

ABI " 5

CAB " 5

Istituto " 60

Indirizzo …" 50

Città …" 50

Il campo CodBanca viene compilato automaticamente al caricamento dei codici ABI + CAB.

Cliccando su di esso viene richiesto d’imputare il percorso e il nome del file. Il nome della tabella di prova è ABI situata in G:\SERGIO.

I record nella tabella d’importazione sono composti dai seguenti campi:

ABI text 5

CAB text 5

Istituto text 60

Indirizzo text 50

Citta text 50

La modalità d’apertura del file è RANDOM.

Prima dell’importazione, tutti i record presenti nella tabella vengono cancellati. L’ operatove viene avvisato.

Di seguito il codice relativo all’importazione:

I pulsanti NUOVO, REGISTRA; ELIMINA possono essere usati in alternativa con i comandi della TDBgrid versione 7

Dichiarazione del tipo in impostazioni generali.

Option Explicit

Private Type Struttura

ABI As String * 5

CAB As String * 5

Istituto As String * 60

Indirizzo As String * 50

Citta As String * 50

End Type

'-------------------------------------------------------------

' Descrizione : importa file ABI

' Versione : 1.0

' Data : 25/01/2001

' Autore : Sergio Zaratin

' Analista : Sergio Zaratin

'-------------------------------------------------------------

Dim strNomeFile As String

strNomeFile = Trim(InputBox("Imputare il percorso e il nome del file da importare: "))

If strNomeFile <> "" Then

Importa (strNomeFile)

End If

End Sub

Sub per l’importazione.

'------------------------------------------------------

' Descrizione : importa file ABI

' Versione : 1.0

' Data : 25/01/2001

' Autore : Sergio Zaratin

' Analisi : Sergio Zaratin

'------------------------------------------------------

Dim RecordDaLeggere As Struttura Struttura tipo utente

Dim intDimensioneRecord As Integer Dimensione record

Dim lngCont As Long Contatore record

Dim intCanale As Integer Canale

Dim lngCicli As Long Numero records

Dim intC As Integer

Dim adoRec As ADODB.Recordset

On Error GoTo ErImpoBanca

Set adoRec = New ADODB.Recordset

If MsgBox("L'importazione cancella i record presenti in tabella. Continuo?", vbYesNo + vbQuestion, "Istituti bancari") <> vbYes Then

Exit Sub

End If

Db.Execute "DELETE * from Banche" Cancella i dati nella tabella

adoRec.Open "Banche", Db, adOpenDynamic, adLockOptimistic, adCmdTable

intDimensioneRecord = Len(RecordDaLeggere) Dal tipo utente risale alla lunghezza del records

intCanale = FreeFile

lngCicli = FileLen(strNomeFile) / intDimensioneRecord

Open strNomeFile For Random As #intCanale Len = intDimensioneRecord

For lngCont = 1 To lngCicli

Get #intCanale, lngCont, RecordDaLeggere Legge il record come da sruttura

With RecordDaLeggere Carica i record dalla tabella

adoRec.AddNew

adoRec.Fields(0) = .ABI & .CAB

adoRec.Fields(1) = .ABI

adoRec.Fields(2) = .CAB & ""

adoRec.Fields(3) = .Istituto & ""

adoRec.Fields(4) = .Indirizzo & ""

adoRec.Fields(5) = .Citta & ""

adoRec.Update

End With

Next lngCont

Close intCanale Chiude il canale

Adorec.close Chiude il recordset ADODB

Set adorec = nothing

Exit Sub

ErImpoBanca:

MsgBox Err.Description

End Sub

Alla forms è stato aggiunto il pulsante ELIMINA TABELLA. Tale pulsante abilita la cancellazione di tutti i dati memorizzati. Logicamente prima di eseguire qualunque eliminazione viene richiesta conferma a mezzo di un MSGBOX.

E’ stato introdotto il controllo sulla duplicazione della chiave CODBANCA, nel evento BeforecolUpdate il comando TDBGRID.REBIND. Nel evento WillChangeRecord il codice seguente

Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

'----------------------------------------------------------

' DEscrizione : cancella l'evento causato dal codice già

' esistente

' Versione : 1.0

' Data : 25/01/2001

' Autore : Sergio Zaratin

' Analista : Sergio Zaratin

'----------------------------------------------------------

Dim bCancel As Boolean

Select Case adReason

Case adRsnAddNew

Case adRsnClose

Case adRsnDelete

Case adRsnFirstChange

Case adRsnMove

Case adRsnRequery

Case adRsnResynch

Case adRsnUndoAddNew

bCancel = True

Case adRsnUndoDelete

Case adRsnUndoUpdate

Case adRsnUpdate

End Select

If bCancel Then adStatus = adStatusCancel

End Sub