VB是一種高級編程語言，提供了許多強大的功能來幫助程序員完成復雜的任務。其中之一就是將OLE對象保存到數據庫中。本文將介紹如何將OLE對象保存進數據庫中，包括如何創(chuàng)建數據庫、如何設置表和字段、如何將OLE對象添加到數據庫中。

在開平等地區(qū)，都構建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統性、市場前瞻性、產品創(chuàng)新能力，以專注、極致的服務理念，為客戶提供網站建設、成都做網站 網站設計制作定制開發(fā),公司網站建設,企業(yè)網站建設,高端網站設計,成都營銷網站建設,外貿營銷網站建設,開平網站建設費用合理。

1. 創(chuàng)建數據庫

需要創(chuàng)建一個數據庫，可以使用Access、SQL Server等數據庫軟件。在Access中，可以通過點擊“新建”按鈕，然后選擇“空白數據庫”來創(chuàng)建一個新數據庫。在SQL Server中，需要運行SQL Server Management Studio，然后創(chuàng)建一個新的數據庫。

2. 設置表和字段

創(chuàng)建數據庫后，需要設置一個表來存儲OLE對象?？梢允褂萌魏我粋€數據庫軟件來設置表格，例如在Access中，可以通過點擊“創(chuàng)建”選項卡，在“表格設計視圖”中添加一個新表格。在SQL Server中，可以使用SQL語句來創(chuàng)建表格。

創(chuàng)建表格后，需要添加一個字段來存儲OLE對象。在Access中，可以通過選擇“OLE對象”類型來添加一個新的字段。在SQL Server中，可以使用“圖像”或“varbinary(max)”類型來存儲OLE對象。此外，還可以根據需要添加其他字段來描述OLE對象，如文件名稱、文件類型等。

3. 將OLE對象添加到數據庫中

添加OEL對象到數據庫中，也可以使用任何一個數據庫軟件。在Access中，可以使用“表單”來添加新記錄，然后將OLE對象添加到字段中。在SQL Server中，可以使用SQL語句來添加新記錄。

可以使用以下代碼來將OLE對象添加到Access數據庫：

“`

Dim db As Database

Dim rs As Recordset

Set db = OpenDatabase(“C:\Database1.accdb”)

Set rs = db.OpenRecordset(“Table1”, dbOpenDynaset)

‘Add new record

rs.AddNew

‘Assign data to each field

rs.Fields(“FieldName1”) = “Data1”

rs.Fields(“FieldName2”).LoadFromFile “C:\Example.docx”

‘Save the record

rs.Update

‘Close the recordset and the database

rs.Close

db.Close

“`

在以上程序中，首先打開一個名為“C：\Database1.accdb”的數據庫，然后打開一個名為“Table1”的新記錄集。接著，添加了一條新記錄，并在“FieldName1”字段中添加了一個字符串，而在“FieldName2”字段中添加了一個從“C：\Example.docx”中加載的OLE對象。

可以使用以下代碼將OLE對象添加到SQL Server數據庫中：

“`

Dim conn As New ADODB.Connection

Dim cmd As New ADODB.Command

conn.Open “Provider=SQLNCLI11;Data Source=SERVER01;Initial Catalog=DatabaseName;User ID=sa;Password=123456;”

Set cmd.ActiveConnection = conn

cmd.CommandText = “INSERT INTO Table1 (FieldName1, FieldName2) ” & “VALUES (‘Data1’, ?)”

cmd.CommandType = adCmdText

Dim Stream As New ADODB.Stream

Stream.Type = adTypeBinary

Stream.Open

Stream.LoadFromFile “C:\Example.docx”

cmd.Parameters.Append cmd.CreateParameter(“@param1”, adLongVarBinary, adParamInput, Stream.Size, Stream.Read)

cmd.Execute

Stream.Close

conn.Close

“`

