بازکردن پایگاه داده sql server

[pooyaco]

چطور می توان توسط برنامه نویسی به یک پایگاه داده sql server متصل شد

[karmand]

connDate.Open "Driver={SQL Server};Server=نام سرور;Uid=نام کاربر;Pwd=پسورد;Database=نام دیتابیس;"

[pooyaco]

باتشکر
اگر ممکن هست با ذکر یک مثال ویا یک نمونه برنامه شرح دهید

[pooyaco]

Public Sub ChangeDB(NewDBName As String)
Dim ConnectStr As String
Dim InitCat As String, StartPos As Integer, EndPos As Integer

ConnectStr = CurrentProject.BaseConnectionString

StartPos = InStr(1, ConnectStr, "Initial Catalog", 1)
StartPos = InStr(StartPos + 15, ConnectStr, "=") + 1 'adjust for equals sign
EndPos = InStr(StartPos, ConnectStr, ";")
If EndPos = 0 Then
ConnectStr = Left(ConnectStr, StartPos - 1) + NewDBName
Else
ConnectStr = Left(ConnectStr, StartPos - 1) + NewDBName + Right(ConnectStr, Len(ConnectStr) - EndPos + 1)
End If
DoCmd.Close
CurrentProject.OpenConnection ConnectStr
End Sub