تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] بحاجة الى اكواد الاضافة و الحذف و التعديل و البحث .. georgos 7 145 أمس, 10:52 AM
آخر رد: georgos
  مشكلة كود البحث بين تاريخين احمد129 12 285 11-02-19, 07:56 PM
آخر رد: princelovelorn
  [VB.NET] اريد ربط البرنامج مع xampp 0theghost0 2 111 06-02-19, 09:04 PM
آخر رد: aljzazy
Question [سؤال] كيفية عمل بحث كل 30 ثانية بدون مشكلة فى عمل البرنامج alims 1 128 04-02-19, 02:45 PM
آخر رد: sendbad100
  مشكله في كود البرنامج mohammad nour 1 93 29-01-19, 12:06 AM
آخر رد: عبد العزيز البسكري
Information مساعدة في عرض فواتير العميل georgos 3 158 27-01-19, 11:59 PM
آخر رد: aljzazy
  [VB.NET] البحث في RichTextBox dubai.eig 3 162 27-01-19, 02:47 AM
آخر رد: ابراهيم ايبو
  [سؤال] ايقاف البرنامج تلقائي بعد فترة ثلاث ايام من الانتاج soloxocf1 8 391 27-01-19, 01:40 AM
آخر رد: ابو ليلى
  [VB.NET] مشكلة عند تحويل البرنامج الى exe _M.Nasser 6 235 26-01-19, 03:27 AM
آخر رد: sendbad100
  القراءة من ملف text و البحث فيه احمد كبه 2 104 25-01-19, 11:18 AM
آخر رد: احمد كبه

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


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