请高手帮我写几行注释。我急用。在线等！马上给分！
这里的两段程序是我在本版的旧贴里找的，对我很有帮助，但是有些语句我还搞不清，请高手帮我写两行注释，谢谢！我马上给分！
这一段是用来将图片导入sql server,
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any,_ lpvSource As Any, ByVal cbCopy As Long)
Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal_ FileName As String)
Dim Length As Long, f As Integer
Length = FileLen(FileName)
ReDim bArray(Length + 12) As Byte, bArray2(Length) As_ Byte
bArray(0) = & H6C: bArray(1) = & H74
RtlMoveMemory bArray(4), Length, 4
f = FreeFile
Open FileName For Binary As #f
Get #f, , bArray2
Close #1
RtlMoveMemory bArray(8), bArray2(0), Length
rs("签字").AppendChunk bArray
End Sub
'上面的过程放在一个公共模块里的，其实可以改到一个form中
'使用一个picturebox来绑定"签字"字段，显示可以。双击后选择新的图片，存入数据库
Private Sub picFields_Click(Index As Integer)
On Error Resume Next
With dlgPhoto
.DialogTitle = "装入图片"
.Filter = "(点阵图)*.bmp|*.bmp"
.CancelError = True
.ShowOpen
If err.Number < > cdlCancel Then
Set picFields(4).Picture = LoadPicture(.FileName)
SavePictureToAdodc datPrimaryRS.Recordset, .FileName
End If
End With
End Sub
第二段：将文本文件自动导入sql server:
CREATE PROCEDURE sp_Export
AS
DECLARE @strExport varchar(5000)
DECLARE cuTable CURSOR
FOR SELECT 'bcp pubs..' + name + ' out c:\export\' + name + '.txt -c -Sservername -Usa -Ppassword ' FROM sysobjects WHERE xtype='U'
OPEN cuTable
FETCH NEXT FROM cuTable INTO @strExport
WHILE (@@fetch_status <> -1)
BEGIN
EXEC master..xp_cmdshell @strExport
FETCH NEXT FROM cuTable INTO @strExport
END
CLOSE cuTable
DEALLOCATE cuTable
问题点数：70、回复次数：6Top
1 楼luckysusan（海闊天空）回复于 2002-06-14 17:10:16 得分 0
學習！順便up!希望不要介意!Top
2 楼cool222（坚持到底）回复于 2002-06-14 18:01:15 得分 0
是不是把简单的问题复杂化啦
我记得图片存入数据库要比这简单的多，但时间久忘了具体怎么做Top
3 楼ywchen2000（灌水大帝:努力奋斗）回复于 2002-06-14 18:43:43 得分 10
1调用通用对话框
2将aeccess的字段属性改用OLE
Top
4 楼ywchen2000（灌水大帝:努力奋斗）回复于 2002-06-14 18:45:04 得分 0
买本API方面的书慢慢看Top
5 楼ccbl（<<<=====）回复于 2002-06-14 19:01:28 得分 60
' 声明API函数
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any,_ lpvSource As Any, ByVal cbCopy As Long)
'声明过程
Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal_ FileName As String)
'参数为 记录集，字符串
Dim Length As Long, f As Integer
Length = FileLen(FileName)
'动态申明字节型数组
ReDim bArray(Length + 12) As Byte, bArray2(Length) As_ Byte
bArray(0) = & H6C: bArray(1) = & H74
RtlMoveMemory bArray(4), Length, 4
'获得一个文件号
f = FreeFile
'打开文件
Open FileName For Binary As #f
'向文件写如二进制的字节内容
Get #f, , bArray2
'关闭文件
Close #1
RtlMoveMemory bArray(8), bArray2(0), Length
rs("签字").AppendChunk bArray
End Sub
'上面的过程放在一个公共模块里的，其实可以改到一个form中
'使用一个picturebox来绑定"签字"字段，显示可以。双击后选择新的图片，存入数据库
Private Sub picFields_Click(Index As Integer)
On Error Resume Next
With dlgPhoto
.DialogTitle = "装入图片"
.Filter = "(点阵图)*.bmp|*.bmp"
.CancelError = True
.ShowOpen
If err.Number < > cdlCancel Then
Set picFields(4).Picture = LoadPicture(.FileName)
SavePictureToAdodc datPrimaryRS.Recordset, .FileName
End If
End With
End Sub
第二段：将文本文件自动导入sql server:
CREATE PROCEDURE sp_Export
AS
DECLARE @strExport varchar(5000)
DECLARE cuTable CURSOR
FOR SELECT 'bcp pubs..' + name + ' out c:\export\' + name + '.txt -c -Sservername -Usa -Ppassword ' FROM sysobjects WHERE xtype='U'
OPEN cuTable
FETCH NEXT FROM cuTable INTO @strExport
WHILE (@@fetch_status <> -1)
BEGIN
EXEC master..xp_cmdshell @strExport
FETCH NEXT FROM cuTable INTO @strExport
END
CLOSE cuTable
DEALLOCATE cuTable
(哈哈回来写）Top
6 楼wxyz2001（wxyz2001）回复于 2002-06-14 19:36:30 得分 0
谢谢
一会结贴，散分！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
