在VB里如何将图片写入到数据库？多谢你的帮助了。救命的了

2002-04-18 02:52:08 132 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

zengjun1980 墨衍会员 · AI 创作全网分发关注 + 加入社区

利用vb实现图片上传 Sub UploadFile(sender As Object, e As EventArgs)If FileUp.PostedFile.ContentLength = 0 ThenFileInfo.Visible = FalseExit SubElseFileInfo.Visible = TrueFDisplay1.Visible = TrueEnd IfFSize.Text ="上传文阅读详情

...全文

vb.net 存取数据库中的图片以MS自带的数据库Northwnd为例,其中有个表是Categories,有四个四段,其中有一个是Image类型的Picture字段.我们首先添加一张bmp图片到最后一行的Picture中,然后在读出来显示到Image控件中. 添加一个SqlDataAdapter1,用向导设置联接数据库为Northwnd,SQL语句为SELECT [Category ID], [C 阅读详情

zengjun1980

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

gump2000 2002-04-18

打赏
举报

AppendChunk 和 GetChunk 方法范例
该范例使用 AppendChunk 和 GetChunk 方法用其他记录中的数据填写图像字段。

Public Sub AppendChunkX()

Dim cnn1 As ADODB.Connection
Dim rstPubInfo As ADODB.Recordset
Dim strCnn As String
Dim strPubID As String
Dim strPRInfo As String
Dim lngOffset As Long
Dim lngLogoSize As Long
Dim varLogo As Variant
Dim varChunk As Variant

Const conChunkSize = 100

' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

' 打开 pub_info 表。
Set rstPubInfo = New ADODB.Recordset
rstPubInfo.CursorType = adOpenKeyset
rstPubInfo.LockType = adLockOptimistic
rstPubInfo.Open "pub_info", cnn1, , , adCmdTable

' 提示复制徽标。
strMsg = "Available logos are : " & vbCr & vbCr
Do While Not rstPubInfo.EOF
strMsg = strMsg & rstPubInfo!pub_id & vbCr & _
Left(rstPubInfo!pr_info, InStr(rstPubInfo!pr_info, ",") - 1) & _
vbCr & vbCr
rstPubInfo.MoveNext
Loop
strMsg = strMsg & "Enter the ID of a logo to copy:"
strPubID = InputBox(strMsg)

' 将徽标大块复制到变量中。
rstPubInfo.Filter = "pub_id = '" & strPubID & "'"
lngLogoSize = rstPubInfo!logo.ActualSize
Do While lngOffset < lngLogoSize
varChunk = rstPubInfo!logo.GetChunk(conChunkSize)
varLogo = varLogo & varChunk
lngOffset = lngOffset + conChunkSize
Loop

' 从用户处得到数据。
strPubID = Trim(InputBox("Enter a new pub ID:"))
strPRInfo = Trim(InputBox("Enter descriptive text:"))

' 添加新记录，大块复制徽标。
rstPubInfo.AddNew
rstPubInfo!pub_id = strPubID
rstPubInfo!pr_info = strPRInfo

lngOffset = 0 ' 重置位移。
Do While lngOffset < lngLogoSize
varChunk = LeftB(RightB(varLogo, lngLogoSize - lngOffset), _
conChunkSize)
rstPubInfo!logo.AppendChunk varChunk
lngOffset = lngOffset + conChunkSize
Loop
rstPubInfo.Update

' 显示新添加的数据。
MsgBox "New record: " & rstPubInfo!pub_id & vbCr & _
"Description: " & rstPubInfo!pr_info & vbCr & _
"Logo size: " & rstPubInfo!logo.ActualSize

' 删除新记录，因为这只是演示。
rstPubInfo.Requery
cnn1.Execute "DELETE FROM pub_info " & _
"WHERE pub_id = '" & strPubID & "'"

rstPubInfo.Close
cnn1.Close

End Sub

lihonggen0 2002-04-18

打赏
举报

《在VB中存取数据库中的图片》

　

　　一、数据库的设计

　　数据库可以采用微软的Access97或者SQL Server来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名 Char型（SQL Server中）文本型（Access中）；编号Char型（SQL Server中）文本型（Access中）；照片image型（SQL Server中）OLE对象（Access中），设计好后存盘。为了可以进行远程调用，我们采用ODBC的方法进行，双击打开控制面板里的ODBC数据源，界面如图1所示：
　　点“系统DSN”选项卡，按“添加”按钮选择对应的数据源驱动程序Access的＊.mdb或者SQL Server，依照添加向导加添加数据源，下面就可以开始程序的编写了。
　　二、程序的编写

　　运行VB，新建一个工程。本程序采用ADO控件和动态链接库访问数据库，需要加入ADO的运行库，单击“工程\引用”菜单，出现引用对话框，选择Microsoft ActiveX Data Objects2.0 Library并确定。
　　添加一个Form，四个Label控件，两个TextBox控件，一个PictureBox控件，一个ADODC控件，三个CommandButton控件，一个CommandDialog控件，如果ADODC和CommandDialog控件没有出现在工具框上，请单击菜单“工程\部件”。点“控件”选项卡，在其中选中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0两项按“确定”按钮。
　　下面是以上各个控件的一些属性：
　　Form1.MaxButton=False
　　Label1.Caption=姓名：
　　Label2.Caption=编号：
　　Label3.Name= ResName
　　Label3.BackColor= ＆H80000009＆
　　Label3.BorderStyle=1－Fixed Single
　　Label3.DataField=姓名
　　Label3.DataSource= AdoCtr
　　Label4.Name= ResNumb
　　Label4.BackColor= ＆H80000009＆
　　Label4.BorderStyle=1－Fixed Single
　　Label4.DataField=编号
　　Label4.DataSource= AdoCtr
　　Text1.Name= Names
　　Text2.Name= Numb
　　CommonDialog1.Name= CDlg
　　Adodc1.Name=AdoCtr
　　CommonButton1.Name=PreView
　　CommonButton1.Caption=预览
　　CommonButton2.Name=Save
　　CommonButton2.Caption=保存
　　CommonButton3.Name= Update
　　CommonButton3.Caption=更新
　　PictureBox1.Name= PicBox
　　PictureBox1.AutoSize=False
　　PictureBox1.AutoRedraw=False
　　PictureBox1.DataField=照片
　　PictureBox1.DataSource=AdpCtr
　　下面是程序代码：
　　′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)
　　Dim Constr As String ′ODBC路径
　　Dim FileName As String ′图片文件名
　　Const BLOCKSIZE = 4096 ′每次读写块的大小

　

gump2000 2002-04-18

打赏
举报

http://www.csdn.net/Expert/TopicView1.asp?id=639194
http://www.csdn.net/Expert/TopicView1.asp?id=623309
http://www.csdn.net/Expert/TopicView1.asp?id=610149

太多了，自己找找吧
方法也很多

gump2000 2002-04-18

打赏
举报

http://www.applevb.com/sourcecode/dbpic.zip
再给您几个网站去看看
www.applevb.com
www.vbgood.com
www.vbeden.com
www.21code.com

gump2000 2002-04-18

打赏
举报

http://www.applevb.com/sourcecode/dbpic.zip

ayuu 2002-04-18

打赏
举报

http://www.china-pub.com/computers/emook/1162/info.htm

你一看就明白了！：-）

gump2000 2002-04-18

打赏
举报

搜索以前的文章吧，太多了

在VB里如何将图片写入到数据库？多谢你的帮助了。救命的了

相关推荐