تقييم الموضوع :
  • 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 ك ب / التحميلات : 5)
الرد
تم الشكر بواسطة: محمد خيري , elgokr , shoma79 , shoma79
#3
موضوعك بسيط جدا ، المشكله لديك بال format الخاص بالتاريخ 
فهو على الاغلب مختلف من جهازك لجهاز العميل 

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة البحث ابو يوسف النواوي 2 1 72 أمس, 08:03 PM
آخر رد: Awad Issa
  تقرير كريستل ريبورت يطلب كلمة المرور علي جهاز العميل makky 1 60 10-12-18, 11:59 PM
آخر رد: ahmadpal
  يجبرني البرنامج على حفظ صورة الموظف!! أبووسم 3 108 10-12-18, 11:49 PM
آخر رد: ahmadpal
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 83 10-12-18, 05:47 AM
آخر رد: rmnr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 82 08-12-18, 08:36 PM
آخر رد: masry4u
  [سؤال] واجهات البرنامج تظهر في الاجهزة الاخرى بحجم كبير yassbazz1987 3 77 07-12-18, 05:07 PM
آخر رد: ahmadpal
  [سؤال] توقف البرنامج عن العمل allo5_800 7 132 05-12-18, 08:25 PM
آخر رد: ابو روضة
Rainbow [سؤال] تشغيل البرنامج ببرنامج اسامه الهرماوي 6 172 02-12-18, 09:33 PM
آخر رد: اسامه الهرماوي
  بعد تثبيت البرنامج عند العميل Emam emam 10 208 02-12-18, 03:31 PM
آخر رد: Emam emam
  البرنامج لا يعمل الا بعد عمل ريسترت makky 4 89 02-12-18, 10:29 AM
آخر رد: makky

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


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