如何用vb建立圖片資料庫

① 如何用vb向sql資料庫存取照片 最好有事例 謝謝

在VB中存取資料庫中的圖片
2001-07-05·
·史美康
··vbeden.com
一、
資料庫的設計
資料庫可以採用微軟的Access97或者SQL
Server來進行，首先新建一張表，取名為Table，添加三個欄位，分別是:姓名
Char型(SQL
Server中)文本型(Access中);編號Char型(SQL
Server中)文本型(Access中);照片image型(SQL
Server中)OLE對象(Access中)，設計好後存檔。為了可以進行遠程調用，我們採用ODBC的方法進行，雙擊打開控制面板里的ODBC數據源,點「系統DSN」選項卡，按「添加」按鈕選擇對應的數據源驅動程序Access的*.mdb或者SQL
Server，依照添加向導加添加數據源，下面就可以開始程序的編寫了。
二、
程序的編寫
運行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
Read
As
SourceFile
′打開文件
FileLength
=
LOF(SourceFile)
′得到文件長度
If
FileLength
=
0
Then
′判斷文件是否存在
Close
SourceFile
MsgBox
DiskFile
&
〃
無
內
容
或
不
存
在
!〃
Else
NumBlocks
=
FileLength
\
BLOCKSIZE
′得到數據塊的個數
LeftOver
=
FileLength
Mod
BLOCKSIZE
′得到剩餘位元組數
Fld.Value
=
Null
ReDim
byteData(BLOCKSIZE)
′重新定義數據塊的大小
For
i
=
1
To
NumBlocks
Get
SourceFile,
,
byteData()
′
讀到內存塊中
Fld.AppendChunk
byteData()
′寫入FLD
Next
i
ReDim
byteData(LeftOver)
′重新定義數據塊的大小
Get
SourceFile,
,
byteData()
′讀到內存塊中
Fld.AppendChunk
byteData()
′寫入FLD
Close
SourceFile
′關閉源文件
End
If
End
Sub
----------------------
Private
Sub
Form_Load()
Constr
=
〃DSN=image〃
′定義ODBC連接
ADOCon.Open
Constr
′創建一個連接
ADORst.Open
〃table〃,
ADOCon,
adOpenDynamic,
adLockOptimistic
′打開一個ADO動態集
表名為table
Set
AdoCtr.Recordset
=
ADORst
′將動態集賦給ADO控制項
End
Sub
----------------------
Private
Sub
Form_Unload(Cancel
As
Integer)
′記得關閉打開的數據集，釋放資源
ADORst.Close
ADOCon.Close
Set
ADORst
=
Nothing
Set
ADOCon
=
Nothing
End
Sub
----------------------
Private
Sub
PreView_Click()
′顯示打開文件的公用對話框，選擇需要加入資料庫的圖片
CDlg.Filter
=
〃點陣圖(*.bmp)|*.bmp〃
CDlg.ShowOpen
FileName
=
CDlg.FileName
PicBox.Picture
=
LoadPicture(FileName)
′預覽圖片
End
Sub
----------------------
Private
Sub
Save_Click()
ADORst.AddNew
′新增紀錄
ADORst(〃姓名〃).Value
=
Names.Text
′給動態集的第一個欄位賦值
ADORst(〃編號〃).Value
=
Numb.Text
′給動態集的第二個欄位賦值
Set
ADOFld
=
ADORst(〃照片〃)
′給ADODB.Field對象賦值
Call
SaveToDB(ADOFld,
FileName)
′調用子程序，給第三個欄位(image)賦值
ADORst.Update
End
Sub
----------------------
Private
Sub
Update_Click()
′重新打開紀錄集，刷新紀錄
ADORst.Close
ADOCon.Close
Set
ADORst
=
Nothing
Set
ADOCon
=
Nothing
ADOCon.Open
Constr
ADORst.Open
〃table〃,
ADOCon,
adOpenDynamic,
adLockOptimistic
Set
AdoCtr.Recordset
=
ADORst
End
Sub

② 如何用VB建立資料庫

VB6集成調試環境左邊工具箱內已載入了有關資料庫編程必須的控制項。
然後在FORM1窗體中添加ADODC控制項和DATAGRID控制項，將DATAGRID1的屬性DATASOURCE選ADODC1。
打開ADODC1控制項屬性頁使用連接字元串，選生成。在提供者選項中選MICROSOFT jet 4.0 OLE DB Provider,然後按要求連接資料庫等。在ADODC1控制項屬性頁使用連接字元串空白文本窗口中就有一長串字元串，注意該字元串可復制到程序代碼用於編程。ADODC1控制項屬性頁的數據源內有命令文本（SQL）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用於編程。

