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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ربط البرنامج بأكثر من جهاز اسامه الهرماوي 4 166 منذ 4 ساعة مضت
آخر رد: sendbad100
  [VB.NET] عند البحث عن سجل بين تاريخين اسامه الهرماوي 2 79 22-05-19, 08:12 PM
آخر رد: اسامه الهرماوي
  [VB.NET] ما يخص البرنامج في ملف تثبيت exe اسامه الهرماوي 5 166 19-05-19, 12:59 AM
آخر رد: عبد العزيز البسكري
  البرنامج لايعمل علي جهاز العميل makky 3 92 19-05-19, 12:53 AM
آخر رد: elgokr
  مشكله في تغيير مقاسات البرنامج عند نقله علي اللاب توب Emam emam 6 158 19-05-19, 12:10 AM
آخر رد: elgokr
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 4 118 18-05-19, 11:53 PM
آخر رد: elgokr
  مشكلة توقف البرنامج محمد ابوخليل 4 116 16-05-19, 01:50 PM
آخر رد: elgokr
  خطأ أثناء عملية البحث في DATAGRIDVIEW ahmedfa71 5 72 14-05-19, 04:10 PM
آخر رد: elgokr
  البحث بتاريخ من نوع نصي محمد خيري 18 278 05-05-19, 06:37 PM
آخر رد: محمد خيري
  برمجة الاحتمالات في الفيجوال samira20 4 143 02-05-19, 05:58 PM
آخر رد: ابراهيم ايبو

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


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