ช่วยดูให้หน่อยค่ะ ?
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 323   1
URL.หัวข้อ / URL
ช่วยดูให้หน่อยค่ะ ?

คือมี 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

1 @R06420
เพิ่ม Database Password=password; ลงไปครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0376s