我从VFP数据库升迁到SQL SERVER 2000数据库,原VFP数据库中的OLE类型字段变为SQL SERVER中IMAGE类型字段。
请问:
1.怎样把SQL SERVER中该字段的内容写成文件,保存出来(原保存的是图片JPG和AUTOCAD2000 DWG类型的文件)。
2.怎样通过VB 的 OLE 控件连接到 SQL SERVER 里该字段,使其能够编辑。我通过 RDO 数据控件连接上了,但只能显示图片或图纸文件内容,无法编辑。希望给出不用数据控件的方法对该字段进行编辑、显示。
谢谢!
请问:
1.怎样把SQL SERVER中该字段的内容写成文件,保存出来(原保存的是图片JPG和AUTOCAD2000 DWG类型的文件)。
2.怎样通过VB 的 OLE 控件连接到 SQL SERVER 里该字段,使其能够编辑。我通过 RDO 数据控件连接上了,但只能显示图片或图纸文件内容,无法编辑。希望给出不用数据控件的方法对该字段进行编辑、显示。
谢谢!
textcopy
TEXTCOPY [/S [sqlserver]] [/U [login]] [/P [password]]
[/D [database]] [/T table] [/C column] [/W"where clause"]
[/F file] [{/I | /O}] [/K chunksize] [/Z] [/?] /S sqlserver The SQL Server to connect to. If 'sqlserver' is not
specified, the local SQL Server is used.
/U login The login to connect with. If 'login' is not specified,
a trusted connection will be used.
/P password The password for 'login'. If 'password' is not
specified, a NULL password will be used.
/D database The database that contains the table with the text or
image data. If 'database' is not specified, the default
database of 'login' is used.
/T table The table that contains the text or image value.
/C column The text or image column of 'table'.
/W "where clause" A complete where clause (including the WHERE keyword)
that specifies a single row of 'table'.
/F file The file name.
/I Copy text or image value into SQL Server from 'file'.
/O Copy text or image value out of SQL Server into 'file'.
/K chunksize Size of the data transfer buffer in bytes. Minimum
value is 1024 bytes, default value is 4096 bytes.
/Z Display debug information while running.
/? Display this usage information and exit.
下面是一个存储过程示例,使用它能更方便的调用这个命令CREATE PROCEDURE sp_textcopy (
@srvname varchar (30),
@login varchar (30),
@password varchar (30),
@dbname varchar (30),
@tbname varchar (30),
@colname varchar (30),
@filename varchar (30),
@whereclause varchar (40),
@direction char(1))
AS
DECLARE @exec_str varchar (255)
SELECT @exec_str =
'textcopy /S ' + @srvname +
' /U ' + @login +
' /P ' + @password +
' /D ' + @dbname +
' /T ' + @tbname +
' /C ' + @colname +
' /W "' + @whereclause +
'" /F ' + @filename +
' /' + @direction
EXEC master..xp_cmdshell @exec_str
将图片拷贝到pubs的pub_info表中的pub_ID='0736'的logo字段中的示例用法sp_textcopy @srvname = 'ServerName',
@login = 'Login',
@password = 'Password',
@dbname = 'pubs',
@tbname = 'pub_info',
@colname = 'logo',
@filename = 'c:\picture.bmp',
@whereclause = " WHERE pub_id='0736' ",
@direction = 'I' 同样导出时使用@direction='O'就行.
实现编辑似乎比较麻烦
保存文件到DB
Public Sub FileToDB(Col As ADODB.Field, DiskFile As String)
Const BLOCKSIZE As Long = 4096
'从一个临时文件中获取数据,并把它保存到数据库中
'col为一个ADO字段,DiskFile为一个文件名,它可以为一个远程文件。
Dim strData() As Byte '声明一个动态数组
Dim NumBlocks As Long '读写块数
Dim FileLength As Long '文件长度
Dim LeftOver As Long '剩余字节数
Dim SourceFile As Long '文件句柄
Dim i As Long
SourceFile = FreeFile '获得剩余的文件句柄号
Open DiskFile For Binary Access Read As SourceFile '以二进制读方式打开源文件。
FileLength = LOF(SourceFile) '获得文件长度
If FileLength = 0 Then
Close SourceFile '关闭文件
MsgBox DiskFile & " Empty or Not Found.", vbOKOnly + vbExclamation
Else
NumBlocks = FileLength \ BLOCKSIZE '获得块数
LeftOver = FileLength Mod BLOCKSIZE '最后一块的字节数
Col.AppendChunk Null '追加空值,清除已有数据
ReDim strData(BLOCKSIZE) '从文件中读取内容并写到文件中。
For i = 1 To NumBlocks
Get SourceFile, , strData
Col.AppendChunk strData
Next i
ReDim strData(LeftOver)
Get SourceFile, , strData
Col.AppendChunk strData
Close SourceFile
End If
End Sub'DB输出到文件中
Public Sub ColumnToFile(Col As ADODB.Field, DiskFile As String, rsset As Recordset)
'从数据库获得数据并把它们写到硬盘上的一个临时文件中。
'快的大小以4096为单位
Const BLOCKSIZE As Long = 4096
Dim NumBlocks As Long '注释见上文
Dim LeftOver As Long '
Dim strData() As Byte
Dim DestFileNum As Long
Dim i As Long
Dim ColSize As Long
'确保你存取的不是一个空记录集
If Not rsset.EOF And Not rsset.BOF Then
ColSize = Col.ActualSize
'获得列的实际大小
'如果文件长度为零,将删除文件内容
If Len(Dir$(DiskFile)) > 0 Then
Kill DiskFile
End If
DestFileNum = FreeFile
Open DiskFile For Binary As DestFileNum
NumBlocks = ColSize \ BLOCKSIZE
LeftOver = ColSize Mod BLOCKSIZE
'把数据写到文件中
For i = 1 To NumBlocks
ReDim strData(BLOCKSIZE)
strData = Col.GetChunk(BLOCKSIZE)
Put DestFileNum, , strData
Next i
ReDim strData(LeftOver)
strData = Col.GetChunk(LeftOver)
Put DestFileNum, , strData
Close DestFileNum
End If
End Sub
我主要的问题是从VFP的通用型字段(通过VFP的OLE控件保存进去)升迁到SQL2000的IMAGE类型字段(主要是AUTOCAD文件)后,通过VB编程,把该字段连接到VB的OLE控件后,在OLE控件中可以正确显示升迁上来的AUTOCAD文件的内容,但不能编辑。我希望能够编辑,或者把他写成一个DWG类型的文件导出到硬盘(用AUTOCAD软件可以打开,我通过OLE控件写出的文件AUTOCAD也不能正确识别它的格式)。
ole.object就是autocad文件的acadDocument对象,可以参照CAD的VBA的相关方法进行操作.保存也没问题.