Wrox Home  
Search P2P Archive for: Go

  Return to Index  

aspx_beginners thread: RES: how to connect to oracle?


Message #1 by "Welliton Toledo (welliton@r... on Wed, 31 Jul 2002 08:28:33 -0300
Instal ODP.NET for Oracle.
ODP.NET:  http://otn.oracle.com/tech/windows/odpnet/content.html

And use something near this here:

        Public Function BDConecta() As OraConnection

            Dim strConn As String

            strConn =3D "User Id=3D" & Current.Session("Usuario") & ";"
            strConn +=3D "Password=3D" & Current.Session("SenhaOracle") 
& ";"
            strConn +=3D "Data Source=3D" & 
Current.Application("Instancia") &
";"

            Dim conn As OraConnection =3D New OraConnection(strConn)
            conn.Open()

            Return conn

        End Function

        Public Function BDDA(ByVal strTabela As String, Optional ByVal
strSQL As String =3D "") As OraDataAdapter

            If strSQL.Length =3D 0 Then
                strSQL =3D "SELECT * FROM " & strTabela
            End If

            BDDA =3D New OraDataAdapter(strSQL,
Current.Session("Conexao").ToString())

        End Function

        Public Function BDDS(ByVal strTabela As String, Optional ByVal
strSQL As String =3D "") As DataSet

            If strSQL.Length =3D 0 Then
                strSQL =3D "SELECT * FROM " & strTabela
            End If

            Dim da As OraDataAdapter
            da =3D BDDA(strTabela, strSQL)

            'dataset
            BDDS =3D New DataSet()
            da.Fill(BDDS, strTabela)

        End Function

        Public Function BDDR(ByVal strTabela As String, Optional ByVal
strSQL As String =3D "") As OraDataReader

            Dim command As OraCommand

            If strSQL.Length =3D 0 Then
                strSQL =3D "SELECT * FROM " & strTabela
            End If

            command =3D New OraCommand(strSQL, BDConecta)

            Dim dr As OraDataReader
            dr =3D command.ExecuteReader()

            Return dr

        End Function

        Public Function BDEX(ByVal strSQL As String, Optional ByVal p 
As
Object =3D Nothing) As Integer

            Dim objCmd As New OraCommand(strSQL, BDConecta)

            If Not IsNothing(p) Then
                Dim i As Integer
                For i =3D 1 To p.Count()
                    objCmd.Parameters.Add(p.Item(i - 1))
                Next
            End If

            Return objCmd.ExecuteNonQuery()

        End Function

        Public Function BDEXPO(ByVal strSQL As String, Optional ByVal p 
As
Object =3D Nothing) As OraCommand

            Dim objCmd As New OraCommand(strSQL, BDConecta)

            If Not IsNothing(p) Then
                Dim i As Integer
                For i =3D 1 To p.Count()
                    objCmd.Parameters.Add(p.Item(i - 1))
                Next
            End If

            objCmd.ExecuteNonQuery()
            Return objCmd

        End Function

Welliton A. Toledo
welliton@r...
Desenvolvimento DataRey
(0xx62)546-2984


-----Mensagem original-----
De: Li, Xing [mailto:xli@l...]
Enviada em: ter=E7a-feira, 30 de julho de 2002 21:07
Para: aspx_beginners
Assunto: [aspx_beginners] how to connect to oracle?


Anyone can show me the connectionString to Oracle database in asp.net
page?
I do not have any problem to connect to Oracle database in ASP page
using ADO and the connection string I used is the following:
"Provider=3DMSDAORA; Data Source=3DdsName; User ID=3Dscott; 
Password=3Dtiger"
However, when use the same connection string in ASP.NET page. It does
not work. Help! Please!

XingLi





  Return to Index