[المستكاوي]

اخواني  المحترمين

عندما جربت الكود السابق للآخ الوليد مع قاعدة بيانات سيكوال sql   اشتغل   100 /100  

ولا كن سؤالي   كيف يتم الربط عن طريق نفس الكود مع  قاعدة بيانات oracle  

ارجو منكم الإجابة على سؤالي

Imports Oracle.DataAccess.Client

Imports Oracle.DataAccess.Types

 

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

oradb As String = "Data Source=(xxxxx=(ADDRESS=(PROTOCOL=TCP)(HOST=12.96.52.3)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=xxxxxxxx)));User Id=xxxxxx;Password=xxxxxx;"
Dim conn As New OracleConnection(oradb)
Dim cmd As New OracleCommand
conn.Open()
cmd.Connection = conn

  Using da As New OracleDataAdapter("SELECT TOP 2 * FROM [all_employees] WHERE [emp]=@emp ORDER BY [year1] DESC", conn)

           da.SelectCommand.Parameters.AddWithValue("@emp", Val(Me.TextBox6.Text))

           Using dt As New DataTable

               If da.Fill(dt) = 2 Then

                   Dim row1 As DataRow = dt.Rows(0)

                   Me.TextBox1.Text = row1.Item("emp")

                   Me.TextBox3.Text = row1.Item("score")

                   Dim row2 As DataRow = dt.Rows(1)

                   Me.TextBox5.Text = row2.Item("score")

                   Me.TextBox6.Text = row2.Item("emp")

               End If

           End Using

       End Using

   End Sub

End Class