module1.bas

来自「This project solves the purpose of creat」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
    Global USCon As ADODB.Connection
    Global USRec As New ADODB.Recordset
    
Sub CnConnect(USDbase As String, USPass As String, USUser As String, USString As String)
    Set USCon = CreateObject("ADODB.Connection")
    USCon.ConnectionString = "Provider=OraOLEDB.Oracle;" & _
    "Data Source=" & USDbase & ";" & _
    "User ID=" & USUser & ";" & _
    "Password=" & USPass & ";" & _
    "PLSQLRSet=1;"
    USCon.Open
    Form1.Show
End Sub