VBA 从oracle取数据

Private Sub btn查询_Click()
Dim conn As New ADODB.Connection
Dim strConn As String
strConn = "Provider=OraOLEDB.Oracle.1; user id="
strConn = strConn & txt用户名.Value
strConn = strConn & "; password=" & txt密码.Value
strConn = strConn & ";data source = " & txt数据库.Value
strConn = strConn & "; Persist Security Info=true"
conn.Open strConn
Call 查询.数据化分析(conn)
conn.Close '关数据库
MsgBox ("查询完成！！")
End Sub

Private Sub btn退出_Click()
Unload Me
End Sub

Private Sub txt数据库_Change()

End Sub

 

 

Sub add_menu()
Dim wsmenubar As