da se vytvořit jednoduchá funkce:
Function HexToDec(HexValue As String) As Long
HexToDec = Val(„&H“ & HexValue)
End Function

která převede číslo z Hexa do Decimálního formátu.

Verze VB6 Profesional by měla tuto knihovnu obsahovat a zde není nutná licence.

Pro ostní verze VB6 je Licencování následné:

Do registru je nutné zapsat tuto hodnotu:

[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905]@ = "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"

Tím je licence vytvořena a objekt pracuje správně.

MSCOMM32.OCX je knihovna pro ovládání USB a COM portu na PC.

je způsobena uložením prázdné hodnoty do DB do tabulky kde je očekávána hodnota konkretní délky nebo formátu.

např: do pole formátu DATE vkládám hodnotu NULL, nebo String

‘Vyjmutí – Ctrl+X
Private Sub EditCut()
EditCopy
EditDelete
End Sub

‘Kopírování – Ctrl+C
Private Sub EditCopy()
Clipboard.Clear
Clipboard.SetText MSFlexGrid1.Clip
End Sub

‘Vložení Ctrl+V
Private Sub EditPaste()
If Len(Clipboard.GetText) Then MSFlexGrid1.Clip = _
Clipboard.GetText
End Sub

‘Smazat označené Del
Private Sub EditDelete()
Dim i As Integer
Dim j As Integer
Dim strClip As String
With MSFlexGrid1
For i = 1 To .RowSel
For j = 1 To .ColSel
strClip = strClip & „“ & vbTab
Next
strClip = strClip & vbCr
Next
.Clip = strClip
End With
End Sub

‘Vyber vše Ctrl+A
Private Sub EditSelectAll()
With MSFlexGrid1
.Visible = False
.row = 1
.col = 1
.RowSel = .Rows – 1
.ColSel = .Cols – 1
.TopRow = 1
.Visible = True
End With
End Sub

Dim iCisloSouboru As Integer

Dim sText As String

Dim ts As TextStream

Dim iStart As Integer

Dim sFile As String

Dim sCisloSIM As String

Dim vFile

Dim vFolder As Folder

Dim vFile1

iCisloSouboru = FreeFile

sCisloSIM = InputBox(„Vlož číslo sim pro generování historie“, „Generování Historie“, „773400″)

Set vFolder = mdl_objFSO.GetFolder(„e:/logs/odpovidac/zaloha/“)

Set vFile = vFolder.Files

For Each vFile1 In vFile

Set ts = mdl_objFSO.OpenTextFile(vFile1, ForReading)

Do

sText = ts.ReadLine

If InStr(sText, „&REPORT,000003″) Then

Open App.Path & „\Data\“ & sCisloSIM & „.txt“ For Append As #iCisloSouboru

Write #iCisloSouboru, sText

Close #iCisloSouboru

End If

Loop Until ts.AtEndOfStream

ts.Close

Set ts = Nothing

Next

Chybu jsem odstranil postupným odebíráním části projektu jsem objevil chybný ctl.
Jeho odstraněním se problém vyřešil.

Chybu způsobil:
Class DHTMLEDLibCtl.DHTMLEdit

Pravděpodobně změnou konfigurace při aktualizaci prohlížeče IE.

tedy:

Dim Pole()  ‘Projde

ReDim Pole (10,10)  ‘Projde

Redim Pole(10,15)  ‘Projde

ReDim Pole(15,15) ‘Err 9 – Subscript out of range

Řešení je pouze jedno a to:

Erase Pole

ReDim Pole(15,15)

… a znovu naplnění celého pole.

Při použití menšího čísla než je současné dojde ke ztrátě dat!

Redim Pole(14,14) ‘Projde, ale ztratí se data z pozice (15,0) – (15,15) a zaroveň všechny na pozici (x,15)

Objeví se Hláška e Error:

‘ieframe\1′ dll not found

Problém je zde:’ MS Internet Control’ v Project-> Component.

Oprava je nasledující:

1, Otevřít projekt a ignorovat vsechny chyby

2, Odstranit control z formulářů kde se nachází Browser.

3, Uložit projekt

4, Otevřít projekt

5, Odstranit reference Microsoft Internet Control

6, Odstranit Component Microsoft Internet Control

7, Uložit projekt

8, Otevřít projekt

9, Přidat referenci C:\WINDOWS\system32\ieframe.dll

10, Přidat Component Microsoft Internet Control

11, Uložit projekt

12, Otevřít projekt

13, Vložit do formulářů control Browser a nazvatje stejnými jmény jako byly.

14, Uložit a vše by mělo být OK.

Set rs = DataEnvironment1.rsVolnyPrikaz
DataEnvironment1.VolnyPrikaz
With rs
If Not IsNull(.Fields(„ZPRACOVANO“).Value) Then
.Fields(„ZPRACOVANO“).Value = sNull
.Update
End If
End With
…

Na řádku .Update  vždy skončí chybou.
Nelze ani:

Set .Fields(„ZPRACOVANO“).Value = Null

Nebo jsem alespon žádný jiný způsob nenašel.
Pro zápis hodnoty NULL lze ale použít běžný SQL zápis UPDATE:

Set rs = DataEnvironment1.rsVolnyPrikaz
DataEnvironment1.Commands.Item(„VolnyPrikaz“).CommandText = „UPDATE Tabulka SET `ZPRACOVANO` = NULL“
DataEnvironment1.VolnyPrikaz
Set rs2 = Nothing

Takto vše funguje jak má a hodnota Null se zapiše do tabulky databáze bez chyby.
Pokud někdo zná nějaký způsob jak zapsat Null do DB pomocí DataEnvironment – SEM S NÍM

Tato chyba se objeví v případě, že do otevřeného recordsetu ukládáme stejnou hodnotu jaká už v databázi je, a následně tento recordset chceme Updatovat. Sloupec HODNOTA obsahuje znaky „ABCD“ a do stejného sloupce opět vkládám znaky „ABCD“ Procedura skonci popisovanou chybou na červeném řádku při pokusu o rs.Update

Příklad:

sText = „ABCD“
Set rs = DataEnvironment1.rsUloz
DataEnvironment1.Uloz
rs.Fields(„HODNOTA“).Value = sText
rs.Update
rs.Close

Řešení:
Kontrolovat zda vkládaná hodnota není stejná jako již existující záznam v databázi (Stejný výsledek dostaneme i při pokusu o vložení NULL do sloupce který NULL obsahuje).

sText = „ABCD“
Set rs = DataEnvironment1.rsUloz
DataEnvironment1.Uloz
If rs.Fields(„HODNOTA“).Value <> sText Then

rs.Fields(„HODNOTA“).Value = sText
rs.Update

End If
rs.Close

Po této úpravě již procedura proběhne bez uvedené chyby.