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

إقتباس :تم التعديل على مشروع الاخ سعود

لتحويله من DataGridView الى ListView

بل جعلته افضل ... بارك الله فيك.

(06-07-18, 07:28 PM)elgokr كتب : [ -> ]

تم التعديل على مشروع الاخ سعود

لتحويله من DataGridView الى ListView

صورة البرنامج

السورس + البرنامج + قاعدة البيانات بالمرفقات

تحياتى لك

وتمنياتى لك التوفيق

ما شاءالله تبارك الله

استاااااااااذ 


شكرا

---

(06-07-18, 07:35 PM)سعود كتب : [ -> ]

إقتباس :تم التعديل على مشروع الاخ سعود

لتحويله من DataGridView الى ListView

بل جعلته افضل ... بارك الله فيك.

لمساتك جميله الله لا يحرمنا منكم

شكرا لك استاذي 

(06-07-18, 07:53 PM)elgokr كتب : [ -> ]

الشكر لله اخى الحبيب

وبدون القاب او مسميات فضلاً

فلنا الله جميعاً عن التكبر والغرور

فتحياتى لك

بارك الله فيك


اسمحلي اخذ من وقتك 

طلع لي مشكله في الكود بعد جمده مع الكود الخاص بي

إقتباس :      System.Data.SQLite.SQLiteException: 'SQLite error

near "#1": syntax error'

مرفق  المشروع بعد اذنك
[attachment=18754]


وشكرا لك

(07-07-18, 05:25 PM)Done كتب : [ -> ]

PHP كود :

Imports System.Data.SQLite
Imports System.Globalization
Imports System.Threading
Public Class form1

    Dim dt As New DataTable
    Dim page As Integer = 1
    Dim totalpages As Integer = 0
    Const perpage As Integer = 50




    Dim SQLiteconnstring As String = "Data Source=|DataDirectory|testprent.s3db"
    Dim concc As SQLiteConnection
    Dim dacc As SQLiteDataAdapter
    Dim cmcc As SQLiteCommandBuilder

    Dim all_date As New List(Of String)

    Private Sub cbox(ByVal year_ As String)
        concc = New SQLiteConnection(SQLiteconnstring)
        Dim sql As String = "Select * from testprent where ((qso_date)like '%" & year_ & "%') order by Qso_id desc"
        dacc = New SQLiteDataAdapter(sql, concc)
        cmcc = New SQLiteCommandBuilder(dacc)
        dt = New DataTable
        If dacc.Fill(dt) > 0 Then
            totalpages = Math.Ceiling(dt.Rows.Count / perpage)
            page = 1
            viewpage(page)
        End If

        'Dim kk(1) As String
        'Dim itm As ListViewItem

        'For ii As Integer = 0 To dt.Rows.Count - 1
        '    kk(0) = dt(ii)(1)
        '    kk(1) = dt(ii)(2)
        '    itm = New ListViewItem(kk)
        '    lst1.Items.Insert(0, itm)
        'Next
    End Sub

    Private Sub form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load


        lst1.FullRowSelect = True
        Me.lbl_start.Text = "0 / 0"


        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
        'lst1.Clear()
        'lst1.View = View.Details
        'lst1.Columns.Add("Emp Name", 125, HorizontalAlignment.Left)
        'lst1.Columns.Add("Emp Date", 125, HorizontalAlignment.Left)
        fill()
        Application.DoEvents()


    End Sub

    Sub fill()


        lst1.FullRowSelect = True
        Me.lbl_start.Text = "0 / 0"
        Dim da As New SQLiteDataAdapter("SELECT (SELECT COUNT(*) FROM testprent t WHERE testprent.Qso_id >= t.Qso_id) AS [Serial], * FROM   testprent   ", SQLiteconnstring)
        lst1.Items.Clear()
        dt.Clear()
        If da.Fill(dt) > 0 Then
            totalpages = Math.Ceiling(dt.Rows.Count / perpage)
            page = 1
            viewpage(page)


            'Dim kk(1) As String
            'Dim itm As ListViewItem

            'For ii As Integer = 0 To dt.Rows.Count - 1
            '    kk(0) = dt(ii)(1)
            '    kk(1) = dt(ii)(2)
            '    itm = New ListViewItem(kk)
            '    lst1.Items.Insert(0, itm)
            'Next


        End If







    End Sub

    Private Sub c_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles c.SelectedIndexChanged
        ''lst1.Clear()
        ''lst1.View = View.Details
        'lst1.Columns.Add("Emp Name", 125, HorizontalAlignment.Left)
        'lst1.Columns.Add("Emp Date", 125, HorizontalAlignment.Left)
        lst1.Items.Clear()
        cbox(c.Text)
    End Sub




    Private Sub btn_next_Click(sender As Object, e As EventArgs) Handles btn_next.Click
        nextpage()
    End Sub

    Private Sub btn_prev_Click(sender As Object, e As EventArgs) Handles btn_prev.Click
        previouspage()
    End Sub

    Private Sub btn_last_Click(sender As Object, e As EventArgs) Handles btn_last.Click
        lastspage()
    End Sub

    Private Sub btn_first_Click(sender As Object, e As EventArgs) Handles btn_first.Click
        firstspage()
    End Sub

    Private Sub firstspage()
        page = 1
        viewpage(page)
    End Sub

    Private Sub lastspage()
        page = totalpages
        viewpage(page)
    End Sub

    Private Sub previouspage()
        If page > 1 Then
            page -= 1
            viewpage(page)
        End If
    End Sub

    Private Sub nextpage()
        If page < totalpages Then
            page += 1
            viewpage(page)
        End If
    End Sub

    Private Sub viewpage(ByVal p As Integer)
        Me.lbl_start.Text = "0 / 0"
        If totalpages = 0 Then Return
        If p > totalpages Then
            p = totalpages
            page = p
        End If
        Me.lbl_start.Text = String.Format("{0} / {1}", page, totalpages)
        p -= 1
        lst1.Items.Clear()
        For i = (p * perpage) To (p * perpage) + perpage - 1
            If i = dt.Rows.Count Then Exit Sub
            Dim r As DataRow = dt.Rows(i)
            lst1.Items.Add(New ListViewItem(
                           {r("Qso_id"),
                            r("omcall"),
                            r("mycall"),
                            r("qso_date"),
                            r("timeutc"),
                            r("bands"),
                            r("modes"),
            r("rst_sent")
                           }))
        Next
    End Sub




End Class 


تسلم ايدك

نعم ضبط معاي

شكرا بارك الله فيك

(07-07-18, 08:50 PM)elgokr كتب : [ -> ]

الاخ Done

ما قصر فى تقديم المساعدة

فكل الشكر له على تقديم المساعدة 

تحياتى لك وللاخ Done

وتمنياتى لكم التوفيق

كلكم فيكم الخير والبركه 


عندي سؤال

الان في 
ComboBox
اكتب رقم السنه يدوي
2018
2017
2016
2015

في مجال اخلي الكود يبحث في قاعدة البيانات 
ويطلع لي السنوات

من البحث 

حاولت بهذا الكود بس ما ضبط



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