Salve a tutti,
programmo in VB già da un pò e per motivi aziendali mi sono "avventurato" nella creazione di un controllo activeX per la consultazione di un DB tramite web.
Conosco l'asp e non ho avuto problemi in passato ma adesso con gli activex ho qualche problemino...
Non riesco a puntare al db access (presente sul server (win2000)) dai pc collegati in rete, perchè il controllo che si autoinstalla sui pc punta al disco locale. Ho usato anche il controllo ADODC senza risultati, ho usato 2 metodi, questo è il codice che ho usato per fare delle prove:
- Metodo 1:
Private Sub UserDocument_Initialize()
If Not Connessione_ADO() Then
MsgBox "CONNESSIONE non riuscita",vbInformation, "L1_web"
Else
MsgBox "CONNESSIONE RIUSCITA", vbInformation, "L1_web"
End If
end sub
Public Function Connessione_ADO()
On Error GoTo gestore_err
Connessione_ADO = True
connDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\L1db.mdb" & ";Persist Security Info=False"
oppure
connDB.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=c:\L1db.mdb"
Exit Function
gestore_err:
MsgBox Error & Err
Connessione_ADO = False
End Function
- Metodo 2:
Utilizzando il controllo ADODC:
Private Sub UserDocument_Initialize()
Dim rstSchema As ADODB.Recordset
Dim StringaCon As String
Set CNN1 = New ADODB.Connection
StringaCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\L1db.mdb" & ";Persist Security Info=False"
strDBLocation = StringaCon
CNN1.Open StringaCon
Adodc1.ConnectionString = StringaCon
Adodc1.RecordSource = "SELECT * FROM Parametri"
Adodc1.Refresh
Do Until Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset!Nome
Adodc1.Recordset.MoveNext
Loop
end sub
Spero che qualcuno mi possa aiutare... Grazie 100000
Rispondi quotando
