الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية ربط قاعدة بيانات اوراكل بالفيجوال استوديو 2010 ؟

بدأه مبرمج أوتار في 22 يناير 2013 · 7 رد · 5,642 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته 

 

اتمنى المساعده في كيفية ربط قاعدة بيانات اوراكل بالفيجوال استوديو 2010 ؟

 

لاني بحث في محرك البحث لم اجد غير طريقه واحد وهي في الفيجوال بيسك اصدار 6 

 

لم تضبط مع الطريقة ...

 

ان شاء الله انكم ما تقصر معي ... 

1
#2

بسم الله الرحمن الرحيم

معلومات عامه عن ربط مشروع فيجوال بيزك بقاعدة بيانات Oracle

 

مثال :

انشىء مشروع عباره عن (Form1 - Label1 - Button1) و قم بحفظه .

 

الكود :

فى منطقة General Declaration

اقتباس

Imports System.Data
Imports Oracle.DataAccess.Client ' ODP.NET Oracle managed provider
Imports Oracle.DataAccess.Types

*اذا لم تنجح فى رؤية هذه الـ Class و الـ Library فهذا معناه ان Oracle لم يتم تثبيته بطريقه صحيحه مع الفيجوال بيزك دوت نت .

 

فى حدث Button1_Click

 

اقتباس

Dim oradb As String = "Data Source=orcl;User Id=hr;Password=hr;"
Dim conn As New OracleConnection(oradb)
conn.Open()
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "select department_name from departments where department_id = 10"
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
Label1.Text = dr.Item("department_name")
conn.Dispose()

 

أرجو أن أكون قد أفدتك ....

 

اقتباس


اذا كان لديك استفسار اخر لا تتردد فى زيارتى أو مراسلتى .

 ............................. لا تنسى تقييم اجابتى .

تم تعديل هذه المشاركة بواسطة evry1falls في 23 يناير 2013 في 21:07

Visit Me personally
Visit My Facebook VB Page

فى انتظار تعليقاتكم و اسئلتكم على
Evry1falls (Visual Basic) Plus+

 

 

#4
kslawy كتب:

شكرا على الرابط وجزاك الله خير

evry1falls كتب:

بسم الله الرحمن الرحيم

معلومات عامه عن ربط مشروع فيجوال بيزك بقاعدة بيانات Oracle

 

مثال :

انشىء مشروع عباره عن (Form1 - Label1 - Button1) و قم بحفظه .

 

الكود :

فى منطقة General Declaration

*اذا لم تنجح فى رؤية هذه الـ Class و الـ Library فهذا معناه ان Oracle لم يتم تثبيته بطريقه صحيحه مع الفيجوال بيزك دوت نت .

 

فى حدث Button1_Click

 

 

أرجو أن أكون قد أفدتك ....

الأخ  evry1falls جزاك الله خير على الكود وعندي استفسار بسيط

هل ممكن تثبيت sql server 2005 مع oracle على جهاز واحد بدن حدوث مشاكل على نظام win7 64 bit

وشكرا

:)  :)  :)  شكرا لكل من علمني حرفا :)  :)  :)


#5
اقتباس

هل ممكن تثبيت sql server 2005 مع oracle على جهاز واحد بدن حدوث مشاكل على نظام win7 64 bit

 

عملتها من قبل ولم يحدث معي مشكلة

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#6

تثبيت sql server 2005 مع oracle على جهاز واحد لا مشكله به

#7

الله يعطيكم الف عافية ماقصرتو معي اعتذر عن عدم الرد 

 

اشكرك يا اخ 

evry1falls تم تجربة لم ينجح معي 

kslawy اشكر يا اخ لكن وجهتني مشكله في مكتبه الاستدعاء Imports Oracle.DataAccess.Client

تم الحصول على هذا كود من احد دكاتره في احد الجامعات بعد التواصل معه بارك الله فيها ماقصر معي 

 
Imports System.Data.Odbc
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim oODBCConnection As OdbcConnection = New OdbcConnection()
            Dim mycommand As OdbcCommand = New OdbcCommand
            Dim myda As OdbcDataAdapter = New OdbcDataAdapter
            Dim myds As DataSet = New DataSet
            Dim sConnString As String = _
            "Driver={Microsoft ODBC for Oracle};" & _
               "Server=orcl;" & _
               "Uid=system;" & _
               "Pwd=manager" ' بيانات القاعدة اسم القاعده واسم وكلمة المرور
            oODBCConnection = New Odbc.OdbcConnection(sConnString)
            oODBCConnection.Open() ' VB.NET
            MsgBox("تم الاتصال بقاعده البيانات بنجاح")
            mycommand.CommandText = ("Select * from tab") ' يجب مراعاه تغير tab 
            mycommand.Connection = oODBCConnection
            myda.SelectCommand = mycommand
            myda.Fill(myds, "tab")
            With DataGridView1
                .DataSource = myds
                .DataMember = "tab"
                '.CaptionText = .DataMember
            End With
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & "يوجد مشكله بقاعده البيانات")
        End Try
    End Sub
End Class

 

تم ارفاق المثل لكي يستفيد الاخرين 

 

cconect or.rar

 

لكن لدي استفسار كيف اسحب قاعد البيانات اوراكل كيف اثبته على جهاز العميل  اتمنى احصل على الاجابه ...

تم تعديل هذه المشاركة بواسطة مبرمج أوتار في 9 فبراير 2013 في 21:48

#8

لكن ظهرلى الميساج

ORACLE.jpg

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…