vb数据库连接字符串 1Word文档格式.docx
- 文档编号:17942065
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:11
- 大小:17.33KB
vb数据库连接字符串 1Word文档格式.docx
《vb数据库连接字符串 1Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb数据库连接字符串 1Word文档格式.docx(11页珍藏版)》请在冰豆网上搜索。
;
data
source=数据库名"
sql数据库
provider=sqloledb.1;
info=true;
"
user
id=用户名;
password=密码;
initial
catalog=数据库名;
source=sql服务器名"
*************************************************************************
保存文件到数据库中
sub
s_savefile()
dim
istm
as
ire
adodb.recordset
string
数据库连接字符串
source=f:
/my
documents/客户资料1.mdb"
读取文件到内容
set
new
with
.type
adtypebinary
二进制模式
.open
.loadfromfile
c:
/test.doc"
end
打开保存文件的表
表"
iconc,
adopenkeyset,
adlockoptimistic
.addnew
新增一条记录
.fields("
保存文件内容的字段"
)
istm.read
.update
完成后关闭对象
ire.close
istm.close
从数据库中读取数据,保存成文件
s_readfile()
iconc
source=//xz/c$/inetpub/zj/zj/zj.mdb"
打开表
ire.open
tb_img"
adlockreadonly
ire.filter
id=64"
保存到文件
.mode
admodereadwrite
.write
ire("
img"
.savetofile
关闭对象
cn
adodb.connection
rs
stm
private
savepicturetodb(cn
adodb.connection)
将bmp图片存入数据库
on
error
goto
eh
rs.open
select
imagepath,imagevalue
from
tbl_image"
cn,
commondialog1.showopen
text1.text
commondialog1.filename
imagepath"
imagevalue"
stm.read
rs.close
nothing
exit
eh:
msgbox
err.description,
vbinformation,
error"
loadpicturefromdb(cn
载数据库中读出bmp图片
strtemp
/temp.tmp"
临时文件,用来保存读出的图片
adcmdtext
rs("
strtemp,
adsavecreateoverwrite
.close
image1.picture
loadpicture(strtemp)
image类型
用picture显示
以下两个函数是从数据库中读出图片的核心程序
public
function
getimage(optional
filename
string)
variant
procerr
objrs
strsql
chunk()
byte
thumb
tblpictures
where
idpict="
tblid(thumbindex)
idpict=
idpict=387"
db.execute
objrs.open
strsql,
db,
adopenforwardonly,
if
objrs.bof
and
objrs.eof
then
getimage
0
procexit
elseif
isnull(objrs.fields(0))
errnumber
1001
errdesc
字段为空"
objrs.fields(0).getchunk(objrs.fields(0).actualsize)
chunk2image(chunk(),
filename)
procexit:
resume
next
objrs.close
objrs.fields(0).getchunk(0)
procerr:
chunk2image(chunk()
byte,
optional
keepfile
boolean
datafile
integer
true
trim(filename)
/tmpxxdb.fil"
false
freefile
open
for
binary
access
write
put
datafile,
close
chunk2image
loadpicture(filename)
not
kill
getfromfile(strtable
string,
strfield
strfilter
objfilename
============================================================
过程函数名:
commmodule.getfromfile 类型:
function
参数:
strtable
(string) :
准备保存图形数据的表名称
准备保存图形数据的字段名称
(string)
:
打开表的过滤字符串,用于定位并确保被打开的表的数据的唯一性
(string)
准备输入到表里边的图象文件名称
返回:
如果保存成功,返回true,如果失败,返回false
-------------------------------------------------------------
说明:
把图象文件的数据保存到表里边
修订历史:
=============================================================
recset
adodb.recordset,
filedata()
fileno
long,
filesize
strsql
set
recset
recset.open
currentproject.connection,
adopendynamic,
getfromfile
if
recset(strfield).type
<
>
db_ole
or
isfilename(objfilename)
getfromfile
false
如果字段不是ole字段,或者文件不存在,返回错误
goto
endgetfromfile
end
recset.eof
then 如果记录不存在,返回错误
filesize
getfilesize(objfilename)
如果被打开的文件大小为零,返回错误
=
redim
filedata(filesize) 重新初始化数组
fileno
freefile
获取一个空闲的文件号
open
#fileno 打开文件
get
#fileno,
filedata()
读取文件内容到数组
close
#fileno
关闭文件
recset(strfield).value
保存数据
recset.update
更新数据
erase
filedata 释放内存
endgetfromfile:
recset.close 关闭recordset
nothing 释放内存
savetofile(strtable
strfil
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb数据库连接字符串 vb 数据库连接 字符串