كيف اربط datagridمع combobox

-9

dim da as new sqlclient.sqldataadapter
dim conn as new sqlclient.sqlconnection
dim ds as new dataset

da.SelectCommand.CommandType = CommandType.Text 
da.selectcommand.commandtext = "select col1,col2,col3 from table1 " & _
"where col4 = ' " & combobox1.selecteditem & " ' "
ds.clear
da.fill(ds,"Table1")
datagrid1.datasource = ds.tables("Table1")

جرب هذا الكود فأنا كتبته سريعا وأخبرنا من فضلك

-waf

الكود بينزل صح مافي اخطاء

بس لما اعمل Runمابيشتغل

-9

نسيت أن أذكر كتابة الكودين

الأول هو تحديد الconnection و الثانى هو تعريف الconnection للda.selectcommand

conn.connectionstring = " your connection string "
da.selectcommand.connection = conn

ويكتب هذا الكود قبل كود

da.SelectCommand.CommandType = CommandType.Text

أنا أسفة لأنى كتبت الكود بسرعة

-waf

انا عارفة تعبتك معايا

بس برضو مو راضي يطلع شي ايش اعمل

للتنويه, حصل خطا البارحة في قاعدة البيانات ولم يستطع سكربت المنتدى اصلاح قاعدة البيانات تلقائيا مما ادى الى ضياع عدد من المواضيع والردود التي لم تكن قد تم اجراء عمل backup لها.

شكرا مرة XACHER

بنتعبكم معانة كثير بس انا قلت كدة انو حسبت موضوعي مكرر او شي زي كدة واتحذف

Dim da As New SqlClient.SqlDataAdapter
        Dim conn As New SqlClient.SqlConnection
        Dim ds As New DataSet
        conn.ConnectionString = " data source=.""Inittial catalog=Learning Center:""integrated security=sspi:"
        da.SelectCommand.Connection = conn
        da.SelectCommand.CommandType = CommandType.Text
        da.SelectCommand.CommandText = "select inst_id,nationalty,degree,majar from instractor " & _
        "where inst_name = ' " & ComboBox1.SelectedItem & " ' "
        ds.Clear()
        da.Fill(ds, "INSTRACTOR")
        grdInstrctors.DataSource = ds.Tables("instractor")

هذا الكود ان كدة كتبنو برضو مابيطلع شي

ايش اعمل :wacko:

يابنت الحلال المشكلة بسيطة

اضيفي هذي بس اخر شي

grdInstrctors.dispalymember= ds.Tables("instractor").column(0).coulmnname

grdInstrctors.valuemember= ds.Tables("instractor").column(1).coulmnname

اني ماحددتي اش اللي تبغيه يطلع لك :)

تحياتي

السلام عليكم

كبفكم إن شاء الله بخير

انا سويت زي ماقلت استاذ Romantic touch

كلو شغال تمام بس اعمل run كمان يشتغل from

ولما اختار اسم المدرسة منcombobox

يطلعلي خطا على

da.select command.connectio=conn

ماني فاهم هل تعبت البيانات ولا لا

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

ياريت توضحي اكتر

دحين لما اختار اسم المعلمة من combobox المفروض تطلع في الdatagrid

بس انا لما اخترت اسم المدرسة مابتطلع بياناتها على data grig

على طول بتوقف الformوتروح تعلق على الكود الي هذا

da.SelectCommand.Connection = conn

يعني الكود اللي اعطيتك هوا انا زبط؟؟

بعدين وين الكود اللي يتنفذ لما تغير الكومبو بكس؟

Dim da As New SqlClient.SqlDataAdapter

Dim conn As New SqlClient.SqlConnection

Dim ds As New DataSet

conn.ConnectionString = " data source=.""Inittial catalog=Learning Center:""integrated security=sspi:"

da.SelectCommand.Connection = conn

da.SelectCommand.CommandType = CommandType.Text

da.SelectCommand.CommandText = "select inst_id,nationalty,degree,majar from instractor " & _

"where inst_name = ' " & ComboBox1.SelectedItem & " ' "

ds.Clear()

da.Fill(ds, "INSTRACTOR")

grdInstrctors.DataSource = ds.Tables("instractor")

grdInstrctors.DataMember = ds.Tables("instractor").Columns(0).ColumnName

grdInstrctors.DataMember = ds.Tables("instractor").Columns(1).ColumnName

ايوة ضبط الكود بس مو راضي يطلع البيانات على الdata grid

اعتقد المشكلة عندك هنا

ComboBox1.SelectedItem

هذي المفروض تكون

ComboBox1.Selectedtext

او

ComboBox1.Selectedvalue

انا طبعا اتوقع ان الكمبوبكس المفروض يكون فيه اسم المدرسة صح؟

تحياتي

ا

-9

