Public Function weity_DBConnectADONet(ByVal StrCon As String) As Boolean
Dim booReturnValue As Boolean
booReturnValue = False
If g_objConnection.State <> ConnectionState.Open Then
Try
g_objConnection.ConnectionString = StrCon
g_objConnection.Open()
booReturnValue = True
Catch myException As System.Exception
Call Weity_Errors("Database Connect ADO.Net", Err)
End Try
End If
Return booReturnValue
End Function
Public Function Weity_GetConnectString() As String
Dim FileName As String
'It was Hided At ..\Exe\
FileName = "weity.ini"
g_StrConnection = "Provider=MSDAORA.1;Password=" & "User ID=" & "Data Source="
Return g_StrConnection
End Function
都说现在出了一个ODP.net(Oracle Data Provider For .Net)很好用,在Oracle的主页上
有免费的下载,不过需要注册哦。
我看太大70M,而且我的公司网络不好,只好没有下。