Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim sConn As String, sSQL As String, sServer As String
Dim rst As ADODB.Recordset, cnn As ADODB.Connection
Set cnn = New ADODB.Connection
sServer = "DWPROD"
cnn.Open "Driver={Microsoft ODBC for Oracle};" & _
"Server=" & sServer & ";" & _
"Uid=;" & _
"Pwd="
Set rst = New ADODB.Recordset
sSQL = "SELECT Sum(A.STKITQTY_233+A.STKOHQTY_233+A.QTYONDOK_233) AS Inv_Qty "
sSQL = sSQL & "FROM FRH_MRP.PSK02233 A "
sSQL = sSQL & "Where A.PARTNO_201='" & Trim(sPN) & "' "
sSQL = sSQL & " And STORETYP_233<>'W' "
rst.Open sSQL, cnn, adOpenStatic, adLockReadOnly, adCmdText
.....