منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد طريقة جلب عمود من قاعده البيانات وعرضه في صفوف داتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد طريقة جلب عمود من قاعده البيانات وعرضه في صفوف داتا جريد فيو (/showthread.php?tid=44306)



اريد طريقة جلب عمود من قاعده البيانات وعرضه في صفوف داتا جريد فيو - mbk2006 - 13-11-22

لو تكرمتم اريد طريقة جلب عمود من قاعده البيانات وعرضه في صفوف داتا جريد فيو حيث ان عدد الاعمده 6 والصفوف 6 يعني جميع الخلايا 36


RE: اريد طريقة جلب عمود من قاعده البيانات وعرضه في صفوف داتا جريد فيو - h2551996 - 01-12-22

(13-11-22, 03:56 PM)mbk2006 كتب : لو تكرمتم اريد طريقة جلب عمود من قاعده البيانات وعرضه في صفوف داتا جريد فيو حيث ان عدد الاعمده 6 والصفوف 6 يعني جميع الخلايا 36

كود :
con = New SqlConnection(cs)
       If con.State = 1 Then con.Close()
       con.Open()
       cmd = New SqlCommand(" Select * from Custm_Record_Tbl Where Sale_ID=@Sale_ID ", con)
       cmd.Parameters.AddWithValue("@Sale_ID", CInt(DgvRecord.CurrentRow.Cells(0).Value))
       rdr = cmd.ExecuteReader
       rdr.Read()
       With Customer_records_edit ''need edit
           If rdr.HasRows Then

               .TxtOrder_ID.Text = DgvRecord.CurrentRow.Cells(1).Value
               .OrderDate.Value = rdr("OrderDate").ToString
               .TxtCustomerName.Text = DgvRecord.CurrentRow.Cells(3).Value
               .TxtPhone.Text = rdr("Phone").ToString
               .TxtCount1.Text = rdr("ItemCount").ToString
               .LblTax1.Text = rdr("Tax_Value").ToString
               .TxtDiscount1.Text = rdr("Discount_Value").ToString
               .LblTotal1.Text = rdr("FinalTotal").ToString
               .Paid1.Text = rdr("MoneyPaid").ToString
               .LblUnPaid1.Text = rdr("Unpaid").ToString
               .VatCust.Text = rdr("VatCust").ToString

           End If
           rdr.Close()
           con.Close()