שינוי מקור מסד נתונים אקסס

chagold

איך ניתן לשנות/להגדיר לפרוייקט אקסס (המשתמש בSQL SERVER או בכל מסד נתונים חיצוני בשרת) את ערך מאפיין מקור המסד נתונים (המאפיין CurrentProject.Connection) דרך הVBA.

תודה למסייעים.

פורסם במקור בפורום CODE613 ב14/07/2016 00:28 (+03:00)

clickone

זה פרוייקט ADP?

או ACCDB?

אם זה ADP, אז יש לך את זה:

Function ChangeADPConnection(strServerName As String, strDBName As _
   String, Optional strUN As String, Optional strPW As String) As Boolean
Dim strConnect As String
On Error GoTo EH:
Application.CurrentProject.CloseConnection
'The Provider, Data Source, and Initial Catalog arguments are required.
strConnect = "Provider=SQLOLEDB.1" & _
";Data Source=" & strServerName & _
";Initial Catalog=" & strDBName
If strUN <> "" Then
    strConnect = strConnect & ";user id=" & strUN
    If strPW <> "" Then
        strConnect = strConnect & ";password=" & strPW
    End If
Else  'Try to use integrated security if no username is supplied.
    strConnect = strConnect & ";integrated security=SSPI"
End If
Application.CurrentProject.OpenConnection strConnect
ChangeADPConnection = True
Exit Function
EH:
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Connection Error"
ChangeADPConnection = False
End Function

מקור
https://support.microsoft.com/en-us/kb/306881

פורסם במקור בפורום CODE613 ב14/07/2016 11:50 (+03:00)

chagold

דבר ראשון -- תודה רבה.
דבר שני, אני עדיין מסופק אם לעשות את הפרויקט בADP או בטבלאות מקושרות.
אז 2 שאלות:
א' האם יש איזו המלצה לכאן או לכאן?
ב' בטבלאות מקושרות איך מעדכנים את מקור הטבלאות בVBA?

ושוב תודה.

פורסם במקור בפורום CODE613 ב14/07/2016 14:20 (+03:00)

chagold

על שאלה ב' מצאתי:
https://support.microsoft.com/en-us/kb/892490

על שאלה א' - אשמח לקבל המלצות.
תודה

פורסם במקור בפורום CODE613 ב14/07/2016 21:14 (+03:00)

תחומים - פורום חרדי מקצועי

שינוי מקור מסד נתונים אקסס