تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث
#1
السلام عليكم 
لدي كود البحث التالي عندما ابحث يخرج ناتج لكن اسماء اعمده تتغير في داتا قريد فيو الي اسماء حقول في داتا بيز بالانجليزي 
اريد اسماء حقول تبقي كما في قريد فيو 
ياريت الي يعرف يقول لي 
مرفق كود واسماء اعمدة قبل بحث وبعد بحث كيف تغيرت 
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

       Dim DT As New DataTable

       Dim DA As New SqlDataAdapter
       DT.Clear()
       DA = New SqlDataAdapter("select *from products where label like '%" & TextBox1.Text & "%'", Module1.con)
           DA.Fill(DT)
           DataGridView1.DataSource = DT.DefaultView

   End Sub


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته ..

بعد كود تعبئة البيانات بإمكانك استخدام كود تغيير عناوين الأعمدة :
مثلاً :
كود :
DataGridView1.Columns(0).HeaderText = "المعرف"
       DataGridView1.Columns(1).HeaderText = "اسم الشركة"
       DataGridView1.Columns(2).HeaderText = "اسم الخدمة"
       

وهكذا حتى تسمي كافة الأعمدة ..

هذا الكود لا يعترض على التسميات سواء كانت بأي اللغة..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , مصمم هاوي
#3
(25-10-22, 10:40 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته ..

بعد كود تعبئة البيانات بإمكانك استخدام كود تغيير عناوين الأعمدة :
مثلاً :
كود :
DataGridView1.Columns(0).HeaderText = "المعرف"
       DataGridView1.Columns(1).HeaderText = "اسم الشركة"
       DataGridView1.Columns(2).HeaderText = "اسم الخدمة"
       

وهكذا حتى تسمي كافة الأعمدة ..

هذا الكود لا يعترض على التسميات سواء كانت بأي اللغة..

  يظهر خطا مثل في الصورة 
هدا كود 
كود :
 Public Sub fill_DGV()
       dt.Clear()
       query = "select id_product 'رمز المعرف',label 'اسم المنتج',label_product 'وصف منتج',UNIT 'الوحدة',date 'تاريخ الصلاحية',qty 'الكمية',tklfa 'سعر التكلفة',price 'سعر البيع',total 'المجموع' from products"
       da = New SqlDataAdapter(query, Module1.con)
       DataGridView1.Columns(0).HeaderText = "رمز المعرف"
       DataGridView1.Columns(1).HeaderText = "اسم منتج"
       DataGridView1.Columns(2).HeaderText = "وصف المنتج"
       DataGridView1.Columns(3).HeaderText = "الوحدة"
       DataGridView1.Columns(4).HeaderText = "تاريخ الصلاحية"
       DataGridView1.Columns(5).HeaderText = "الكمية"
       DataGridView1.Columns(6).HeaderText = "سعر التكلفة"
       DataGridView1.Columns(7).HeaderText = "سعر البيع"
       DataGridView1.Columns(8).HeaderText = " المجموع"

       da.Fill(dt)

       DataGridView1.DataSource = dt
   End Sub


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#4
1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
   2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.

يعني ضع كود تسميات الأعمدة بعد السطر :
كود :
DataGridView1.DataSource = dt
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: ali_ahmed12
#5
(26-10-22, 12:10 PM)Taha Okla كتب : 1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
   2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.

يعني ضع كود تسميات الأعمدة بعد السطر :
كود :
DataGridView1.DataSource = dt
الله يرحم والديك خدم صحيح

(26-10-22, 12:10 PM)Taha Okla كتب : 1 - كود الاستعلام لا تكتب به بالعربي(اذا اشتغل اليوم معك على جهاز أو برنامج مش راح يشتغل بكرى على اصدار أو جهاز آخر).
   2 - تسميات الاعمدة تكون بعد تعبئة الجدول وليس قبله.

يعني ضع كود تسميات الأعمدة بعد السطر :
كود :
DataGridView1.DataSource = dt

ممكن كيفية تنبيه المستخدم في حال انه كمية تساوي صفر هدا جدول 
هدا كود عندما اضغط enter في تكست بوكس السعر ينزل اسفل في قريد فيو 
موضح جدول قاعده بيانات وكود  عندما اضغط علي enter 
كود :
Private Sub txtprice_KeyDown(sender As Object, e As KeyEventArgs) Handles txtprice.KeyDown

       If e.KeyCode = Keys.Enter Then



           For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
                   If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then
                       MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
                       cl()
                       Exit Sub
                   End If
               Next
               Dim row As DataRow = dt.NewRow
               row(0) = txtid.Text
               row(1) = txtlabel.Text
               row(2) = txtqty.Text
               row(3) = txtprice.Text
               row(4) = txtamount.Text
               dt.Rows.Add(row)
               Me.DGV_PRODUCT.DataSource = dt
               cl()
               tootal()
           End If

   End Sub


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:



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


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