I'm not sure where I should post this as it is an Access 2013, Windows 7 and perhaps SQL server question.
Using the following code, I can run it fine locally from the run window. However, I cannot run the VBS code from Internet Explorer. I get this error, "Provider cannot be found. It may not be properly installed." Code 800AO7A, source ADODB. Connection. I suspect it is a port issue with 1433, but I'm not sure. How can I resolve this issue?
Dim strCurrentRACFDim strName
Dim ErrMsg
Dim connStr
Dim strRunSQL
Dim objConn
Dim txtUserNumber
Dim atl3270Tool
'Set atlDirectorObject = CreateObject("atlDirectorObject.atlDirector") 'Reenable later
'atlDirectorObject.CreateTool "3270", 0, True, True atl3270Tool, ErrMsg 'Reenable later
'objDirector.CreateTool("3270", 1, True, True, 0, obj3270Tool, strDirErr)
'atlDirectorObject.CreateTool "3270",0, True, True,0, atl3270, ErrMsg
'strCurrentRACF = atlDirectorObject.CurrentRACFId
'strName = atlDirectorObject.UserName 'Reenable later
strName = "Roberto"
txtUserNumber = InputBox("Please put in a loan number") 'renable later
connStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\rbirch\Desktop\example.accdb"
Set objConn = CreateObject("ADODB.Connection")
strRunSQL = "INSERT INTO PEOPLE (Fname, Loan) VALUES ( '"& strName &"', '"& txtUserNumber &"');" 'change config strName 'check outside of MSP
msgbox strRunSQL
objConn.Open(connStr) ' this line errored out
objConn.Execute strRunSQL
'strName = "Thrawn"
strRunSQL = "INSERT INTO PEOPLE (Fname, Loan) VALUES ( '"& strName &"', '"& txtUserNumber &"');" 'change config strName 'check outside of MSP
objConn.Execute strRunSQL
objConn.Close