تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل
#1
بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل

كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Search.Click

       Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\mydata.accdb;Jet OLEDB:Database Password=shoma661979")
       Dim dt As New DataTable
       Dim total As Integer
       dt.Clear()
       Dim cmd As New OleDbCommand
       Dim da As New OleDbDataAdapter(cmd)
       Dim hugh = DateTimePicker1.Value.Date
       Dim hugh2 = DateTimePicker2.Value.Date


       With cmd
           .CommandText = "Select * from Travel where Data between  #" & hugh & "# And #" & hugh2 & "# order by data"
           .CommandType = CommandType.Text
           .Connection = con
       End With

       da.Fill(dt)
       DataGridView1.DataSource = dt

       For i As Integer = 0 To dt.Rows.Count - 1
           total = dt.Rows(i).Item("TotalTravelPrice") + total

           Label7.Text = total


       Next

       DateTimePicker1.Value.ToString("yyyy/MM/dd")
       TxtFacSearch.Text = ""
       TxtFacSearch.Text = ""




       'Me.DataGridView1.Columns(0).HeaderText = " رقم السفرية"
       Me.DataGridView1.Columns(1).HeaderText = " اسم المهندس"
       Me.DataGridView1.Columns(2).HeaderText = " اسم المصنع"
       Me.DataGridView1.Columns(3).HeaderText = " تاريخ السفرية"
       Me.DataGridView1.Columns(4).HeaderText = " نوع السفرية"
       Me.DataGridView1.Columns(5).HeaderText = " عدد الايام"
       Me.DataGridView1.Columns(6).HeaderText = "قيمة اليوم"
       Me.DataGridView1.Columns(7).HeaderText = " عدد الليالي"
       Me.DataGridView1.Columns(8).HeaderText = " قيمة الليلة"
       Me.DataGridView1.Columns(9).HeaderText = "قيمة السفرية"


       Me.DataGridView1.Columns(0).Width = 100
       Me.DataGridView1.Columns(1).Width = 100
       Me.DataGridView1.Columns(2).Width = 100
       Me.DataGridView1.Columns(3).Width = 100
       Me.DataGridView1.Columns(4).Width = 150
       Me.DataGridView1.Columns(5).Width = 50
       Me.DataGridView1.Columns(6).Width = 50
       Me.DataGridView1.Columns(7).Width = 50
       Me.DataGridView1.Columns(8).Width = 50
       Me.DataGridView1.Columns(9).Width = 80



       DataGridView1.Columns(0).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(1).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(2).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(3).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(4).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(5).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(6).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(7).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(8).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)
       DataGridView1.Columns(9).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)


       DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter




       lblNumSelected.Text = DataGridView1.Rows.Count - 1

       If DataGridView1 IsNot Nothing Then
           Dim count As Integer = 0 'ترقيم تلقائي

           While (count <= (DataGridView1.Rows.Count - 1))
               DataGridView1.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")
               count += 1
           End While


       End If
       Me.DataGridView1.Columns(0).Visible = False


       DataGridView1.RowsDefaultCellStyle.BackColor = Color.LightBlue
       DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Wheat

       DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

       DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

   End Sub
الرد }}}
#2
اطلع علي هذا الرابط
لعلة يفيدك
http://vb4arb.com/vb/showthread.php?tid=14402
او المرفقات


الملفات المرفقة
.rar   khodor - AdvancedSearch.rar (الحجم : 89.62 ك ب / التحميلات : 14)
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة: محمد خيري , elgokr , shoma79 , shoma79
#3
موضوعك بسيط جدا ، المشكله لديك بال format الخاص بالتاريخ 
فهو على الاغلب مختلف من جهازك لجهاز العميل 

الحل هو ان تقوم بتغير ال format بالكود قبل عمليه البحث

يعنب التاريخ من الجهاز ياتي بهذا الشكل dd/MM/yyyy قم بتحويله كما يجب 

PHP كود :
datetimepicker.value.tostring("dd-MM-yyyy"
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr , shoma79 , shoma79
#4
جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 224 03-03-24, 08:45 PM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  لدي مشكلة في عرض تقارير الكريستال ريبورت في جهاز العميل Adel27213 1 303 14-02-24, 09:33 PM
آخر رد: sinong
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA

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


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