vbs文件怎样能实现连接Oracle的功能

发布网友发布时间：2022-05-06 06:59

共1个回答

热心网友时间：2022-06-28 23:25

1. Open a new project in Visual Basic and add a Reference to the Microsoft ActiveX Data Objects library.
2. Place the following controls on the form:
Control Name Text/Caption

Button cmdCheck Check
Button cmdSend Send
Text Box txtInput
Label lblInput Input:

3.
From the Tools menu, choose Options, Click the "Default Full Mole
View" option, and then click OK. This allows you to view all of the code
for this project.
4. Paste the following code into your code window:
Option Explicit
Dim Cn As ADODB.Connection
Dim CPw1 As ADODB.Command
Dim CPw2 As ADODB.Command
Dim Rs As ADODB.Recordset
Dim Conn As String
Dim QSQL As String

Private Sub cmdCheck_Click()

CPw1(0) = Val(txtInput.Text)

Set Rs = CPw1.Execute

MsgBox "Item_Number = " & Rs(0) & ". Depot_Number = " & Rs(1) & "."

Rs.Close

End Sub

Private Sub cmdSend_Click()

CPw2(0) = Val(txtInput.Text)

CPw2.Execute

MsgBox "Return value from stored procere is " & CPw2(1) & "."

End Sub

Private Sub Form_Load()

'You will need to replace the "*" with the appropriate values.
Conn = "UID=*****;PWD=****;DRIVER={Microsoft ODBC for Oracle};" _
& "SERVER=*****;"

Set Cn = New ADODB.Connection

With Cn
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With

QSQL = "Select Item_Number, Depot_Number From adooracle Where " _
& "item_number = "

Set CPw1 = New ADODB.Command

With CPw1
.ActiveConnection = Cn
.CommandText = QSQL
.CommandType = adCmdText
.Parameters.Append .CreateParameter(, adInteger, adParamInput)
End With

QSQL = "adoinsert"

Set CPw2 = New ADODB.Command

With CPw2
.ActiveConnection = Cn
.CommandText = QSQL
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter(, adInteger, adParamInput)
.Parameters.Append .CreateParameter(, adDouble, adParamOutput)
End With

End Sub

Private Sub Form_Unload(Cancel As Integer)

Cn.Close
Set Cn = Nothing
Set CPw1 = Nothing
Set CPw2 = Nothing

End Sub