เรียนถามอาจารย์สุภาพ หรือท่านผู้รู้ครับ
เกี่ยวกับโค๊ดรูปภาพ ที่ใช้ Vb6 เขียนขึ้นครับ
และจะเขียน Souce Code อย่างไรให้ Load File Picture ขึ้นมาจาก Path ได้ โดยผมใช้
Database ของอาจารย์ ด่วนมากครับ


Dim Data As String
Dim connStr As String
Dim conn As adodb.Connection 'ฟ้อง Error บันทัดนี้ แจ้งว่า "Compile Error" - "User - defined type not defined"

โค๊ตนี้เป็นการ นำรูปไปไว้ใน ฐาน ข้อมูล Acceess แต่เป็นการอ้างอิง Path เพื่อที่จะรูปที่ได้ไปเก็บไว้ใน Path รูปภาพที่สร้างขึ้นไว้รอ หรือว่าต้องการในจุดไหนของ โค๊ดนี้
และอาจารย์ช่วยแก้ไข Souce ให้ด้วยนะครับ

Dim rec As adodb.Recordset
Dim sql As String
Dim fileName As String

Private Sub Command1_Click()
connStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\ShowPic.mdb"

Set conn = New adodb.Connection
conn.CursorLocation = adUseClient
conn.Open connStr

sql = "Select * From PicPath"
Set rec = New adodb.Recordset
rec.Open (sql)

fileName = App.Path & " \Pictures"

Open fileName For Binary As #1

Data = String(LOF(1), " ")
Get #1, 1, Data

rec.Addnew
rec!PicPath = Data
rec.Update

Data = ""
Close #1

Set rec = Nothing

End Sub

Private Sub GetPicture_Click()
On Error GoTo err
With CmmDialog
.DialogTitle = "เลือกรูป"
.CancelError = False
.Filter = "All Images|*.jpg;*.gif;*.bmp;*.wmf;*.dib|All Files (*.*)|*.*"
On Error Resume Next
.ShowOpen
If err > 0 Then Exit Sub
Picbox.Picture = LoadPicture(CmmDialog.fileName)
If Picbox.Picture <> 0 Then
End If
End With
Exit Sub
err:

End Sub