③ 如何用VB建立資料庫

但即便如此，資料庫應用程序的開發仍然算得上是VB編程中的難點，這是因為你不僅要熟悉VB中關於資料庫編程方面的知識（當然這是十分簡單的）還要了解資料庫的知識。所以我們先介紹一下資料庫的基本知識，算是學習資料庫編程前的熱身運動吧！ 一、熱身運動 首先需要聲明是，我們這里介紹的資料庫知識都是指的關系資料庫。所謂關系資料庫就是將數據表示為表的集合，通過建立簡單表之間的關系來定義結構的一種資料庫。 不管表在資料庫文件中的物理存儲方式如何，它都可以看作一組行和列，與電子表格的行和列類似。在關系資料庫中，行被稱為記錄，而列則被稱為欄位。下面是一個客戶表的例子。 表1 客戶表 客戶號 姓名 地址 城市 街道 郵編 1723 Doe John 1234 Ffth Avenue New York NY 1004 3391 Smith Mary 9876 Myrtle Lavee Bosten MA 6078 3765 Blasel Mortimer 2296j River Road peoria IL 7011 此表中每一行是一個記錄，它包含了特定客戶的所有信息，而每個記錄則包含了相同類型和數量的欄位：客戶號、姓名等等。 表 是一種按行與列排列的相關信息的邏輯組，類似於工作單表。 欄位 資料庫表中的每一列稱作一個欄位。表是由其包含的各種欄位定義的，每個欄位描述了它所含有的數據。創建一個資料庫時，須為每個欄位分配一個數據類型、最大長度和其它屬性。欄位可包含各種字元、數字甚至圖形。 記錄 各個客戶有關的信息存放在表的行，被稱為記錄。一般來說，資料庫表創建時任意兩個記錄都不能相同。 鍵 鍵就是表中的某個欄位（或多個欄位），它（們）為快速檢索而被索引。鍵可以是唯一的，也可以是非唯一的，取決於它（們）是否允許重復。唯一鍵可以指定為主鍵，用來唯一標識表的每行。例如，在前面的例子中，客戶標識號 (客戶號) 是表的主鍵，因為客戶號唯一地標識了一個客戶。 關系 資料庫可以由多個表組成，表與表之間可以以不同的方式相互關聯。例如，客戶資料庫還可以有一個包含某個客戶的所有定單的表。它只用「客戶號」欄位來引用該定單的客戶，而不在定單表中的每項重復所有客戶信息，如下表所示: 表2 定貨表 定貨 客戶號 日期 內容 數量 14764 3391 2/23/94 27 $22.95 14932 3391 3/17/94 46 $9.57 15108 8765 2/15/96 27 $22.95 在這個表中，客戶號欄位引用了客戶表中的 客戶號欄位，從而把定單和客戶聯系起來了。可以看到，客戶 3391 (Mary Smith) 在 94 年 2 月 23 日訂購了 27 項，在 94 年 3 月 17 日訂購了 46 項。用來建立關系的鍵叫做外部鍵，因為它與「外部」表（客戶表）的主鍵關聯。 一對多和多對多關系 上表中的關系類型叫做一對多關系，因為一個客戶可以發出多個定單，而某個特定的定單只能是一個客戶所發。也可以建立多對多的關系。例如，列出所有可以銷售的項（存貨）的盤存表: 表3 盤存表 內容 描述 供應商 費用 盤存 27 Straw Hat Garden Supply Co. $14.00 50 46 Garden gloves Garden Supply Co. $4.50 75 102 hanging floral instries $6.00 137 從盤存表中，可以看到在客戶和存貨項之間存在多對多的關系。也就是說，一個客戶可以訂購多個存貨項，而一個存貨項又能夠被多個客戶訂購。多對多關系是通過兩個獨立的一對多關系來定義的，公共的「多」表包含了兩個其它表的外部鍵。在該例中，定貨s 表與 盤存 表（通過 「內容」）與 Customer 表（通過 客戶號）都相關聯。

④ vb加sql的圖片資料庫怎麼弄

'VB/VBA中實現資料庫中的文件存取

'示例資料庫為ACCESS資料庫,用SQL資料庫的話,只需要改連接字元串
'
'*************************************************************************
'**
'** 使用 ADODB.Stream 保存/讀取文件到資料庫
'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
'**
'** ----- 資料庫連接字元串模板 ---------------------------------------
'** ACCESS資料庫
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'** ";Data Source=資料庫名"
'**
'** SQL資料庫
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'** "User ID=用戶名;Password=密碼;Initial Catalog=資料庫名;Data Source=SQL伺服器名"
'**
'*************************************************************************
'
'保存文件到資料庫中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcStr As String

