重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim curSqlstr As String = "INSERT INTO Picture(picture_id, picture_area)" _
创新互联公司专业为企业提供临县网站建设、临县做网站、临县网站设计、临县网站制作等企业网站建设、网页设计与制作、临县企业网站模板建站服务,十载临县做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
"VALUES('" (i + 1).ToString() "','@picture_area ')"
你看这句中的,'@picture_area ')",多个单引号了,被当成VARCHAR处理了.去了单引号才是变量.
图片数据其实就是一组二进制数据。你要存到csv中应该是字符串格式。很少见这样的存储方式。你可以把数据存储在数据库中的呀。存取图片就很好搞了
假如b窗体是form2,在a窗体中调用B窗体,直接dim frm as new form2,然后frm.show()就OK
Public Sub Combo1_Click()
Dim adoCnn As ADODB.Connection
Dim rstOra As ADODB.Recordset
Dim intI As Integer
Set adoCnn = New ADODB.Connection
Set rstOra = New ADODB.Recordset
adoCnn.ConnectionString = "Provider=OraOLEDB.Oracle;User ID=dzjc;password=zlkj;Data Source=dzjc_2005;" '读blob字段要用Provider=OraOLEDB.Oracle
adoCnn.CursorLocation = adUseClient
adoCnn.Open
rstOra.CursorLocation = adUseClient
rstOra.ActiveConnection = adoCnn
rstOra.Open "SELECT zp FROM dzjc.dzjc_wfzp WHERE xh = '5'"
'Set Image1.DataSource = rstOra
Set Image1.Picture = PictureFromByteStream(rstOra.Fields("zp").Value)
End Sub