Вывести VBScript в IE Explorer, используя ActiveX? - PullRequest
Новая
       31

Вывести VBScript в IE Explorer, используя ActiveX?

0 голосов
/ 08 апреля 2019

Я пытаюсь вывести этот код VBScript, который я запускаю через ActiveX, будут ли какие-либо изменения, которые я могу сделать, чтобы это было передано на веб-страницу? 

Dim intResult
Dim strDatabase
Dim strUserName
Dim strPassword
Dim strSQL
Dim dbDatabase
Dim snpData
'On Error Resume Next
strDatabase = "xxx" 'From tnsnames.ora
strUserName = "seno00_ro"
strPassword = "seno00_ro"
Set snpData = CreateObject("ADODB.Recordset")
Set dbDatabase = CreateObject("ADODB.Connection")
dbDatabase.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source="     & strDatabase & ";User ID=" & strUserName & ";Password=" & strPassword & ";"
dbDatabase.Open
If (dbDatabase.State = 1) And (Err = 0) Then
    strSQL = "SELECT" & vbCrLf
    strSQL = strSQL & "  SYSDATE CURRENT_DATE" & vbCrLf
    strSQL = strSQL & "FROM" & vbCrLf
    strSQL = strSQL & "  DUAL"
        snpData.Open strSQL, dbDatabase 
    If snpData.State = 1 Then
        If Not (snpData.EOF) Then
            Do While Not (snpData.EOF)
                MsgBox snpData("current_date")
                snpData.MoveNext
            Loop
        End If
        snpData.Close
    End If
Else
    intResult = MsgBox("Could not connect to the database.  Check your     user name and password." & vbCrLf & Error(Err), 16, "Oracle Connection Demo")
End If
dbDatabase.Close
Set snpData = Nothing
Set dbDatabase = Nothing

Спасибо за любой совет, япытаясь установить соединение с базой данных, но в среде без сервера ... есть ли шанс?

...