VB如何拍照后自动将图片保存到数据库

发布网友发布时间：2023-03-24 09:51

共1个回答

热心网友时间：2023-10-16 20:36

（1）你需要把Command1_Click里面的代码单独提出来写成一个过程(或者函数)，类似于这样的形式：
Private Sub SavePicToDB(ByVal PicFilename as String)
'这里面是你的代码，直接复制进来
'需要稍做修改，把"C:\aa.JPG" 改为 PicFileName
End Sub

（2）然后在cmdStartPhoto_Click方法中，先加两句：
Dim picFileName as String
picFileName = App.Path & "DataBase/PIctures" XXXXXXXXXXXXXXXXXXX '这里我不写全了，你自己复制你那一长串代码

SavePicture XXXXXXXX的行改为：
SavePicture picPhoto.Picture picFileName
并且在下一行加一句：
SavePicToDB(PicFilename)追问在（1）里面的这个SavePicToDB对应的用不用添加什么控件模块还是直接写代码就行呢？然后我那个MySQL定义连接语句的问题能否劳烦大神也帮我回答一下呢？

追答上面的修改方案，前提条件是：你的那两段代码都能够独立正常工作。

那个SavePicToDB是我临时起的一个过程名字而已，不需要任何的控件，直接写代码就可以了。

连接字符串用MySQL还是MySQL ODBC 3.51 Driver，取决于你安装的MyODBC版本

Option是传递给ODBC的参数，是一系列选项的值的和（通过这个值，可以知道各个选项是否被选中）。你可以暂时不用太纠结这个，如果你想进一步了解，官方资料（自己加http冒号斜杠，否则百度不让发链接）：dev.mysql.com/doc/connector-odbc/en/connector-odbc-configuration-connection-parameters.html#codbc-dsn-option-flags