- Tema Autor
- #1
Saludos hermanos espero me puedan ayudar, estoy tratando de conectar coin vb net 2003 a una bd en oracle y me marca error.
Imports System.Data.OracleClient
Imports System.Data.Odbc
Public STRCONN As String
'Public CN As New OleDbConnection(STRCONN)
'Public CN As New OracleConnection
Public CN As New OdbcConnection
Public SQLSTATEMENT As String = "SELECT * FROM USUARIOS ORDER BY LOGIN"
'Public MICOMMAND As New OleDbCommand(SQLSTATEMENT, CN)
'Public MICOMMAND As New OracleCommand(SQLSTATEMENT, CN)
Public MICOMMAND As New OdbcCommand(SQLSTATEMENT, CN)
'Public DA As New OleDbDataAdapter
'Public DA As New OracleDataAdapter
Public DA As New OdbcDataAdapter
Public DS As New DataSet
Public DR As DataRow
'Public CB As New OleDbCommandBuilder(DA)
'Public CB As New OracleCommandBuilder(DA)
Public CB As New OdbcCommandBuilder(DA)
Public DT As DataTable = DS.Tables("USUARIOS")
DS.Clear()
'STRCONN = "PROVIDER=MSDAORA.1; PASSWORD=12345;user id=MIUSUARIO;data source=DBACONECTAR;"
'STRCONN = "PROVIDER=MICROSOFT ODBC for ORACLE; PASSWORD=12345;user id= MIUSUARIO; Data Source=11.111.111.11;"
STRCONN = "Provider=MSDASQL.1;Persist Security Info=False;User ID=MIUSUARIO;PWD=12345;Data Source=BDACONECTAR;"
'STRCONN = "PROVIDER=MICROSOFT ODBC for ORACLE;UID=MIUSUARIO;PWD=12345;Data Source=(DESCRIPTION=(ADDRESS_LIST =(ADDRESS=(PROTOCOL=TCP)(HOST=11.111.111.111)PORT = 1521)))(CONNECT_DATA=(SID = BDACONECTAR)))"
'STRCONN = "Provider=MSDASQL.1;Persist Security Info=False; PASSWORD=12345; User ID=MIUSUARIO;Data Source=dBASE Files;DriverId=533;MaxBufferSize=2048;PageTimeout=5;UID=BDACONECTAR;"
'user id=MIUSUARIO;data source=BDACONECTAR;persist security info=False
CN.ConnectionString = STRCONN
CN.Open()
DA.SelectCommand = MICOMMAND
DA.Fill(DS, "USUARIOS")
For Each DR In DS.Tables.Item("LOGIN").Rows
ComboBox1.Items.Add(DR.Item("LOGIN"))
Next
CN.Close()
ya intente con odbc y oracle cliente y manda error al momento de tratar de abrir (CN.open)
error enviado
An unhandled exception of type ‘System.Data.Odbc.Odbcexceptio’ occurred in system.data.dll
Imports System.Data.OracleClient
Imports System.Data.Odbc
Public STRCONN As String
'Public CN As New OleDbConnection(STRCONN)
'Public CN As New OracleConnection
Public CN As New OdbcConnection
Public SQLSTATEMENT As String = "SELECT * FROM USUARIOS ORDER BY LOGIN"
'Public MICOMMAND As New OleDbCommand(SQLSTATEMENT, CN)
'Public MICOMMAND As New OracleCommand(SQLSTATEMENT, CN)
Public MICOMMAND As New OdbcCommand(SQLSTATEMENT, CN)
'Public DA As New OleDbDataAdapter
'Public DA As New OracleDataAdapter
Public DA As New OdbcDataAdapter
Public DS As New DataSet
Public DR As DataRow
'Public CB As New OleDbCommandBuilder(DA)
'Public CB As New OracleCommandBuilder(DA)
Public CB As New OdbcCommandBuilder(DA)
Public DT As DataTable = DS.Tables("USUARIOS")
DS.Clear()
'STRCONN = "PROVIDER=MSDAORA.1; PASSWORD=12345;user id=MIUSUARIO;data source=DBACONECTAR;"
'STRCONN = "PROVIDER=MICROSOFT ODBC for ORACLE; PASSWORD=12345;user id= MIUSUARIO; Data Source=11.111.111.11;"
STRCONN = "Provider=MSDASQL.1;Persist Security Info=False;User ID=MIUSUARIO;PWD=12345;Data Source=BDACONECTAR;"
'STRCONN = "PROVIDER=MICROSOFT ODBC for ORACLE;UID=MIUSUARIO;PWD=12345;Data Source=(DESCRIPTION=(ADDRESS_LIST =(ADDRESS=(PROTOCOL=TCP)(HOST=11.111.111.111)PORT = 1521)))(CONNECT_DATA=(SID = BDACONECTAR)))"
'STRCONN = "Provider=MSDASQL.1;Persist Security Info=False; PASSWORD=12345; User ID=MIUSUARIO;Data Source=dBASE Files;DriverId=533;MaxBufferSize=2048;PageTimeout=5;UID=BDACONECTAR;"
'user id=MIUSUARIO;data source=BDACONECTAR;persist security info=False
CN.ConnectionString = STRCONN
CN.Open()
DA.SelectCommand = MICOMMAND
DA.Fill(DS, "USUARIOS")
For Each DR In DS.Tables.Item("LOGIN").Rows
ComboBox1.Items.Add(DR.Item("LOGIN"))
Next
CN.Close()
ya intente con odbc y oracle cliente y manda error al momento de tratar de abrir (CN.open)
error enviado
An unhandled exception of type ‘System.Data.Odbc.Odbcexceptio’ occurred in system.data.dll