VBA कोड प्राथमिक कुंजी के साथ लिंक की गई तालिका को जोड़ने के लिए

लिंक करने के बाद आप किसी ODBC स्रोत के लिए अनुक्रमणिका क्यों नहीं बना सकते?

काम पर, हम लिंक किए गए SQL सर्वर तालिकाओं के साथ एक्सेस का उपयोग कर रहे हैं, और जब कोई किसी भिन्न डेटाबेस से कनेक्ट करना चाहता है (उत्पादन वातावरण से परीक्षण वातावरण में परिवर्तन), तो हम सभी तालिकाओं के लिए ऐसा कुछ करते हैं:

Dim TD As TableDef
Dim ConString As String

ConString = "ODBC;DRIVER={SQL Server};SERVER=ServerName;DATABASE=DbName;Trusted_Connection=Yes;"

CurrentDb.TableDefs.Delete "SomeTable"

Set TD = CurrentDb.CreateTableDef("SomeTable", 0, "SomeTable", ConString)
CurrentDb.TableDefs.Append TD
Set TD = Nothing

CurrentDb.Execute "CREATE UNIQUE INDEX SomeIndex ON SomeTable (PrimaryKeyColumn) WITH PRIMARY"