สร้าง odbc_connect อัตโนมัติ

สร้าง odbc_connect อัตโนมัติ





Private Sub RegisterDataSource()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Build keywords string.
strAttribs = "Description=" _
      & "SQL Server on server SEQUEL" _
   & Chr$(13) & "OemToAnsi=No" _
   & Chr$(13) & "SERVER=SEQUEL" _
   & Chr$(13) & "Network=DBNMPNTW" _
   & Chr$(13) & "Database=WorkDB" _
   & Chr$(13) & "Address=SEQUELPIPESQLQUERY"

' Create new registered DSN.
rdoEngine.rdoRegisterDataSource "Example", _
      "SQL Server", True, strAttribs
' Open the database.
Set en = rdoEngine.rdoEnvironments(0)
Set cnTest = en.OpenConnection( _
   dsname:="Example", _
   Prompt:=rdDriverNoPrompt, _
   Connect:="UID=;PWD=;")
End Sub


ฝากติดตามผลงานด้านล่างด้วยครับ
--------------------------
► Website : https://www.siamfocus.com/
► LINE@ : https://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Google+ : https://plus.google.com/+TAAMSiAMFOCUS
► Instagram : https://www.instagram.com/iamtaam
--------------------------








บทความ แนะนำ

เทศกาลส่งความสุข

เทศกาลส่งความสุข

เดือนสุดท้ายของปี เทศกาลแห่งการเฉลิมฉลองกำลังจะมาถึง นอกจากจะหยุดติดต่อกันยาวๆ แล้ว เทศกาลปีใหม่ ...

Man-Day กับ การทำเว็บไซต์

Man-Day กับ การทำเว็บไซต์

ย่อๆ สรุปก่อน Man-Day คือ ค่าจ้างรายวันต่อคน เช่นทำงาน 1 วันจะต้องคิดเท่าไหร่ ย่อยลงมาก็จะ...

โดเมนกับโฮสติ้ง

โดเมนกับโฮสติ้ง

วันนี้ ผมจะมาเล่าเรื่องโดเมนกับโฮสติ้งให้ฟังครับ หลักการและเหตุผลคือ เมื่อเราจะทำเว็บไซต์หรือต้อง...

วิธีสังเกตมะเร็ง 14 ชนิด

วิธีสังเกตมะเร็ง 14 ชนิด

วิธีสังเกตอาการเบื้องต้นของมะเร็งชนิด ต่างๆ อาการของ การเกิดมะเร็งในอวัยวะต่าง ๆ ของร่างกาย 1. ม...

mysql update with replace

mysql update with replace

รูปแบบ update [table_name] set [field_name] = replace([field_name],'[string_to_find]',...




หมวดหมู่บทความ