تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005
#1
السلام عليكم قبل سؤالي الف مليون شكر للقائمين علي هذا المنتدي الرائع
ولي سؤال
هذا الكود كتبته للبحث عن اسم الفرع وتعبئة النتيجة في داتا جريد 
كود :
       Try
           Call conecDB()
           SQL = SQL = "select * from Tab_Main Where Car_No = '" & Txt_Car_ReqNo.Text & "'"
           ad = New SqlDataAdapter(SQL, Conn)

           With Scmd
               .CommandText = SQL
               Sdr = .ExecuteReader
           End With

       Catch ex As Exception
           MsgBox(ex.Message)
           End
       End Try
يعطي رسالة الخطأ التي بالصورة 
أرجو المساعدة أو 

أريد كود البحث عن قيمة في تكست وإدارج النتيجة في داتا جريد بنفس الفورم
ولكم جزيل الشكر والتقدير
الرد }}}}
تم الشكر بواسطة:
#2
عزيزي الكريم

اولا الكود اللذي وضعته لا يتطابق بالكامل

انت اعطيت قيمة مغير قاعدة البيانات ل Object  واستدعيت Object أخر

 .. جرب الكود التالي

PHP كود :
Try
 
           Dim Con As New SqlClient.SqlConnection("Your Connection String")
 
           If Con.State ConnectionState.Closed Then Con.Open()
 
           Dim SQLstr As String "select * from Tab_Main Where Car_No = '" Txt_Car_ReqNo.Text "'"
 
           Dim Cmd As New SqlClient.SqlCommand(SQLstrCon)
 
           Dim DR As SqlClient.SqlDataReader
            DR 
Cmd.ExecuteScalar
            If Con
.State ConnectionState.Open Then Con.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try 


ملاحظة ... بناء على الكود اللذي وضعته والكود المطروح الناتج سيكون قيمة واحدة فقط!
الرد }}}}
تم الشكر بواسطة:
#3
(08-11-15, 06:14 PM)Mr. DotNet كتب : عزيزي الكريم

اولا الكود اللذي وضعته لا يتطابق بالكامل

انت اعطيت قيمة مغير قاعدة البيانات ل Object  واستدعيت Object أخر

 .. جرب الكود التالي

PHP كود :
Try
 
           Dim Con As New SqlClient.SqlConnection("Your Connection String")
 
           If Con.State ConnectionState.Closed Then Con.Open()
 
           Dim SQLstr As String "select * from Tab_Main Where Car_No = '" Txt_Car_ReqNo.Text "'"
 
           Dim Cmd As New SqlClient.SqlCommand(SQLstrCon)
 
           Dim DR As SqlClient.SqlDataReader
            DR 
Cmd.ExecuteScalar
            If Con
.State ConnectionState.Open Then Con.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try 


ملاحظة ... بناء على الكود اللذي وضعته والكود المطروح الناتج سيكون قيمة واحدة فقط!

أسأل الله العظيم رب العرش الكريم أن يجزيك خيراً

ولكن أريد كود تعبئة الداتا جريد من داتا ست وجزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#4
تفضل هذا الكواد بالكامل لتعبأة الجريد فيو من قاعدة البيانات حسب المثال المطلوب

PHP كود :
Try
 
           Dim Con As New SqlClient.SqlConnection("Your Connection String")
 
           If Con.State ConnectionState.Closed Then Con.Open()
 
           Dim SQLstr As String "select * from Tab_Main Where Car_No = '" Txt_Car_ReqNo.Text "'"
 
           Dim DA As New SqlClient.SqlDataAdapter(SQLstrCon)
 
           Dim DS As New DataSet
            DA
.Fill(DS)
 
           DataGridView1.DataSource DS.Tables(0)
 
           If Con.State ConnectionState.Open Then Con.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try 
الرد }}}}
تم الشكر بواسطة:
#5
(08-11-15, 06:50 PM)Mr. DotNet كتب : تفضل هذا الكواد بالكامل لتعبأة الجريد فيو من قاعدة البيانات حسب المثال المطلوب

PHP كود :
Try
 
           Dim Con As New SqlClient.SqlConnection("Your Connection String")
 
           If Con.State ConnectionState.Closed Then Con.Open()
 
           Dim SQLstr As String "select * from Tab_Main Where Car_No = '" Txt_Car_ReqNo.Text "'"
 
           Dim DA As New SqlClient.SqlDataAdapter(SQLstrCon)
 
           Dim DS As New DataSet
            DA
.Fill(DS)
 
           DataGridView1.DataSource DS.Tables(0)
 
           If Con.State ConnectionState.Open Then Con.Close()
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message)
 
       End Try 

جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#6
شوف البساطة
PHP كود :
Dim Query From Cust in MyDataset.Customer Where Cust.ID Me.txtID.Text
Select Cust
Dim bs 
as new BindingSource()
bs.DataSource Query
Me
.dgv1.DataSource bs 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المجموع التراكمي في داتا جريد فيو السيد الجوهري 2 34 منذ 19 دقيقة مضت
آخر رد: السيد الجوهري
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 52 أمس, 11:22 AM
آخر رد: ممدوح الخطيب
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 30 06-12-16, 04:34 PM
آخر رد: Ayman97
  تعبئة الكمبوبوكس في الداتاغريد فيو .. حلا ابوحامضة 7 252 06-12-16, 11:32 AM
آخر رد: superwoofer
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 35 05-12-16, 07:53 PM
آخر رد: kofa
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 53 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 70 01-12-16, 07:04 AM
آخر رد: araxis
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 61 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 182 29-11-16, 07:26 AM
آخر رد: amgad525
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 44 29-11-16, 01:37 AM
آخر رد: hglogtd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم