I'm having this "odbc sql server cannot generate sspi context error", but if I try to ping the IP address of the remote server I'm able to get a reply, even seeing/editing the shared folders from the server I have no problem. Now when I login in the Sql server instance I cannot see the window network users except the host. By the way I.m trying to connect by using a router which is just the same as the normal internet.
(1) I made sure that TPC/IP address is enabled and a static port 1433 is inserted on All IPV under TPC/IP field
(2) I restarted the SQL server under services after the above changes for it to take effect
(3) I enabled the window fire wall and also set the new bound rule and attached the static port 1433
(4) Under services I made sure that the SQL browser is added and running on automatic
(5) I have also allowed the remote connection in the Sql Server Studio Management
The fact that I cannot see the network users or the directory then its not possible for me to add/grant users permissions to my database called Accounting
Below is my Less DNS File ODBC string which I composed to connect to the SQL database:
(1) I made sure that TPC/IP address is enabled and a static port 1433 is inserted on All IPV under TPC/IP field
(2) I restarted the SQL server under services after the above changes for it to take effect
(3) I enabled the window fire wall and also set the new bound rule and attached the static port 1433
(4) Under services I made sure that the SQL browser is added and running on automatic
(5) I have also allowed the remote connection in the Sql Server Studio Management
The fact that I cannot see the network users or the directory then its not possible for me to add/grant users permissions to my database called Accounting
Below is my Less DNS File ODBC string which I composed to connect to the SQL database:
Code:
Private Sub Form_Open(Cancel As Integer)
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Len(tdf.Connect) > 0 Then
tdf.Connect = "ODBC;DRIVER=SQL Server; " & _
"SERVER=NECTORPRIME\SQLExpress;DATABASE=Accounting;Trusted_Connection=Yes"
tdf.RefreshLink
End If
Next tdf
Set tdf = Nothing
Set dbs = Nothing
If (Date > #12/31/2022#) Then
MsgBox "Your database has expired contact the developer." & vbCrLf & "Please contact us at our official email address" & vbCrLf & "or at 260977352401 for the latest version.", vbInformation + vbOKOnly, "Subscription Expired!"
Cancel = True
Application.Quit
Exit Sub
End If
End Sub