vb加sql的图片数据库怎么弄

'VB/VBA中实现数据库中的文件存取

'示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串

'

'

'

' 使用 ADODBStream 保存/读取文件到数据库

' 引用 Microsoft ActiveX Data Objects 25 Library 及以上版本

'

' ----- 数据库连接字符串模板 ---------------------------------------

' ACCESS数据库

' iConcStr = "Provider=MicrosoftJetOLEDB40;Persist Security Info=False" & _

' ";Data Source=数据库名"

'

' SQL数据库

' iConcStr = "Provider=SQLOLEDB1;Persist Security Info=True;" & _

' "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"

'

'

'

'保存文件到数据库中

Sub s_SaveFile()

Dim iStm As ADODBStream

Dim iRe As ADODBRecordset

Dim iConcStr As String

'ACCESS数据库的连接字符串

iConcStr = "Provider=MicrosoftJetOLEDB40;Persist Security Info=False" & _

";Data Source=F:\My Documents\客户资料1mdb"

'SQL数据库的连接字符串

iConcStr = "Provider=SQLOLEDB1;Persist Security Info=True;" & _

"User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"

'读取文件到内容

Set iStm = New ADODBStream

With iStm

Type = adTypeBinary '二进制模式,如果是用text/ntext字段保存纯文本数据,则改用 adTypeText

Open

LoadFromFile "c:\testdoc"

End With

'打开保存文件的表

Set iRe = New ADODBRecordset

With iRe

Open "表", iConc, adOpenKeyset, adLockOptimistic

AddNew '新增一条记录

Fields("保存文件内容的字段") = iStmRead

Update

End With

'完成后关闭对象

iReClose

iStmClose

End Sub

'从数据库中读取数据,保存成文件

Sub s_ReadFile()

Dim iStm As ADODBStream

Dim iRe As ADODBRecordset

Dim iConc As String

'数据库连接字符串

iConc = "Provider=MicrosoftJetOLEDB40;Persist Security Info=False" & _

";Data Source=\\xz\c$\Inetpub\zj\zj\zjmdb"

'打开表

Set iRe = New ADODBRecordset

iReOpen "tb_img", iConc, adOpenKeyset, adLockReadOnly

iReFilter = "id=64"

if iRe("img")ActualSize>0 Then

'保存到文件

Set iStm = New ADODBStream

With iStm

Mode = adModeReadWrite

Type = adTypeBinary '二进制模式,如果是用text/ntext字段保存纯文本数据,则改用 adTypeText

Open

Write iRe("img")

SaveToFile "c:\testdoc"

End With

'关闭对象

iStmClose

End If

iReClose

End Sub

建立，SQLSERVER实现

CREATE TABLE dbo服装 (

id int IDENTITY (1, 1) NOT NULL ,

标题 varchar (50) ,

说明 text ,

存放路径 varchar (50),

尺寸 varchar (50),

其它属性 varchar (50)

)

*** 作：

前台语言编写，可按标题等属性查询，或通过GRID控件显示列表，通过调入的存放路径和文件名字串调入到控件显示。

1

第一步：在ghost xp系统中启动Access,在向导的提示下建立一个“空数据库”以便用于存放从Excel中导入的数据

2

第二步：打开要导入数据的数据库，切换到“外部数据”选项卡，选择“Excel”按钮，打开“导入数据”对话框。

3

第三步：在“选择数据源”对话框中，可以根据需要选择数据源，数据源就是我们之前准备好的“成绩表xlsx”表格文件。同时选择“将数据源导入当前数据库的新表中”。

4

第三步：在“选择数据源”对话框中，可以根据需要选择数据源，数据源就是我们之前准备好的“成绩表xlsx”表格文件。同时选择“将数据源导入当前数据库的新表中”。

5

第五步：勾选“第一行含有列标题”选项，以免导入向导将表格第一排的标题也当做数据导入进来。点击“下一步”按钮

6

第六步：分别选择每一个数据列，并指定导入数据库后的数据类型。中文部分建议设置为“文本”，数字部分可以设置为“整数型”或“双精度型”。然后点击“下一步”按钮

7

第七步：接下来为数据表设置主键。主键是数据库中一种特殊的列，列的内容是一组自动增长的数字，如果没有实际的需要，我们选择“不要主键”并点击“下一步”按钮。

8

第八步：为即将生成的新标取一个名字。例如“学生成绩数据”，并点击“完成”按钮，结束导入。

戊戌数据涵盖了国内国外各种医药品的各种数据。

包括中国药品注册，中国上市药品，仿制药一致性评价，美国上市药品，欧盟上市药品，中国基本药物目录，中国医保目录，中国临床试验，药物杂质对照品，中国制药企业库，美国橙皮书，药品说明书，ClinicalTrials，中国上市医疗器械，中国生物制品批签发，欧盟HMA上市药品，日本橙皮书，日本上市药品等一系列关于医药学的数据库查询。

1、新建一个数据库，数据库名为Image，表名为image。并为表添加ID，tupian两个列。

2、新建一个项目（Photo），在工具箱中往窗体中拖入一个PictureBox控件，两个Button按钮，一个OpenFileDialog控件。并修改pictureBox1控件的属性BorderStyle为FixedSingle，SizeMode为StretchImage；修改两个button控件属性的Text值依次为”打开一张”“插入数据库”。

3、首先打开“数据“选择“添加新数据源”，然后（数据库）下一步，（数据集）下一步，选择”新建连接“，依次选择服务器名，服务器验证方式，选择”选择或输入一个数据库名。

4、选择”选择或输入一个数据库名，添加刚刚新建的数据库，然后点击“测试连接”，看看数据库连接是否成功。成功后点“确定”回到“数据源配置向导”页面，将“连接字符串复制下来。

5、添加两条using命名空间 using SystemIO;  using SystemDataSqlClient;作用为读取二进制数据流，用于数据库的连接。

6、编辑Button按钮“打开一张”的Click事件。

7、编写Button按钮“插入数据库：的Click事件。

具体 *** 作我没弄过，但我知道可以写一个程序来完成这种导入工作。从access里面读出数据，写入到oracle就是了。

导出文本的话，将数据存贮成为base64编码就行了，word里面的保存成xml格式的话，也是将存储成base64编码的。

用程序来进行这种 *** 作的话，都不需要中间的过渡文本文件了，建议写一个程序来自动运行。

以上就是关于vb加sql的图片数据库怎么弄全部的内容，包括:vb加sql的图片数据库怎么弄、如何建立一个图片数据库我公司有跟多种类的图片，大概能分三大类，十多小类，现在比较乱，我想整理一下、Excel中带有图片导入到access数据库中发现图片不在，数据打乱，如何解决等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！