以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89279)
--  作者：9602084
--  发布时间：2016/8/18 14:43:00
--  [求助]
两个外部表各有一个二进制列，在两个表都没加载的情况下，如何将一个表的二进制列数据写入另一个表的二进制列？
--  作者：大红袍
--  发布时间：2016/8/18 15:40:00
--  

 直接查询插入就好

 

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