16,722
社区成员




Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myConnection As OleDbConnection
Dim myOracleDataAdapter As OleDbDataAdapter
myConnection = New OleDbConnection("DNS=192.168.1.168;provider=OraOLEDB.Oracle.1;Data Source=myoracle;user id=scott;password=tiger")
Try
myConnection.Open()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class
Imports System.Data.OracleClient '引用,如果不能添加请到Oracle官方下载oracle_net.msi
Public Class Form1
'连接字符串
Dim strConn As String = "user id=system;password=manager;data source=test;"
Dim mcon As New OracleConnection(strConn)
Dim Mcom As New OracleCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
mcon.Open()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class