Connect vb to access
รบกวนถามนิดนึงครับ พอดีผมติดปัญหาเรื่อง การ connect นะครับ ตอนนี้ใช้แบบนี้อยู่นะครับPublic Con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Project\DatabaseLogin.accdb")
แบบนี้ connect ได้แค่ ได D พอดีผมอยากสอบถาม แบบว่าเอาโปรแกรม ไปไวที่ไหนก็สามารถ ติดต่อ ฐานข้อมูลได้นะครับ ขอบคุณร่วงหน้าครับ
เวลาที่ Build Project ทั้งโหมด Debug หรือ Release ตำแหน่งของไฟล์จะแบ่งออกเป็น
กรณี Windows 64 บิท จะอยู่ที่
"\bin\debug"
"\bin\release"
หรือ Windows 32 บิท
"\bin\x86\debug"
"\bin\x86\release"
สมมุติอ่านค่า Application.StartupPath ได้เป็น
C:\Project VB.Net\ConnectAccessNET\bin\debug
เราจะถอยหลังโดยการตัด \bin\debug ทิ้งออกไป โดยการเปรียบเทียบค่าเพื่อให้เป็น
C:\Project VB.Net\ConnectAccessNET
' / --------------------------------------------------------------------------------
' / Get my project path
' / AppPath = C:\My Project\bin\debug
' / Replace "\bin\debug" with ""
' / Return : C:\My Project\
Function MyPath(AppPath As String) As String
'/ MessageBox.Show(AppPath);
AppPath = AppPath.ToLower()
'/ Return Value
MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
'// If not found folder then put the \ (BackSlash) at the end.
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
End Function
(ข้อผิดพลาดในการแสดงผล เพราะมันไม่โชว์เครื่องหมาย \) แก้ไขบรรทัดก่อน End Function ...
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
การนำไปใช้งาน:
Dim strPathData As String = MyPath(Application.StartupPath) & "ไฟล์ MS ACCESS"
หน้า:
[1]