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
|