Welkom, Gast. Alsjeblieft inloggen of registreren.
0 leden en 1 gast bekijken dit topic.
Private Sub Command1_Click()Dim adoConnection As ADODB.ConnectionDim adoRecordset As ADODB.RecordsetDim connectString As StringDim sFile As String 'database bestandDim etxt As String 'error tekstDim e As Long 'error statusDim RW As Integer 'regelwijzer igv errorsOn Error GoTo errhandle' Creëer een nieuwe verbindingRW = 0Set adoConnection = New ADODB.Connection' Creëer een nieuwe recordsetSet adoRecordset = New ADODB.Recordset' Bouw onze connection string om te gebruiken wanneer we de verbinding openen.'connectString = "Provider=Microsoft.Jet.OLEDB.4.0;"'& "Data Source=I:\InvestOptimal\beleggen/DATABASE\Portef1.mdb"sFile = "I:\InvestOptimal\beleggen/DATABASE\Portef1.mdb"RW = 10e = Len(Dir(sFile, vbArchive))If e <> 0 Then RW = 20 connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sFile adoConnection.Open connectString adoRecordset.Open "PortefeuilleTab", adoConnection Do Until adoRecordset.EOF List1.AddItem adoRecordset!Name adoRecordset.MoveNext Loop RW = 100 adoRecordset.Close adoConnection.Close Set adoRecordset = Nothing Set adoConnection = NothingElse MsgBox "File error: " & etxt & vbCrLf & sFile, vbCriticalEnd IfExit Sub 'verlaat sub als alles goed is gegaanerrhandle: etxt = Err.Number & " : " & Err.Description If RW = 10 Then 'database bestand controle, verdergaan Else 'een andere fout melden If MsgBox("RW=" & RW & vbCrLf & etxt, vbCritical + vbOKCancel) = vbCancel Then Exit Sub End If Resume NextEnd Sub
Het blijft een kladblok tekstbestand en wordt kennelijk niet als bat-bestand herkend. Wat doe ik fout?