منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

عندي كود يسحب الداتا من قاعدة البيانات من موقعي وينزلهم في ال DataGridView

المشكله عندي في الوقت

ينزل الوقت
كذا
00:00:00

كمثال

اريد اغير الى
00:00

كود :

If itm3.Length = 8 Then

                    timek = itm3.Substring(3)

                End If

يعني امسح اول ثلاث ارقام

بس حاولت ما ضبط معاي

[attachment=21218]

هذا الكود

كود :

Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork

        Using cmd As New MySqlCommand(String.Format("SELECT id,dati,time,mode,band FROM cq_qso Where dxcallsign like '{0}' and cals like '{1}' order by dati DESC ", Opencontest, Label10.Text))

            cmd.Connection = connection

            cmd.CommandType = CommandType.Text

            Using sda As New MySqlDataAdapter(cmd)

                sda.Fill(table)

                ProgressBar2.Maximum = table.Rows.Count - 0

                BackgroundWorker2.ReportProgress(table.Rows.Count - 0)

            End Using

        End Using

    End Sub

    Private Sub BackgroundWorker2_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker2.ProgressChanged

        ProgressBar2.Value = e.ProgressPercentage

        Me.Label12.Text = e.ProgressPercentage & " Percent Completed!"

    End Sub

    Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted

        Me.ProgressBar2.Visible = False

        Label12.Text = "DONE!"

        Cursor = Cursors.Default

        For Each row As DataRow In table.Rows

            dgvSelectAll.Rows.Add(row.ItemArray)

            Label11.Text = dgvSelectAll.Rows.Count - 0

            Label11.Text = String.Format("Number of QSO : {0}  ", Label11.Text)

        Next

    End Sub

بحثت كثير بس ما حصلت حل

افيدوني بارك الله فيكم

وشكرا

في جملة الإستعلام وجلب البيانات ضع شرطك كالتالي :

كود :

select id,dati,time.Substring(0, 5),mode,band.........

الكود السابق افضل ..
وهناك حل آخر وهو بعد جلب البيانات وتعبئة الداتاقريدفيو تعمل حلقة فور لوب وتقوم بحذف آخر ثلاثة خانات من حقل التايم المجودة في القريدفيو

(24-03-19, 04:50 AM)حريف برمجة كتب : [ -> ]في جملة الإستعلام وجلب البيانات ضع شرطك كالتالي :

كود :

select id,dati,time.Substring(0, 5),mode,band.........
الكود السابق افضل ..
وهناك حل آخر وهو بعد جلب البيانات وتعبئة الداتاقريدفيو تعمل حلقة فور لوب وتقوم بحذف آخر ثلاثة خانات من حقل التايم المجودة في القريدفيو

تسلم استاذي على الرد الكريم

قمت بالتجربه بس ما ضبط

مسج الغلط

كود :

execute command denied to user 'a4_qsl'@'%' for routine 'time.Substring'

وشكرا لك من جديد

جرب التالي :

كود :

select id,dati,SUBSTRING(time, 0, 5) AS time,.......

تعديل .......

حصلت كود وقمت بتجربه وضبط الحمدالله

كود :

   Private Sub dgvSelectAll_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgvSelectAll.CellFormatting

        If e.ColumnIndex = dgvSelectAll.Columns("Column3").Index Then

            If e.Value.ToString.Length > 5 Then

                e.Value = e.Value.ToString.Substring(3)

            End If

        End If

    End Sub

(24-03-19, 11:31 AM)حريف برمجة كتب : [ -> ]جرب التالي :

كود :

select id,dati,SUBSTRING(time, 0, 5) AS time,.......

ضبط معاي الحمدالله Smile

شكرا لك

البرمجه بحر كل يوم نتعلم شي جديد بفضل الله وبفضل وجودكم بارك الله فيك وككثر الله من امثالك
Rolleyes

(24-03-19, 11:36 AM)dubai.eig كتب : [ -> ]تعديل .......

حصلت كود وقمت بتجربه وضبط الحمدالله

كود :

Private Sub dgvSelectAll_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgvSelectAll.CellFormatting If e.ColumnIndex = dgvSelectAll.Columns("Column3").Index Then If e.Value.ToString.Length > 5 Then e.Value = e.Value.ToString.Substring(3) End If End If End Sub

(24-03-19, 11:31 AM)حريف برمجة كتب : [ -> ]جرب التالي :

كود :

select id,dati,SUBSTRING(time, 0, 5) AS time,.......

ضبط معاي الحمدالله

شكرا لك

البرمجه بحر كل يوم نتعلم شي جديد بفضل الله وبفضل وجودكم بارك الله فيك وككثر الله من امثالك

بالتوفيق يارب للجميع