انشاء اتصال عن طريق البرمجه

يـارا كتب:

كيف اقوم بإنشاء اتصال عن طريق البرمجة رجاااء في اسرع وقت

انا استخدم VB2003

و برنامجي بسيط و هو عباره عن قاعدة بيانات  db1 تحتوي على جدول واحد وهو information و يحتوي

على عمودين فقط و هما ( num , text )

و أريد أن أقوم بربط قاعدة البيانات بأداة combobox بحيث تكون هذه الأداة محتوية على ارقام ( و هي نفسها الأرقام الموجوده في عمود num  ) و عندما

أختار رقم معين تظهر المعلومات الخاصة بهذا الرقم في textbox .

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

←

و على فكره

بحثت بالمنتدى و حملت كل الدروس الخاصه بالربط بس ما ادري ليه مامشت معي !

السلام عليكم

أختى يـارا

كل هذا الكلام جميل جدا وكل هذه الموضيع موجودة حتى لو بحثتى فى مشاركتى الاولى سوف تجديها لن اقول بحث كامل بالمنتدى مع انى متأكد انها موجودة ولكن اقول لكى شئ واحد لماذا لا تحاولى محاولة بسيطة جدا حتى لو فشلت ارجوا وضعها هنا وسوف نقوم باصلاح الخطأ هكذا تستطيعى التعلم أستطيع وضع المشروع كامل لكى لكن انتى لن تسنفيدى شئ هكذا

وبالتوفيق ,,,

و الله يا اخي الربط الوحيد اللي اعرفه هو عن طريق الخصائص

و اعرف اربط بالفيجوال بيسك 6 لكن الربط بالدوت نت يختلف كثير

يعني مثلا كنا ننشيء الاتصال كذا بالفيجوال 6 :

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Form_Load()

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\db1.mdb"

rs.Open "[information]", db, adOpenStatic, adLockReadOnly

End Sub

و الله حاولت اسوي اتصال برمجي بالفيجوال نت بس مافيه امل !

ما اعرف اسوي اتصال الا عن طريق الخصائص و اقدر اعرضها في datagrid !

و حملت بعض الامثله من المنتدى لكن شكلها ما تشتغل الا على VB2005 !!

اعتقد انك تستخدمين ado القديم وفي الدوت نت افضلك تستخدمي ado.net

ومعظم الامثلة شغاله عليه

الجديد في الأدو دوت نت أنه لايستخدم تقنية الريكورد ست ,,,

استخدمي هذه الكود البديل لل ADO.NET

Dim constring As string = "Provider="Microsoft.JET.OLEDB.4.0; Data Source=db1.mdb"
'db1.mdb must reside in bin folder of the application
Dim sqlstring As string = "Select * from tablename"
Dim con As New OleDBConnection(constring) 'defines connection
Dim com As New OleDBCommand(sqlstring, con) 'defines command
Dim da As New OleDBDataAdapter(com) 'define data adapter 
Dim dt As New DataTable() 'defines data table
con.open() 'opens connection
da.fill(dt,"tablename") 'data adapter fill data table with records from tablename table
con.close() 'work disconnectedly
DataGrid1.DataSource = dt 'DataBinding

حاولي ,, وإلم توفقي ,, وارجعي للأمثلة في المنتدى ,, أو ضعي المشكلة هنا ,,,

بالتوفيق ,,,

تحياتي ,,,

أختك المؤمنة ,,,

Romantic_touch

انا كنت استخدم القديم بس الحين احاول ابرمج بالجديد

لا يكون فيجوال دوت نت فيه النوعين كلهم و لازم انا اللي اختار ما بينهم ! << تورطت :wacko: !

جزاك الله خير اخي

المؤمنة ..

الله يعافيك اختي و يحفظك .

لكن الكود يطلعلي اخطاء و ماتروح لين اعدله بهذا الشكل :

    Dim constring As String = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=db1.mdb"
        'db1.mdb must reside in bin folder of the application
        Dim sqlstring As String = "Select * from tablename"
        Dim con As New OleDb.OleDbConnection(constring) 'defines connection
        Dim com As New OleDb.OleDbCommand(sqlstring, con) 'defines command
        Dim da As New OleDb.OleDbDataAdapter(com) 'define data adapter 
        Dim dt As New DataTable   'defines data table
        con.open() 'opens connection
        da.Fill(dt, "information") 'data adapter fill data table with records from tablename table
        con.close() 'work disconnectedly
        DataGrid1.DataSource = dt 'DataBinding

يعني لين اضيف " oledb قبل oledbconnection و هلم جرا

