VB utilizza gli stessi oggetti ADODB.Connection ed
ADODB.Recotdset di asp.
La stringa di connessione è leggermente diversa, ma l'utilizzo
degli oggetti è identico.
Nel codice di esempio c'è sia l'apertura della connesione
che una estrazione e un inserimento.
Ovviamente devi sostituire i valori di DataSource e i nomi delle
tabelle e de i campi con quelli del tuo DB.
codice:
' Dichiarazione degli oggetti ADODB
Public cnDatMF As ADODB.Connection
Public rsDatMF As ADODB.Recordset
Public Sub ApriConnessione()
' Apre la connessione
Set cnDatMF = New ADODB.Connection
With cnDatMF
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data source=" & App.Path & "\DB\DataBaseClienti.mdb"
.ConnectionTimeout = 5 'numero dei secondi di timeout
.CursorLocation = adUseClient 'tipo di cursore
.Mode = adModeShareDenyNone 'nessuna limitazione
.Open 'apertura ricordarsi di chiuderla
End With
End Sub
Public Function RicercaCliente(cCliente As String) As ADODB.Recordset
Set rsDat = New ADODB.Recordset
Set RicercaCliente = Nothing
Call ApriConnessione
rsDat.Open "Select * from Cliente Where Cognome Like '" & cCliente & "%'", cnDatMF, 3, 3
If rsDat.RecordCount < 1 Then Exit Function
Set RicercaCliente = rsDat
' Disconnette la connessione
Set rsDat.ActiveConnection = Nothing
' Chiude la connessione
cnDatMF.Close
' Libera la risorsa
Set cnDatMF = nothing
End Function
Public Function SalvaCliente(Cognome as String) As Boolean
Dim sSQL As String
sSQL = "INSERT INTO tblClienti (Cognome) VALUES ('" & Cognome & "')"
Call ApriConnessione
cnDatMF.Execute sSQL
cnDatMF.Close
' Libera la risorsa
Set cnDatMF = nothing
End Sub
Ciao,
Brainjar.