Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

 << Topic List
ช่วยดูให้หน่อยค่ะ ?

Topic by Message Posted : on : 6/2/2547 15:34:56
ก้อย  คือมี Code ดังนี้ค่ะ

Private Function fIsJet4DB(strMDB As String) As Boolean
On Error GoTo ErrHandler
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;" _
& "Data Source=" & strMDB & ";Mode=Share Deny None;"
.Open
fIsJet4DB = (cnn.Properties("Jet OLEDB:Engine Type") = 5)
End With
ExitHere:
On Error Resume Next
cnn.Close
Set cnn = Nothing
Exit Function
ErrHandler:
With Err
MsgBox "Error Number: " & .Number & vbCrLf & .Description, _
vbCritical Or vbOKOnly, .Source
End With
Resume ExitHere
End Function

ถามว่า ถ้าFile MSAccess ตั้ง Password ไว้ จะต้องไปแก้ไข Code ตรงส่วนไหนค่ะ
กรุณาด้วยค่ะ ขอบคุณค่ะ

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 6/2/2547 20:16:22
สุภาพ
(R06420)
เพิ่ม Database Password=password; ลงไปครับ

Back to Top
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++