للأسف أختى الكريم كل واحد يحاول حل المشكلة لا ينظر إلى الخطأ الذى يظهر لك

اقتباس

السلام عليكم

كبفكم إن شاء الله بخير

انا سويت زي ماقلت استاذ Romantic touch

كلو شغال تمام بس اعمل run كمان يشتغل from

ولما اختار اسم المدرسة منcombobox

يطلعلي خطا على

da.select command.connectio=conn

اقتباس

دحين لما اختار اسم المعلمة من combobox المفروض تطلع في الdatagrid

بس انا لما اخترت اسم المدرسة مابتطلع بياناتها على data grig

على طول بتوقف الformوتروح تعلق على الكود الي هذا

da.SelectCommand.Connection = conn

فالخطا فى جملة الconnection string كما ذكرت في ردودك السابقة

وهى يجب أن تكون

conn.connectionstring = _
"integrated security=SSPI;data source=.;persist security info=False;initial catalog=Learning Center"

وممكن أن تكتبى إسم الserver فى data source بدل من (.) ولن يجب أن تراعى الcapital letters إن وجدت فى أسم الserver

وأن شاء الله تحل مشكلتك

-waf

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

وشكرا على كل المجهود الي سار من قبل الاستاذ enjyshahinوالاستاذromantic touch

بس المشكلة زي ماهيا لما اعمل run واختار اسم المدرسة من ComboBoxماتطلع البيانات في الdatagridعلى طول تروح على الكود وبتأشر على

da.select command.connection=cnn

وبيطلع هذا الكلام

this is the next statement that will be executed .to change which statemement is executed next,drag the arrow.this may have unontended sonsequences

فسامحوني لو تعبتكم معايا والله يوفقكم وتكونو اكبر مبرمجين في العالم

-9

أختى كلبوزة لا يهمك أى شئ أسألى كما تريدى

أولا أجعلى كود التعريف خارج أى sub

Dim da As New SqlClient.SqlDataAdapter
       Dim conn As New SqlClient.SqlConnection
       Dim ds As New DataSet

ثم إعملى double click على الcombobox ثم إكتبى هذا الكود وسيظهر كذلك

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

conn.connectionstring = _
"integrated security=SSPI;data source=.;persist security info=False;initial catalog=Learning Center"
       da.SelectCommand.Connection = conn
       da.SelectCommand.CommandType = CommandType.Text
       da.SelectCommand.CommandText = "select inst_id,nationalty,degree,majar from instractor " & _
       "where inst_name = ' " & ComboBox1.SelectedItem & " ' "
       ds.Clear()
       da.Fill(ds, "INSTRACTOR")
       grdInstrctors.DataSource = ds.Tables("instractor")   
 End Sub

ملحوظة

لماذا فى هذا الكود تكتبى INSTRACTOR كلها بالcapital letter هل هى مكتوبة كذلك في الdatabase

da.Fill(ds, "INSTRACTOR")

ولكن مكتوبة small letter فى هذا الكود

       grdInstrctors.DataSource = ds.Tables("instractor")

وأخيرا أختى إن أمكن إرفقى المشكلة حتى نستطيع حلها

أختك إنجى

-waf

كيف ارفق المشكلة مافهمت عليكي

انا رسلت المسج الي بيطلعلي

ولا انتي تبغي الDATA

الله يوفقكم يابنات حواء

والداخل بيكم خسران هههههههههههههههههههههه

امزح بس احبيت استخف دمي :(

انا اتوقع الكود اللي كاتبته كلبوزة موه مزبوط.. فما ادري كيف تبحثي باسم المدرسة !! المفروض برقمها

و انجي ماشالله عليها ... وانا بعد اذنها طبعا بفهمك كلمة ارفقي المشكلة

يعني سوي مشروع صغير بس في المشكلة تبعك واضغطيها في ملف winzip وارفقيه مع الرد الجاي

مرحبا

مني عارفة لو نزلتو صح ولا لا

انا عملة نسخة تانية من المشروع وارفقة معاها ال database الموجودة في الsql

مادري صح ولا غلط الي سويتو

INSTRCTOR.zip

انا الحين ماعندي اس كيو ال بس الله يعينك تنتظري انجي

هههههههههههههههههه

مو مشكلة انتظر انجي

-9

الحمد لله أن وفقنى إلى حل مشكلتك

والمرفق به حل للمشكلة

ولكنى لاحظت أنك تستخدمين oledbconnection وoledbdataadapter

فهل أنت تتعاملين مع access database

ولاحظت أنك بدون قصد الغيت من مشروعك AssemblyInfo.vb مما سبب لك عدم تعرفه على كل أدوات الsqlclient من sqldataadapter و dataset و sqlconnection

وأتمنى لك التوفيق إن شاء الله

-waf

Instractors.rar

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

بس ياريت تقولين لنا وين المشكلة عشان نعرف :)