怎么做一个可以录入图片的数据库

怎么做一个可以录入图片的数据库,第1张

是可以放到数据库里面的,以ACCESS为例子,你要使用OLE数据类型,

然后把转化为长二进制数据存入,读取的时候可以生成系统隐藏的图

片然后在控件中显示

我的回答肯定没错,因为这个东西我做过,如果还不明白可以到我的空间

里留言,然后留下****,我会把代码给你,我使用的是VB,用VB把

放到ACCESS中,然后再读取出来,实际上是个很简单的小程序

最近无事还是贴上来吧

Dim cc() As Byte

Dim i

Dim t

Private Sub Command1_Click()

CommonDialog1Filter = "JPG(BMP)|BMP"

CommonDialog1ShowOpen

If CommonDialog1FileName <> "" Then

Picture1Picture = LoadPicture(CommonDialog1FileName)

strname = CommonDialog1FileName

Open strname For Binary As #1

ReDim cc(LOF(1) - 1)

t = cc(LOF(1) - 1) '在读取二进制时,如果是用文件 *** 作那么涉及到到底从文件中取多少字节的问题,所以字节数组要指定大小

Get #1, , cc

Close

Else

MsgBox "没有选中"

End If

End Sub

Private Sub Command2_Click()

Adodc1Refresh

Adodc1RecordsetAddNew

Adodc1RecordsetFields("id") = i

Adodc1RecordsetFields("qq") = cc

i = i + 1

Adodc1RecordsetUpdate

Adodc1Refresh

End Sub

Private Sub Command3_Click()

Adodc1Refresh

Dim P() As Byte

Adodc1RecordSource = "select qq from 表一 where id='" & Text1Text & "'"

P = Adodc1RecordsetFields("qq") '当把一组二进制数据赋值给一个二进制数组时就不用指定数组的大小了,因为是全部赋值

Open AppPath & "\oobmp" For Binary As #1

Put #1, , P

Close

End Sub

Private Sub Command4_Click()

Open AppPath & "\oobmp" For Binary As #1

Put #1, , cc

Close

End Sub

Private Sub Form_Load()

i = 1

End Sub

我是 Control_World

请设置我为最佳答案吧

若是SQL SERVER数据库

1、启动你的软件

2、启动SQL的事件探查器,开启监视任务

3、运行你软件的某个功能

4、在SQL事件探查器中就能看到该软件到底执行了什么SQL语句

若是其他数据库,就得看该数据库是否提供了类似数据库监测的软件,若是没有,你恐怕只能通过日志来分析了。。。。或者,有的会有第三方监测的软件。

愿你早日成功解决问题

你建立了dreamweaver的站点么?设置了数据库连接么?

只有建立站点,配置数据库连接,建立数据集,最好再安装服务器软件以便测试程序,满足这些条件,dreamweaver的表单就可以提交到access数据库了。

以上就是关于怎么做一个可以录入图片的数据库全部的内容,包括:怎么做一个可以录入图片的数据库、c=0抽样计划表怎么录进SQL数据库里、dreamweaver中单选按钮的信息如何录入access数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/10140485.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-05
下一篇 2023-05-05

发表评论

登录后才能评论

评论列表(0条)

保存