Visual Basic 6 - pass a db

Forum - Visual Basic 6 - pass a db

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 12:59
Venerdì, 09/03/2007

Ho provato ad aprire un db con pass utilizzando dao

Dim ws As Workspace, db As Database
DBEngine.SystemDB = App.Path & "\gdl.MDW" ' il nome del file del gruppo di lavoro
Set ws = DBEngine.CreateWorkspace(sessione, utente, passwd)
Set db = ws.OpenDatabase(App.Path & "\db1.mdb")

cambiando libreria da DOA a ADO non so dove caricare il file di gruppo di lavoro (non c'è l'oggetto DBEngine)

Dim cnPrinc As Connection
Set cnPrinc = New ADODB.Connection
cnPrinc.CursorLocation = adUseServer
cnPrinc.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db1.mdb"

Penso che il file di gruppo di lavoro si debba mettere nella stringa di connessione ma non so dove.

Help me!!!!!!!

adalberto (Normal User)
Newbie

Messaggi: 2
Iscritto: 12/03/2007

Postato alle 13:53
Lunedì, 12/03/2007

CIAO, il comando corretto è il seguente:
' Dichiaro le variabili

Public strPw as String
Public strConn As String
Public rstRecord As ADODB.Recordset
Public Connessione As New ADODB.Connection

' Impostazione della connessione al Database.
Connessione.CursorLocation = adUseClient
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =c:\miodb.mdb;Jet OLEDB:" & _
"Database Password=" & strPw
' Apro la connessione.
Set Connessione = New ADODB.Connection
Connessione.Open strConn

' Apro la tabella
' Comando SQL per l'apertura della tabella.
Set rstRecord= New ADODB.Recordset
rstRecord.CursorLocation = adUseClient
rstRecord.CursorType = adOpenStatic
rstRecord.LockType = adLockOptimistic
rstRecord.Open miatabella, Connessione), , , 1

Quando la tabella non ti serve più la devi chiudere

rstrecord.close
Set rstrecord=Nothing

Questo è il comando per chiudere la connessione

connessione.close
set connessione=Nothing

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 21:47
Lunedì, 12/03/2007

Grazie!!!!
Sei un grande!!!! :k: