读入可以用读写文件的函数open

写出时将字段读出用写二进制文件的方法写到硬盘的临时文件后再显示 具体函数我记得不太清楚了，很久没有用了

对,应该保存为二进制文件 用open函数, Open 语句示例

本示例示范 Open 语句的不同用法来做到文件的输出与输入。

下列代码以顺序输入模式打开 TESTFILE 文件。

Open \"TESTFILE\" For Input As #1 ' 若要以其他方式打开文件，必需先关闭此文件。 Close #1

下列代码以只允许写操作的二进制方式打开文件。

Open \"TESTFILE\" For Binary Access Write As #1 ' 若要以其他方式打开文件，必需先关闭此文件。 Close #1

下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。

Type Record ' 定义用户自定义数据类型。 ID As Integer

Name As String * 20 End Type

Dim MyRecord As Record ' 声明变量。

Open \"TESTFILE\" For Random As #1 Len = Len(MyRecord) ' 若要以其他方式打开文件，必需先关闭此文件。 Close #1

下列代码以顺序输出方式打开文件；任何过程都可以读写该文件。

Open \"TESTFILE\" For Output Shared As #1 ' 若要以其他方式打开文件，必需先关闭此文件。 Close #1

下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。

Open \"TESTFILE\" For Binary Access Read Lock Read As

本示例使用 Write # 语句将行数据写入顺序文件。

Open \"TESTFILE\" For Output As #1 ' 打开输出文件。 Write #1, \"Hello World\ 234 ' 写入以逗号隔开的数据。 Write #1, ' 写入空白行。

Dim MyBool, MyDate, MyNull, MyError ' 赋值 Boolean、Date、Null 及 Error 等。

MyBool = False : MyDate = #February 12, 1969# : MyNull = Null MyError = CVErr(32767)

' Boolean 数据以 #TRUE# 或 #FALSE# 的格式写入。 ' 日期以通用日期格式写入，例如：#1994-07-13# 代表

' 1994 年 1 月 13 日。Null 数据以 #NULL# 格式写入。 ' Error 数据以 #ERROR 错误代号# 的格式写入。 Write #1, MyBool ； \" is a Boolean value\" Write #1, MyDate ； \" is a date\" Write #1, MyNull ； \" is a null value\" Write #1, MyError ； \" is an error value\" Close #1 ' 关闭文件。

Dim cnnImage As New ADODB.Connection Dim rsImage As New ADODB.Recordset Dim strSql As String

Dim Chunk() As Byte Dim lngLengh As Long Dim intChunks As Integer Dim intFragment As Integer Const ChunkSize = 1000 Const lngDataFile = 1

Private Sub cmdBrowse_Click() '选择 JPG OR Bmp 文件 On Error Resume Next With cmdlFilePath

.Filter = \"JPG Files|*.JPG|Bitmaps|*.BMP\" .ShowOpen

txtFilePath.Text = .FileName End With

End Sub

Private Sub cmdExit_Click() End End Sub

Private Sub cmdLast_Click() On Error Resume Next rsImage.MoveLast Call ShowPic End Sub

Private Sub cmdNext_Click() On Error Resume Next rsImage.MoveNext Call ShowPic End Sub

Private Sub cmdPrev_Click() On Error Resume Next rsImage.MovePrevious

以上是ACCESS 的数据库,只要把连接字符改成SQ的就可以了

一、实现思路：

用户添加或修改图片时控制使用COMMONDIALOG的SHOWOPEN对话框，然后记录通用对话框的FILENAME到变量A，再使用APP.PATH找到到特定目录下的该图片文件，改变窗体上放置图片控件的属性即可显示。 数据库中只使用一文本型字段记录下变量A，图片文件保存在程序目录下，此法可同时使用GIF、JPG和BMP等等图像文件。

二、实现方法：

1、在窗体上建立IMAGE控件，名为IMAGE1。

2、用DATA控件得到数据源表。

3、建立“更改图片”按钮COMMAND1，其代码为:

Private Sub Command1_Click() CommonDialog1.FileName = \"\"

CommonDialog1.Filter = \"文件bmp *.bmp 文件JPG *.JPG 文件GIF *.GIF\" CommonDialog1.ShowOpen Dim a As String

a = CommonDialog1.FileTitle 注释：得到不含路径文件名 If a <> \"\" Then

Image11.Picture = LoadPicture(App.Path & \"\\bmp\\\" & a) 注释：\\bmp\\是我用于存取图片的本系统文件夹下的一个子文件夹。 Data1.Recordset.Edit

Data1.Recordset.Fields(\"tp\") = a 注释：TP是存取图片名称的字段。 Data1.Recordset.Update End If End Sub