و بيني و بينك و الله ما ادري ايش تسوي لكنها شالت الاخطاء

بس برضه اذا حاولت اشغل البرنامج يحطلي خطأ عند da.Fill(dt, "information")

و ما ادري ليه ؟!

وعندي سؤال صغنون " ادري اني زودتها و الله بس وين اروح :( "

كنا بالفيجوال 6 نحط الاداة ado على النافذة حتى لو كنا بنربط بالبرمجه ..

هنا نحط شي على النافذه ؟ و لا دغري نبدا بالبرمجه ؟

لازماً تستوردي فضاء الاسم OleDB الموجود في فضاء الاسم Data هكذا ,,,

imports systems.data
imports system.data.oledb

وتحطي مكان الdb1.mdb اسم قاعدة البيانات في كل مكان مذكور فيه ,,

ومكان Tablename اسم الجدول في كل مكان مذكور فيه ,,

وقاعدة بياناتك يجب أن تكون في مجلد الbin الموجود داخل مجلد المشروع ,,,

حاطة لك Comments جنب كل سطر تقريباً ,, تبين لك عملها ,,,

باختصار ,, أول سطرين تعرفي string مشان connection string ,, وممكن تستغني عنه بالآتي

Dim con As New OleDBConnection("Provider=Microsoft.JET.OLEDB.4.0; Data Source=db1.mdb")

ثالث سطر بيعرف كمان String مشان الكوماند ,, وهو SQL كوماند أي نتعامل مع القاعدة البيانات بتنفيذ SQL Query وإرسال SQL كوماند Select, Creat, وغيره

ممكن تستغني عنه ب

Dim com As New OleDBCommand( "Select * from TableName", con)

في هذا السطر تحطي اسم الجدول مكان TableName

والباقي مثل السابق ,, بس عدلي على اسم الجدول

جربي هالحين وقولي لي ,, إذا مشي الحال ,,,

هنا دغري تبدأي بالبرمجة ,,,

اختي المؤمنة

ياشيخه الله يسعدك دنيا و آخره

الشي اللي كان حايسني من اول شي هم السطرين الاولين :

imports system.data

imports system.data.oledb

و الآن الحمد لله

تم الاتصال بـ datagrid

و كمان تم الاتصال بـ combobox و قمت بإحضار كافة البيانات الموجودة في عمود num و وضعها في الـ combobox

الشي الأخير الحين اللي باقي هو :

ياليت تساعدوني بالكود اللي يخليني اول ما اضغط على رقم من الأرقام الموجوده في الـ combobox يجلب البيانات الخاصه بالرقم هذا من العمود الثاني في الجدول و هو عمود text و يضعها في textbox الموجود على النافذه .

و هذا هو شغلي " عيني على نفسي بارده " B)

و ذلك تلبية لاقتراح الأخ Romantic_touch

WindowsApplication2.rar

السلام عليكم

جهد رائه ياخت يـارا مع انى جيت متأخر لكن طلبك الاخير سوف انفذة لكى

تفضلى الكود

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim CON As New OleDbConnection
        CON.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
        Dim da As New OleDbDataAdapter("select text from info", CON)
        Dim ds As New DataSet
        da.Fill(ds, "info")
        TextBox1.Text = CStr(ds.Tables(0).Rows(ComboBox1.SelectedIndex).Item("text"))
    End Sub

ولكى المثال مرفق

بالتوفيق

WindowsApplication2.zip

شكرا على ذوقك يارا

يعني انا اطلع منها؟ هههههههههه

ماقصرت اخ كفاح قمت بالواجب

الله يسعدك و يرضى عنك يا كفاح ، من جد ما قصرت

Romantic_touch : و لو ؟؟ لا تطلع منها احنا يدوب بدينا ندخل بالموضوع !

عندي استفسار اخير بس << ما تنعطى وجه :wacko:

انا اضفت لقاعدة البيانات عمود اضافي اسمه Kind و يحتوي على القيم ( good , v.good , bad )

بحيث انه البيانات ذات القيمه good تنعرض بنافذه مستقله ، و كذلك البيانات ذات القيمه v.good و هلم جرا

بالنافذه الاولى مشي الحال و الموضوع تمام

لكن بالنافذه الثانيه تلخبط الموضوع !

و صار اللي ينعرض بالتكست بوكس هو اول صف بالعمود " text " كيف احلها هذي ؟

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

ادري اني ما اعرف اشرح لكن شوفوا الملف المرفق و ان شاء الله بتفهمون

