ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 68|ตอบกลับ: 1

Connect vb to access

[คัดลอกลิงก์]

3

กระทู้

15

โพสต์

79

เครดิต

Member

Rank: 2

เครดิต
79

รบกวนถามนิดนึงครับ พอดีผมติดปัญหาเรื่อง การ connect นะครับ ตอนนี้ใช้แบบนี้อยู่นะครับ
Public Con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Project\DatabaseLogin.accdb")
แบบนี้ connect ได้แค่ ได D พอดีผมอยากสอบถาม แบบว่าเอาโปรแกรม ไปไวที่ไหนก็สามารถ ติดต่อ ฐานข้อมูลได้นะครับ ขอบคุณร่วงหน้าครับ

161

กระทู้

202

โพสต์

1521

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
1521
โพสต์ 2019-2-1 11:37:52 | ดูโพสต์ทั้งหมด

เวลาที่ 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

  1.     ' / --------------------------------------------------------------------------------
  2.     ' / Get my project path
  3.     ' / AppPath = C:\My Project\bin\debug
  4.     ' / Replace "\bin\debug" with ""
  5.     ' / Return : C:\My Project\
  6.     Function MyPath(AppPath As String) As String
  7.         '/ MessageBox.Show(AppPath);
  8.         AppPath = AppPath.ToLower()
  9.         '/ Return Value
  10.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
  11.         '// If not found folder then put the \ (BackSlash) at the end.
  12.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
  13.     End Function
คัดลอกไปที่คลิปบอร์ด

(ข้อผิดพลาดในการแสดงผล เพราะมันไม่โชว์เครื่องหมาย \) แก้ไขบรรทัดก่อน End Function ...

If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"


การนำไปใช้งาน:
Dim strPathData As String = MyPath(Application.StartupPath) & "ไฟล์ MS ACCESS"



สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2019-2-22 19:57 , Processed in 0.276864 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้