تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو
#1
السلام عليكم                                                                                                                                                        

يوجد جدول للموردين حملت اسم المورد فى كومبوبوكس اريد اظهار بيانات معينه فى تكستبوكس من الجدول  دون اظهاره فى داتاجريدفيو بعد اختيار اسم من الكومبو
كتبت
كود :
Dim dt_Supplier_phone_currentbalance As New DataTable
              Dim da_Supplier_phone_currentbalance As New SqlDataAdapter
              dt_Supplier_phone_currentbalance.Clear()
              da_Supplier_phone_currentbalance = New SqlDataAdapter("select supplier_id,supplier_phone,supplier_currentbalance from supplier", Con)
              da_Supplier_phone_currentbalance.Fill(dt_Supplier_phone_currentbalance)
              Dgv_purchasebillheaderfooter.DataSource = dt_Supplier_phone_currentbalance
              LbltChoseSupplier_phone.Text = Dgv_purchasebillheaderfooter(1, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value
              LbltChoseSupplier_currentbalance.Text = Dgv_purchasebillheaderfooter(2, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value
الرد
تم الشكر بواسطة:
#2
(25-11-18, 09:57 PM)vb2010 كتب : السلام عليكم                                                                                                                                                        

يوجد جدول للموردين حملت اسم المورد فى كومبوبوكس اريد اظهار بيانات معينه فى تكستبوكس من الجدول  دون اظهاره فى داتاجريدفيو بعد اختيار اسم من الكومبو
كتبت
كود :
Dim dt_Supplier_phone_currentbalance As New DataTable
              Dim da_Supplier_phone_currentbalance As New SqlDataAdapter
              dt_Supplier_phone_currentbalance.Clear()
              da_Supplier_phone_currentbalance = New SqlDataAdapter("select supplier_id,supplier_phone,supplier_currentbalance from supplier", Con)
              da_Supplier_phone_currentbalance.Fill(dt_Supplier_phone_currentbalance)
              Dgv_purchasebillheaderfooter.DataSource = dt_Supplier_phone_currentbalance
              LbltChoseSupplier_phone.Text = Dgv_purchasebillheaderfooter(1, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value
              LbltChoseSupplier_currentbalance.Text = Dgv_purchasebillheaderfooter(2, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value

يعني انت عايز لما تختار من 
الكومبوبوكس يظهر في التيكس
الرد
تم الشكر بواسطة:
#3
نعم اريد ان يظهر رقم تليفونه و رصيده  فى اللابل
الرد
#4
هذا ملئ الكومبو بوكس

وضع هذا في الكومبو بوكس
اخل لكي يظهر البيانات مع التنشيط 
لاسم المورد

تمام كدا يا اخي
ولوعندك اي مشكلة انا سداد
وكل اعضاء هذا المنتدي الكريم


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة: عبد العزيز البسكري , vb2010
#5
PHP كود :
Dim phone_number As string 0
    Dim currentbalance 
As Decimal 0

    Private Sub getdata
(ByVal name As String)
 
       If ConnectionState.Open Then
            Conn
.Close()
 
       End If

 
       Conn.Open()
 
       Dim cmd As OleDbCommand Conn.CreateCommand
        cmd
.CommandText "Select supplier_phone,supplier_currentbalance from supplier where supplier_name=@p1"
 
       cmd.Prepare()
 
       cmd.Parameters.AddWithValue("@p1"name)

 
       Dim dr As OleDbDataReader
        dr 
cmd.ExecuteReader
        With dr
.Read()
 
           phone_number dr.GetValue(0)
 
           currentbalance dr.GetValue(1)
 
       End With
        dr
.Close()
 
   End Sub 

تقوم باستدعائها كالاتي :
PHP كود :
getdata(combobox1.selecteditem)

textbox1.text=phone_number
textbox2
.text=currentbalance 
هذا لملئ ال combobox 
PHP كود :
Sub fill_comb()
 
       CSNF.Items.Clear()
 
       Dim query As String
        Dim command 
As OleDbCommand
        Dim reader 
As OleDbDataReader

        
'فحص الاتصال بقاعدة البيانات
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        query = "SELECT DISTINCT [supplier_name] FROM [supplier]"
        command = New OleDbCommand(query, Conn)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                combobox1.Items.Add(reader(0))
            End While
        End If
        reader.Close()
        Conn.Close()

    End Sub 

لكن دعني اعطيك ملاحظة :

ليس من الجيد استدعاء البيانات بالاسم لان هناك احتمالية كبيره جدا ان يتكرر الاسم لذلك ستظهر المعلومات خاظئه 
عليك دائما استدعاء المعلومات بقيمة لا تتكرر مثل العمود الخاص بال primary key
الرد
تم الشكر بواسطة: عبد العزيز البسكري , vb2010 , elgokr
#6
كتبت التالى و لا يحدث شىء 

PHP كود :
Private Sub Cmbpurchasebillheader_supplier_id_TabIndexChanged(ByVal sender As ObjectByVal e As System.EventArgsHandles Cmbpurchasebillheader_supplier_id.TabIndexChanged
        Dim dt_Supplier_phone 
As New DataTable
        Dim da_Supplier_phone 
As New SqlDataAdapter
        If Cmbpurchasebillheader_supplier_id
.Text <> Nothing Then 'اذا التكستبوكس لم يكن فاضى
            '
الحصول على تفاصيل المورد
            Try
                dt_Supplier_phone
.Clear()
 
               da_Supplier_phone = New SqlDataAdapter("select * from supplier where supplier_name=N'" Cmbpurchasebillheader_supplier_id.Text "'"Con)
 
               da_Supplier_phone.Fill(dt_Supplier_phone)
 
               LbltChoseSupplier_phone.DataBindings.Clear()
 
               LbltChoseSupplier_phone.DataBindings.Add("text"dt_Supplier_phone"supplier_phone")
 
               Cmbpurchasebillheader_supplier_id.Select()
 
           Catch ex As Exception

            End 
Try
 
       Else
            dt_Supplier_phone
.Clear()
 
           Dgv_purchasebillheaderfooter.DataSource Nothing
        End 
If
 
   End Sub 

و اضفت حرف n فى جمله select لنه sql server
الرد
تم الشكر بواسطة: اسامه الهرماوي , elgokr
#7
اخي لو متصل بالاكسس جرب
الكود اللي في الصورة 
ومعك ايضا المهندس RAbeeaea Qbah
الرد
تم الشكر بواسطة:
#8
شكر ل [b]Rabeea Qbaha [/b]

[b]انا اعمل بالاتصال المنفصل و لا اتذكر طريقه الاتصال المتصل ارجو ان تذكرنى لانه يضع خط تحت الكلام [/b]
الرد
تم الشكر بواسطة:
#9
(26-11-18, 12:18 AM)vb2010 كتب : شكر ل [b]Rabeea Qbaha [/b]

[b]انا اعمل بالاتصال المنفصل و لا اتذكر طريقه الاتصال المتصل ارجو ان تذكرنى لانه يضع خط تحت الكلام [/b]


الكود الموضوع للاتصال المنفصل

ارسل لي مشروعك وساعدل عليه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تحويل اسم من جدول الى جدول اخر komar 0 7 منذ 1 ساعه مضت
آخر رد: komar
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 1 134 15-12-18, 11:12 PM
آخر رد: alsihran
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 69 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] حفظ بيانات في جدولين kah1974 0 47 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 86 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 86 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  اظهار اسم فى الكومبوبوكس و حفظ رقم vb2010 6 194 02-12-18, 05:15 PM
آخر رد: vb2010
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 59 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 561 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  [VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول السعيدي 14 413 01-12-18, 11:31 PM
آخر رد: السعيدي

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


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