VB6 mysql二进制读取,请教怎么读取BIN（二进制文件）数据到数据库

模拟代码

注:因为你没有提供帧的具体结构,如帧头占多少字节,帧尾又占多少,所以这个帧结构是我自己猜的,

程序代码：Option Explicit

Public Type 帧结构

帧头 As Integer

帧数据(0 To 15) As Byte

帧尾 As Long

End Type

Public Const 帧头数据 = 2816

Public Const 帧尾数据 = 51

Public Sub 打开文件(filename As String, dat() As 帧结构)

Dim fj As Long

Dim dattmp As 帧结构

Dim i As Long

Dim count As Long

i = FileLen(filename)

count = i / 22 '计算记录总数

ReDim dat(count - 1)

fj = FreeFile()

'以只读固定长度的随机文件打开

Open filename For Random Access Read As #fj Len = 22 '2 + 16 + 4 每帧长度,注意本程序没有校验数据文件是否损坏

For i = 1 To count

Get fj, , dat(i - 1)

Next i

Close fj

End Sub

窗体测试代码

程序代码：Private Sub Command1_Click()

Dim 数据() As 帧结构

Call 打开文件(Text1.Text, 数据())

'下面是显示数据,没有进行数据校验

Dim i As Long

Dim j As Long

Dim k As String

Dim m As String

For i = 0 To UBound(数据)

k = ""

For j = 0 To 15

m = Hex(数据(i).帧数据(j))

If Len(m) = 1 Then m = "0" & m

k = k & m & " "

Next j

List1.AddItem k

Next i

End Sub

读BIN.rar

(2.57 KB)