Dim maConn As ADODB.Connection Dim monRS As ADODB.Recordset Dim sSQL As String On Error GoTo 0 Set maConn = New ADODB.Connection Set monRS = New ADODB.Recordset With maConn .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False" .Open End With sSQL = "Select * From MsysObjects" monRS.Open sSQL, maConn, adOpenStatic, adLockOptimistic With monRS If .RecordCount > 0 Then .MoveFirst Do While Not .EOF Debug.Print .Fields("Name").Value .MoveNext Loop End If End With On Error Resume Next monRS.Close maConn.Close Set monRS = Nothing Set maConn = Nothing
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question