'ACCESS資料庫的連接字元串
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\My Documents\客戶資料1.mdb"

'SQL資料庫的連接字元串
iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
"User ID=用戶名;Password=密碼;Initial Catalog=資料庫名;Data Source=SQL伺服器名"
'讀取文件到內容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二進制模式,如果是用text/ntext欄位保存純文本數據,則改用 adTypeText
.Open
.LoadFromFile "c:\test.doc"
End With

'打開保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "表", iConc, adOpenKeyset, adLockOptimistic
.AddNew '新增一條記錄
.Fields("保存文件內容的欄位") = iStm.Read
.Update
End With

'完成後關閉對象
iRe.Close
iStm.Close
End Sub

'從資料庫中讀取數據,保存成文件
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConc As String

'資料庫連接字元串
iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=\\xz\c$\Inetpub\zj\zj\zj.mdb"

'打開表
Set iRe = New ADODB.Recordset
iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=64"

if iRe("img").ActualSize>0 Then

'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary '二進制模式,如果是用text/ntext欄位保存純文本數據,則改用 adTypeText
.Open
.Write iRe("img")
.SaveToFile "c:\test.doc"
End With

'關閉對象
iStm.Close
End If

iRe.Close
End Sub

⑤ 如何用vb建立 資料庫

自己編的一個報名系統，連接到數據文件（*.xml）的方式如下：

在項目中添加如下項（控制項）：
|名稱 |控制項名稱|
|Dialog1 |對話框 |
|Textbox1 |Textbox |
|Open |Button |
|Cancel |Button |
|Browse... |Button |
|OpenFileDialog1 |OpenFileDialog |

在原來要顯示資料庫的窗體上添加如下控制項：
|DataGridView1 |DataDridView |

在Dialog1.vb中添加如下代碼以連接到「Textbox1」中顯示的路徑（把文件中原有的「Public Class Dialog1」，「End Class」覆蓋）：

'*********************************************************
Imports System.Windows.Forms

Public Class Dialog1
Dim mydataset As New DataSet
Friend hasfile As Boolean = False

Private Sub cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancel.Click
Me.Close()
End Sub

Private Sub browse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles browse.Click
On Error GoTo err
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
Exit Sub
End If
TextBox1.Text = OpenFileDialog1.FileName
Exit Sub
err:
Exit Sub
End Sub

Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click
On Error GoTo err
Form1.mydataset.ReadXml(TextBox1.Text)
Form1.DataGridView1.DataSource = Form1.mydataset.Tables("Person")
Me.Close()
Exit Sub
err:
MsgBox("Sign Up System 在打開文件時出現異常!", MsgBoxStyle.Exclamation)
End Sub
End Class
'*********************************************************

註：
xml文件的新建可以使用以下語句：

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "<?xml version=""1.0"" standalone=""yes""?><Mytable> <Person> <代碼 /> <參賽號 /> <報名方式 /> <姓名 /> <區 /> <年級 /> <學校 /> <郵編 /> <地址 /> <聯系電話 /> <指導老師 /> <獲獎情況 /> <備注_1 /> <備注_2 /> <備注_3 /> </Person></Mytable>", False)

⑥ 如何用VB建立資料庫

打開vb6.0
編譯環境
外接程序---可視化數據管理器--文件--新建
這樣就可以建立
常用的各種類型資料庫
新建完
在資料庫窗口~右鍵滑鼠-新建表

⑦ vb程序 怎麼把圖片寫入資料庫並讀出來顯示

