如何将一个文本文件以二精制形式放入数据库中，谢谢！！！

Question

Open XX.txt For Input As #File1
Line Input #File1, strLine
strLine﹕返回string

Answer 1

如何把保存在数据库内的图片的高和宽读出!
http://www.csdn.net/expert/Topic/50/50275.shtm'写入
Dim cnn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim FileNumber As Long
Const KB = 1024
Const n = 1
cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\mmxdb97.mdb"
rec.Open "bmp", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
Debug.Print rec.Fields(1).Type
Dim FileBuffer() As Byte
rec.AddNew
FileNumber = FreeFile
'用 CommonDialog 选择文件 
Open CommonDialog1.FileName For Binary Access Read As #FileNumber
Dim lSize As Long
lSize = FileLen(CommonDialog1.FileName)
ReDim FileBuffer(1 To n * KB)
Do While lSize >= (n * KB)
   Get #FileNumber, , FileBuffer
   rec.Fields.Item(1).AppendChunk FileBuffer
   lSize = lSize - (n * KB)
Loop
If lSize > 0 Then
   ReDim FileBuffer(1 To lSize) As Byte
   Get #FileNumber, , FileBuffer
   rec.Fields.Item(1).AppendChunk FileBuffer
End If
Close #FileNumber
rec.Update

Answer 2

dim l as long
l = filelen(sfile)dim lf as long
lf = freefile()
open sfile for binary as #lfdim bt() as byte
redim bt(l-1)get #lf,,bt
close #lfrs(0)=btrs.update

Answer 3

正好相反﹐從數據庫中取出記錄Recordset﹐并把它一行一行的寫入到TXT文件中

Answer 4

如何把保存在数据库内的图片的高和宽读出!
http://www.csdn.net/expert/Topic/50/50275.shtm