在以上程序中，首先打開了一個名為“DatabaseName”的SQL Server數據庫，然后使用連接對象創(chuàng)建了一個新的命令對象。接著，將OLE對象從“C：\Example.docx”文件中加載到ADODB.Stream對象中。通過調用Execute方法將數據添加到數據庫中。

本文介紹了將OLE對象保存到VB中的方法，包括如何創(chuàng)建數據庫、如何設置表和字段以及如何將OLE對象添加到數據庫中。無論是使用Access還是SQL Server，都可以使用上述技術來存儲OLE對象。此外，還應該注意在添加數據時確保數據類型正確，以避免出現意外問題。

相關問題拓展閱讀：

• vb6.0中，在OLE中插入Excel表格，表格數據更新后如何實現自動保存該Excel？
• VB已讀取到數據庫數據，如何將數據寫入Excel表（OLE控件）的某一單元格中，謝謝！

vb6.0中，在OLE中插入Excel表格，表格數據更新后如何實現自動保存該Excel？

如喊舉下鄭橋碧:

Text1.text=OLE1.object.Sheets(1).Cells(5, 1)

Text2.text=OLE1.object.Sheets(1).Range(“A1″消高)

VB已讀取到數據庫數據，如何將數據寫入Excel表（OLE控件）的某一單元格中，謝謝！

在SQL SERVER里檔殲往Excel插行搭沖入數據:

insert into OpenDataSource( ‘Microsoft.Jet.OLEDB.4.0’,

‘Data Source=”c:\Temp.xls”;User ID=Admin;Password=;Extended properties=Excel 5.0’)…table1 (A1,A2,A3) values (1,2,3)

T-SQL代碼：

INSERT INTO

OPENDATASOURCE(‘Microsoft.JET.OLEDB.4.0’,

‘Extended Properties=Excel 8.0;Data source=C:\training\枝鋒inventur.xls’)…

(bestand, produkt) VALUES (20, ‘Test’)

參考：

可對Ole控件關聯對象的Excel表格的單元格的Value 屬性賦值來寫入VB已讀到的數據。

Value 屬性，返回或設置一個Variant型數，它指定該屬性之值，此屬性可讀/寫。

以下是實現代碼：

Option Explicit

    Dim oBok As Object ‘定義oBok為Object 數據類型

Private Sub Command1_Click()

    OLE1.CreateLink “C:\zhang2023.xls” ‘打開要寫入的Excel表

  鋒隱凳  Set oBok = OLE1.object ‘將對象引用賦給變量或屬性。

    oBok.Sheets(1).Range(“A1”).Value = “VB已讀取到數據庫數銀旅據” ‘將數據寫入Excel表的A列之一行

    Set oBok = Nothing ‘使用 Nothing 關鍵字被將對象變量從實際對象中分離開來。

End Sub

Object 變量存儲為 32 位（4 個字節(jié)）的地址形式，其為對象的引用。利用 Set 語句，聲明為 Object 的變量可以賦值為任何對象的引用。

注意 雖然以攜蔽 Object 類型聲明的變量足以適應包含對各種對象的引用，但是綁定到變量引用的對象總是在晚期（運行時）綁定。要強迫在早期（編譯時間）綁定的話，須將對象的引用賦值給用特定類名稱聲明的變量。

使用 Nothing 關鍵字被將對象變量從實際對象中分離開來。要使用

Set 語句將 Nothing 賦值給對象變量。例如：

Set MyObject = Nothing

關于vb中保存ole到數據庫的介紹到此就結束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關注本站。

香港服務器選創(chuàng)新互聯，2H2G首月10元開通。
創(chuàng)新互聯（www.cdcxhl.com）互聯網服務提供商,擁有超過10年的服務器租用、服務器托管、云服務器、虛擬主機、網站系統開發(fā)經驗。專業(yè)提供云主機、虛擬主機、域名注冊、VPS主機、云服務器、香港云服務器、免備案服務器等。

網站欄目：VB中OLE對象保存進數據庫的方法(vb中保存ole到數據庫)
URL網址：http://uogjgqi.cn/article/coshjii.html