Проблема при открытии текстового файла-базы - VB
Формулировка задачи:
открыть файл D;12345678 oday123.log не удается. [Microsoft][ODBC Text Driver] Cann't update. Database or object is read-only.
при этом если переименовать файл в 123.txt он прекрасно откроется. без всяких вопросов. в чем проблема?
Решение задачи: «Проблема при открытии текстового файла-базы»
textual
Листинг программы
Private Sub Command1_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim ap As String Dim sss As String ap = App.Path If Not Right$(ap, 1) = ' ' Then ap = ap + ' ' Set cn = New ADODB.Connection cn.Open 'Driver={Microsoft Text Driver (*.txt; *.csv)};' & 'Dbq=' & ap & ';Extensions=log,txt;' & 'Persist Security Info=False;' Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient Set rs.ActiveConnection = cn If Dir(ap & '123.txt') <> '' Then Kill ap & '123.txt' End If VBA.FileCopy ap & '123.log', ap & '123.txt' sss = '[123.txt]' & vbCrLf & _ 'ColNameHeader = False' & vbCrLf & _ 'Format = TabDelimited' & vbCrLf & _ 'CharacterSet = ANSI' & vbCrLf & _ 'MaxScanRows = 0' Open ap & 'SCHEMA.INI' For Output As #1 Print #1, sss Close #1 'rs.Open 'SELECT * FROM 123.log;', cn, adOpenStatic, adLockReadOnly, adCmdText rs.Open 'SELECT * FROM [123#txt]', , adOpenStatic, adLockReadOnly, adCmdText Set Me.DataGrid1.DataSource = rs End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д