主题：[求助]

 直接查询插入就好

Dim conn As New data.Oledb.OleDbConnection(Connections("数据库").ConnectionString)
conn.open()
Dim adoCmd As New Data.OleDB.OleDbCommand("Select  学期,班级,学生编号,学生姓名, 照片  fr om 学生基本信息", conn)

Dim reader As object = adoCmd.ExecuteReader()

Do While reader.Read()
    'output.show(reader(0))
    'output.show(reader(1))
    If reader(4).Gettype.Name <> "DBNull" Then
        Dim imageByte() As Byte = reader(4)    '查询数据,并存入字节数组
        Dim ImageString As String = BitConverter.ToString(imageByte).Replace("-", "")
        output.show("Insert into 表名 (列名) values (0x" + ImageString + ")"  )
    End If
Loop
conn.Close