|
|
如要使用以下方法需要两个动态连接库，一个名叫mymathdll.dll，请把此库放到c盘下，因为在程序中我写的是到c盘下去找这个dll，不要有根目录，第二个动态连接库名叫msado15.dll，在c:\program files\common files\system\ado中应该存在，它是由系统自带的，文件大小为477kb，如果不是，请替换掉。
在NOTES中的使用方法是先声明此库，我是在操作按钮声明部分声明的，程序如下：
'***********************************************************************************************
Declare Function writefile Lib "c:\mymathdll.dll" (Byval connectstring As Lmbcs String, Byval
sql As Lmbcs String, Byval fielname As Lmbcs String) As Integer
’**********************************************************************************************
声明完后我是在操作按钮中实现以下步骤的，程序如下：
'***********************************************************************************************
Sub Click(Source As Button)
Dim connect As String
'定义连接变量为字符型，此处的“CONNECT”变量是传递到DLL中的连接数据库的参数
Dim sql As String
'定义连接变量为字符型，此处的“SQL”变量是传递到DLL中的查询数据库记录的参数
Dim filename As String
'定义连接变量为字符型，此处的“FILENAME”变量是传递到DLL中的取出的大字段名字的参数
connect="Provider=MSDASQL;DSN=nimis;UID=sa;PWD=;"
sql="select content from t_original_doc where id_proj = 1 and id_doc = 1 and id_ordoc =
1"
filename="d:\wu.doc"
If writefile(connect,sql,filename)=0 Then
'判断返回值
Msgbox "无任何返回值！"
End If
End Sub
*********************************************************************************************
此动态连接库可以应用到所有需要从数据库中取图象、文档、声音、影片。根据大小，时间的长短不一样，请
大家自己掌握，灵活运用。
要注意的是：取出来的文件用完后请立即删除，否则下一次取时如果文件存在（我所指的是相同文件名）则回
报错，使用时请注意。
如有兄弟遇到此困难，又无法解决的话，不知道我可不可以帮忙！由于我无法把此DLL上传，所以想要这两个DLL的兄弟，请E-MAIL给我，免费提供，互帮互助吗！呵呵！
E-MAIL：LUCKYZGJ00001@163.COM
|
|
