執行VB，新建一個工程。本程式採用ADO控制元件和動態連結庫訪問資料庫，需要加入ADO的執行庫，單擊"工程引用"選單，出現引用對話方塊，選擇Microsoft ActiveX Data Objects2.0 Library並確定。 新增一個Form，四個Label控制元件，兩個TextBox控制元件，一個PictureBox控制元件，一個ADODC控制元件，三個CommandButton控制元件，一個CommandDialog控制元件，如果ADODC和CommandDialog控制元件沒有出現在工具框上，請單擊選單"工程部件"。點"控制元件"選項卡，在其中選中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0兩項按"確定"按鈕。 下面是以上各個控制元件的一些屬性： Form1.MaxButton=False Label1.Caption=姓名： Label2.Caption=編號： Label3.Name= ResName Label3.BackColor= ＆H80000009＆ Label3.BorderStyle=1－Fixed Single Label3.DataField=姓名 Label3.DataSource= AdoCtr Label4.Name= ResNumb Label4.BackColor= ＆H80000009＆ Label4.BorderStyle=1－Fixed Single Label4.DataField=編號 Label4.DataSource= AdoCtr Text1.Name= Names Text2.Name= Numb CommonDialog1.Name= CDlg Adodc1.Name=AdoCtr CommonButton1.Name=PreView CommonButton1.Caption=預覽 CommonButton2.Name=Save CommonButton2.Caption=儲存 CommonButton3.Name= Update CommonButton3.Caption=更新 PictureBox1.Name= PicBox PictureBox1.AutoSize=False PictureBox1.AutoRedraw=False PictureBox1.DataField=照片 PictureBox1.DataSource=AdpCtr 下面是程式程式碼： ′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll) Dim Constr As String ′ODBC路徑 Dim FileName As String ′圖片檔名 Const BLOCKSIZE = 4096 ′每次讀寫塊的大小 Dim ADOCon As New ADODB.Connection ′ADODB Connection物件 Dim ADORst As New ADODB.Recordset ′ADODB Recordset 物件 Dim ADOFld As ADODB.Field ′ADODB Field 物件 －－－－－－－－－－－－－－－－－－－－－－－－ Private Sub SaveToDB(ByRef Fld As ADODB.Field，DiskFile As String) Dim byteData() 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 檢視原帖>>
執行VB，新建一個工程。本程式採用ADO控制元件和動態連結庫訪問資料庫，需要加入ADO的執行庫，單擊"工程引用"選單，出現引用對話方塊，選擇Microsoft ActiveX Data Objects2.0 Library並確定。 新增一個Form，四個Label控制元件，兩個TextBox控制元件，一個PictureBox控制元件，一個ADODC控制元件，三個CommandButton控制元件，一個CommandDialog控制元件，如果ADODC和CommandDialog控制元件沒有出現在工具框上，請單擊選單"工程部件"。點"控制元件"選項卡，在其中選中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0兩項按"確定"按鈕。 下面是以上各個控制元件的一些屬性： Form1.MaxButton=False Label1.Caption=姓名： Label2.Caption=編號： Label3.Name= ResName Label3.BackColor= ＆H80000009＆ Label3.BorderStyle=1－Fixed Single Label3.DataField=姓名 Label3.DataSource= AdoCtr Label4.Name= ResNumb Label4.BackColor= ＆H80000009＆ Label4.BorderStyle=1－Fixed Single Label4.DataField=編號 Label4.DataSource= AdoCtr Text1.Name= Names Text2.Name= Numb CommonDialog1.Name= CDlg Adodc1.Name=AdoCtr CommonButton1.Name=PreView CommonButton1.Caption=預覽 CommonButton2.Name=Save CommonButton2.Caption=儲存 CommonButton3.Name= Update CommonButton3.Caption=更新 PictureBox1.Name= PicBox PictureBox1.AutoSize=False PictureBox1.AutoRedraw=False PictureBox1.DataField=照片 PictureBox1.DataSource=AdpCtr 下面是程式程式碼： ′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll) Dim Constr As String ′ODBC路徑 Dim FileName As String ′圖片檔名 Const BLOCKSIZE = 4096 ′每次讀寫塊的大小 Dim ADOCon As New ADODB.Connection ′ADODB Connection物件 Dim ADORst As New ADODB.Recordset ′ADODB Recordset 物件 Dim ADOFld As ADODB.Field ′ADODB Field 物件 －－－－－－－－－－－－－－－－－－－－－－－－ Private Sub SaveToDB(ByRef Fld As ADODB.Field，DiskFile As String) Dim byteData() 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 檢視原帖>>