1.使用存取文件路徑的方法存取圖片
保存文件名與保存其他字元型數據的方法相同，其代碼如下：
Dim photoFilename as String
photoFilename = CommonDialog1.FileName
rs1.AddNew
rs1.Fields("photo")= photoFilename
rs1.Update
2.使用AppendChunk方法將二進制文件存入資料庫中
下面使用AppendChunk方法將不同類型的文件存入到資料庫中，程序主要代碼如下：
Const BLOCKSIZE = 4096
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
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
'判斷文件是否存在
If Dir(DiskFile) <> "" Then
SourceFile = FreeFile
'打開二進制文件
Open DiskFile For Binary Access Read As SourceFile
FileLength = LOF(SourceFile)
'判斷文件是否空
If FileLength = 0 Then
Close SourceFile
MsgBox DiskFile & "文件無內容，請重新指定文件！", vbExclamation, "注意"
Else
'得到數據塊的個數
NumBlocks = FileLength \ BLOCKSIZE
'得到剩餘位元組數
LeftOver = FileLength Mod BLOCKSIZE
Fld.Value = Null
ReDim byteData(BLOCKSIZE)
For i = 1 To NumBlocks
Get SourceFile, , byteData()
'用Appendchunk方法將byteData()數據寫入FLD
Fld.AppendChunk byteData()
DoEvents
Next i
'將剩餘數據寫入FLD
ReDim byteData(LeftOver)
Get SourceFile, , byteData()
Fld.AppendChunk byteData()
Close SourceFile
End If
Else
MsgBox "文件不存在，請重新指定文件！", vbExclamation, "注意"
End If
End Sub
3.使用Stream對象將二進制文件存入資料庫
在ADO2.5以上版本中提供了一個Stream對象，該對象的引入大大簡化了二進制欄位的存取操作，但使用前需要引用ADO 2.5Library以上的版本
下面使用Stream對象將各種類型的文件存入到資料庫中，程序代碼如下：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mst As New ADODB.Stream
Private Sub cmdSave_Click()
rs.Open "select * from 文件表", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("名稱") = Text1.Text
mst.Type = adTypeBinary
mst.Open
If Text2.Text <> "" Then mst.LoadFromFile Text2.Text
rs.Fields("文件") = mst.Read
rs.Update
mst.Close
rs.Close
End Sub
Private Sub Command1_Click()
On Error GoTo Err
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
Exit Sub
Err:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wjgl.mdb;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub

⑧ 如何向VB資料庫內添加照片，資料庫為access，謝謝。

1、建立一個ACCESS資料庫。然後創建新表，比如你想把圖片放在名為 「圖片」欄位中，那麼設置 欄位 數據類型 為「OLE 對象」。
2.VB代碼內容
Set Cn = New ADODB.Connection
Cn.ConnectionString = ";DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\aaa.MDB"
Cn.Open
Set Rs = New ADODB.Recordset
Rs.Open "select * from stock", Cn, adOpenStatic, 3
Set mst = New ADODB.Stream
mst.Type = adTypeBinary
mst.Open
mst.LoadFromFile mystr
Rs.AddNew
Rs.Fields("圖片").Value = mst.Read
Rs.Update
Rs.Close
Cn.Close

⑨ 求助：如何用VB做一個照片管理軟體

你的問題有點大，不知道你掌握了多少。
分解下：1、打開並顯示圖片文件 2、給圖片添加備注並保存3、維護圖片資料庫
1比較簡單，用一個通用對話框打開文件並用 LoadPicture 在PictureBox 里打開即可
2給圖片添加額外信息，這需要建立一個資料庫，簡單點可以用文本文件，但維護比較麻煩，如果你懂XML可以用XML，否則用現成的資料庫系統（ACCESS，SQLSERVER之類）
3其實跟2類似的，但更注重資料庫的數據維護，比如讀取保存圖片、添加刪除記錄等等

⑩ 如何用vb創建資料庫 求高手

'代碼創建一個Access資料庫和一張表，其中「序號」欄位為自動編號
Private Sub xjdata()
On Error GoTo aaa

Dim cat As New ADOX.Catalog
Dim pstr As String
Dim fm As String
Dim tb1 As ADOX.Table
Dim col As ADOX.Column
Set tb1 = New ADOX.Table
On Error GoTo xjerr
CommonDialog1.Filter = "MDB文件（*.mdb）|*.mdb|AllFiles(*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.Path
CommonDialog1.Flags = 6
CommonDialog1.FileName = Date & Space(1) & Hour(Now) & Minute(Now)
CommonDialog1.Action = 2
If CommonDialog1.FileName = "" Then
MsgBox "你必須輸入一個資料庫文件名，請重新保存一次！", ""
Else
fm = CommonDialog1.FileName
End If
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Data Source=" & fm
cat.Create pstr
cat.ActiveConnection = pstr
tb1.Name = "sjb"

Set col = New ADOX.Column
col.ParentCatalog = cat
col.Type = ADOX.DataTypeEnum.adInteger ' // 必須先設置欄位類型
col.Name = "序號"
col.Properties("Jet OLEDB:Allow Zero Length").Value = False
col.Properties("AutoIncrement").Value = True
tb1.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0

tb1.Columns.Append "電壓", adSingle
tb1.Columns.Append "電流", adSingle
tb1.Columns.Append "輸入功率", adSingle
tb1.Columns.Append "轉速", adSingle
tb1.Columns.Append "轉矩", adSingle
tb1.Columns.Append "輸出功率", adSingle
tb1.Columns.Append "效率", adSingle
cat.Tables.Append tb1
xjerr:
If err.Number = 32755 Then Exit Sub 『捕捉 取消 的錯誤信息
aaa:
End Sub