Chuỗi kết nối ADO trong VBA cho Microsoft SQL

TÓM TẮT Bài viết này mô tả thông tin cần thiết để hiển thị một
pojectnes trên một cửa sổ cụ thể sẽ phải được truy xuất thông qua
một kết nối ADO.


THÔNG TIN THÊM Tùy chọn đầu tiên sẽ là mã hóa cố định ID người

dùng, Mật khẩu, Tên cơ sở dữ liệu và tên Nguồn Dữ liệu. Ví dụ về vấn đề này như sau:

(Chuỗi kết nối này sẽ nằm trên một dòng trong VBA).


ConnectionString="Provider=SQLOLEDB;DSN=eEnterprise; User=sa; Password=;InitialCatalog=TWO" DSN sẽ là nguồn dữ liệu ODBC được thiết lập cho SQL Server.In ví dụ này là


mật khẩu trống. Danh mục ban đầu là tên của cơ sở dữ liệu nơi lưu trữ dữ liệu.


Nếu không muốn mã hóa cứng thông tin này, có một tệp dll có thể được dùng để truy xuất tất cả các thông tin này. Tệp .dll này có thể được tìm thấy trên PartnerSource hoặc CustomerSource trong mục Tải xuống và & cập | Thông tin Phát hành Sản | Tiếp tục trong các Bản phát hành Sản phẩm eEnterprise | Điều chỉnh/Mẫu VBA. Tệp được gọi là
DLL ActiveX để truy xuất Thông tin Đăng nhập.


Tệp readme được bao gồm sẽ cho bạn biết cách khai báo các biến số để dùng tệp dll. Một ví dụ về mã sẽ khai báo các biến số và sau đó dùng các biến số trong chuỗi kết nối.


Dim userinfo As Object

Dim luserid As String

Dim lsqlpassword As String

Dim lintercompanyid as String

Dim lsqldatasourcename As String


Mã này sẽ xuất hiện trong một sự kiện mở cửa sổ.


Đặt userinfo = CreateObject("RetrieveGlobals.retrieveuserinfo")

luserid = userinfo.retrieve_user()

lsqlpassword = userinfo.sql_password()

lintercompanyid = userinfo.intercompany_id()

lsqldatasourcename = userinfo.sql_datasourcename()


Sau đó trong chuỗi kết nối, bạn sẽ sử dụng các biến số.

(This .connection string would be all on one line in VBA)


. ConnectionString="Provider=SQLOLEDB;DSN="+lsqldatasourcename+"; UserID="+luserid+";p assword="+lsqlpassword+";Initial Catalog="+lintercompanyid Sử dụng loại chuỗi kết nối này với retrieve.dll, truy xuất tên người dùng, mật khẩu, công ty họ đang đăng nhập và nguồn dữ liệu họ đang sử


dụng.

Bài viết này đã được TechKnowledge Document ID:22116