This is my first time using AS/400, so I'm not sure if i am doing this right.
What I am trying to do is create a login application to the AS/400 using ASP. However, I have not create a DSN for the connection. But I'm going to use the connection string instead. When I run, it generates the following error msg:
ADODB.Connection error '800a0e7a'
Provider cannot be found. It may not be properly installed.
Here are my codes:
Dim objRS, objConn, strSQL, identification, userpassword
identification = Session("userID"
userpassword = Request.Form("Password"
strConnect = "Provider=IBMDA400;Data Source=S02;Transport Product=Client Access;SSL=DEFAULT; UID = '" & identification & "';" & _
"PWD = '" & userpassword & "'"
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open strConnect
strSQL = "SELECT * FROM tablename" & _
"WHERE tableField= '" & identification & "'"
Set objRS = objConn.Execute (strSQL)
Thank you!!
What I am trying to do is create a login application to the AS/400 using ASP. However, I have not create a DSN for the connection. But I'm going to use the connection string instead. When I run, it generates the following error msg:
ADODB.Connection error '800a0e7a'
Provider cannot be found. It may not be properly installed.
Here are my codes:
Dim objRS, objConn, strSQL, identification, userpassword
identification = Session("userID"
userpassword = Request.Form("Password"
strConnect = "Provider=IBMDA400;Data Source=S02;Transport Product=Client Access;SSL=DEFAULT; UID = '" & identification & "';" & _
"PWD = '" & userpassword & "'"
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open strConnect
strSQL = "SELECT * FROM tablename" & _
"WHERE tableField= '" & identification & "'"
Set objRS = objConn.Execute (strSQL)
Thank you!!