| |
|
|
| | cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\TEMP_ERROR.log;Extended Properties=Text"
===============================================================
путь и файл - всё на месте = может синтаксис?  | |
| |
| |
| |
|
|
| | aaaaaaaaa вот как надо
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "; Extended Properties=Text;"
===========================================================================
теперь другая проблемма
rst1.Open "select * from TEMP_ERROR.log", cn, adOpenStatic, adLockReadOnly, adCmdText
говорит что доступен только для чтения - врёт собака....... | |
| |
| |
| |
|
|
| | не-а
правду говорит
см. на это
adLockReadOnly
и это "не в тему"
adOpenStatic | |
| |
| |
| |
|
|
| | оставил так.........
rst1.Open "Select * from TEMP_ERROR.txt", cn, adCmdText
|
| |
| |
| |
| |
|
|
| | оказывается расширение должно быть тока txt
rst1.Open "Select * from TEMP_ERROR.txt", cn, adOpenStatic, adLockReadOnly, adCmdText | |
| |
| |
| |
|
|
| | ПРИВЕТ ДРЮНЯ!!!!! 
А теперь проблема считывает тока первую строку и в кусты.
А если вручную сформировать файл тогда все строки считывает | |
| |
| |
| |
|
|
| | Запись в файл веду вот так
Public Function FUN_IN_TXT(Path_Name As String, Str As String)
' Ñîçäàíèå ôàéëà è çàïèñü â èìåþùèéñÿ ôàéë
Dim ts
Set ts = fso.OpenTextFile(Path_Name, ForAppending, True) ' åñëè ôàéëà íåò, îí ñîçäà¸òñÿ
ts.Write (Str & vbCrLf) ' ñ íîâîé ñòðîêè
ts.Close
End Function
|
| |
| |
| |
| |
|
|
| |
Public Function FUN_IN_TXT(Path_Name As String, Str As String)
' Создание файла и запись в имеющийся файл
Dim ts
Set ts = fso.OpenTextFile(Path_Name, ForAppending, True) ' если файла нет, он создаётся
ts.Write (Str & vbCrLf) ' с новой строки
ts.Close
End Function
|
| |
| |
| |
| |
|
|
| |
пробовал вот так
Public Function FUN_IN_TXT(p As String, Str As String)
Dim FileNum As Integer
FileNum = FreeFile
Open p For Append As FileNum
Write #FileNum, Str & vbCrLf
Close FileNum
MsgBox Str
End Function
|
та же фигня | |
| |
| |
| |
|
|
| | ниче не понял
тебе писать или читать ?
---
и вообще, спать пора уже... | |
| |
| |
| |
|
|
| | Спок ночи.
Эт я показал как пишу в файл - модет тут ошибка.......... | |
| |
| |
| |
|
|
| | Читаю так:
Public Function FUN_TEMP_ERROR_FRM_OPEN()
' Заполнение на форме - выявленых ошибок
Dim LV As Object
Dim cn As New ADODB.Connection, rst1 As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & ";Extended Properties=Text"
rst1.Open "Select * from TEMP_ERROR.txt", cn, adCmdText
' rs.Open "select * from TextFile.txt", cn, adOpenStatic, adLockReadOnly, adCmdText
If rst1.BOF Then
Call FUN_IN_LOG("Автотестирование - успешно.")
GLB_String_Mesage = "Автотестирование - успешно."
GLB_IND_Mesage.BackColor = &H80FFFF ' жёлтый
Exit Function
End If
Load FRM_TEMP_ERROR
'((COMODITY_TBL.COMMODITY_NAME) Like '%" & COMMODITY_NAME & "%')
Set LV = FRM_TEMP_ERROR.LV
LV.ColumnHeaders.Add , , "Наименование ошибки.", 8000, lvwColumnLeft
LV.View = lvwReport
' рисуем линии
Call SendMessageLong(LV.hwnd, &H1000 + 54, 0&, 33)
' Set mItem = FRM_TEMP_ERROR.LV.ListItems.Add()
If Not rst1.BOF Then rst1.MoveFirst
Do While Not rst1.EOF ' заполняем наименованиями список товаров
Set mItem = FRM_TEMP_ERROR.LV.ListItems.Add()
' If IsNull(rst!COMMODITY_NAME) = False Then
mItem.Text = rst1(0)
' mItem.SubItems(1) = rst1!Methodi
' End If
rst1.MoveNext
Loop
FRM_TEMP_ERROR.Show vbModal
rst1.Close
Set rst1 = Nothing
Set LV = Nothing
End Function
|
| |
| |
| |