" ان شاء الله بس اكون حاطه الملف الصحيح ! الجهاز صاير كله ملفات مضغوطه !! " :blink:

WindowsApplication2.rar

حسن ,, وأنا كمان جيت متأخرة ,,,

معلش ,, بنتقسم الثواب أنا وكفاح ,,,

بشوف الملف وبرد إذا وصلت للحل ,, وسامحوني على التقصير ,,,

السلام عليكم

بصراحة انا اول ما شوفت كل الكلام تبع يارا قلت ان الدنيا باظت :blink:

ياخت يارا هل يعقل انك تقومى بعمل استعلام لكل الفورم وتنسى استعلام الكموبوكس ؟؟؟!!!

هذا هو الخطا الموجود عندك المشلكة اننا قمنا بعمل اتصل منفصل للفورم واتصل اخر للكموبوكس كان المفورض نضيف Module ونشتغل علية على العموم انا عدلت ليكى الخطا واصبح يعمل بكفاءة وأسف ياخت the_bleiver انا طماع شوية فى الثواب :D

        Dim CON As New OleDbConnection
        CON.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
        Dim da As New OleDbDataAdapter("select text from info where kind ='v.good' ", CON)
        Dim ds As New DataSet
        da.Fill(ds, "info")
        TextBox1.Text = CStr(ds.Tables(0).Rows(ComboBox1.SelectedIndex).Item("text"))

WindowsApplication2.zip

نزلت المرفق ,, وبعدين انشغلت ,, وبعدين لما فتحته ,, قلت لنفسي هي الاخت كانت عاوزة ايه :wacko:

good luck ليك كفاح ,, <_<

Hard Luck لي ,,, :(

ودعواتكم :rolleyes:

كفاح كتب:

بصراحة انا اول ما شوفت كل الكلام تبع يارا قلت ان الدنيا باظت  :blink:

ياخت يارا هل يعقل انك تقومى بعمل استعلام لكل الفورم وتنسى استعلام الكموبوكس ؟؟؟!!!

←

كفاح :

اللي انا اعرفه ان الدنيا بايظه" منذ مبطي " يعني ما كانتش تستناني ! :wacko:

و حكاية متصل و منفصل ما اعرفها و الله لكن ابحاول ادور عليها بالمنتدى و ادرسها و لو انه الدروس هنا متقدمه حبتين على الناس اللي مثلي <_<

الف شكر لك يا اخ كفاح و الشغل ماشي كله تمام بفضل الله ثم بفضلك انت و الاخت مؤمنة

المؤمنة :

double good luck for you ان شاء الله !

و كل الشكر لك .

السلام عليكم

اذا عندك مشكلة فى موضوع الوضع المتصل والمنفصل تسطيعى مراجعة دروس المشرف SOLO.NET

الوضع متصل هنا http://204.157.36.16/index.php?showtopic=78886&st=0

الوضع غير متصل هنا http://204.157.36.16/index.php?showtopic=79148&hl=

وبالتوفيق ,,,

الله يعطيكم العافيه انا سعيد بهذا الموضوع لى خمس اشهر او يذيد اتعلم الدت نت واول مره اعمل اتصال بالكود بقاعدة البيانات فالله الحمد والشكر ولكم جزيل الشكر

انا اريد التكست بكس يتصل بالقاعده ماهى الخاصيه التى يمكن ارفاقها بالتكست حتى تقوم باظها البيانات الى فى قاعدة البيانات

وايضا الكومبو............. :rolleyes:

وانا اسف ممكن شرح كيفية عمل add فى قاعدة البيانات وحفظ هيكون كرم منكم ذائد

ولكم جزيل الشكر

مرحبا أخي ,,

حبذا لو كنت فتحت موضوع جديد ,,

عن استفسارك سأجرب ماتريده ,, وعندما أحصل على نتيجة برد عليك ,,

وسامحوني على التقصير ,,

لنا عودة ,,,

أخي crazy.net ,, بالنسبة للتكست بوكس فهناك خاصية Databindings ولكن لم أتعامل معها مسبقاً ,, قد تجد مع البحث هنا الطريقة المناسبة ,, بالنسبة للكمبوبوكس فالطريقة ربطه هي كالتالي طبعاً في الوضع المنفصل Diconnected ,,

ComboBox1.DataSource = d

والd هو إما DataSet أو DataTable أو DataColumn ,,

بالنسبة لعملية الAdd وSave فارجع للروابط التي وضعها الأخ كفاح ,, وإن شاء الله تجد كل ماتريد ,,,

بالتوفيق ,,,