دخول

**elgokr** · 06-07-18, 07:28 PM

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

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

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

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

تحياتى لك

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

***سعود*** · 06-07-18, 07:35 PM

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

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

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

**dubai.eig**

(06-07-18, 07:28 PM)elgokr كتب :
تم التعديل على مشروع الاخ سعود

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

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

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

تحياتى لك

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

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

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

شكرا Rolleyes

(06-07-18, 07:35 PM)سعود كتب :
إقتباس :تم التعديل على مشروع الاخ سعود

لتحويله من DataGridView الى ListView
بل جعلته افضل ... بارك الله فيك.

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

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

**elgokr** · 06-07-18, 07:53 PM

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

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

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

فتحياتى لك

**dubai.eig** · 07-07-18, 03:51 PM

(06-07-18, 07:53 PM)elgokr كتب :
الشكر لله اخى الحبيب

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

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

فتحياتى لك

بارك الله فيك

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

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

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

near "#1": syntax error'

مرفق المشروع بعد اذنك

.zip

WindowsApp7.zip (الحجم : 2.85 م ب / التحميلات : 22)

وشكرا لك

**Done** · 07-07-18, 05:25 PM

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 

**dubai.eig** · 07-07-18, 05:40 PM

(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

تسلم ايدك

نعم ضبط معاي

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

Rolleyes

**elgokr** · 07-07-18, 08:50 PM

الاخ Done

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

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

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

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

**dubai.eig** · 08-07-18, 01:24 PM

(07-07-18, 08:50 PM)elgokr كتب :
الاخ Done

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

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

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

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

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

عندي سؤال

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

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

من البحث

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

كود :

("SELECT DISTINCT Year(qso_date)

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

**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)
        If year_ = "*" Then year_ = ""
        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
        Me.c.Items.Clear()
        Me.c.Items.Add("*")
        Me.c.DropDownStyle = ComboBoxStyle.DropDownList
        Dim da As New SQLiteDataAdapter("SELECT DISTINCT substr(qso_date,0,5) AS d FROM testprent ORDER BY qso_date DESC", SQLiteconnstring)
        Dim dt As New DataTable
        da.Fill(dt)
        For Each r As DataRow In dt.Rows
            c.Items.Add(r("d"))
        Next
        Me.c.SelectedIndex = 0

        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 

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	تصدير البيانات إلى ملف RTF	مصمم هاوي	4	823	15-08-25, 04:13 PM آخر رد: أبو خالد الشكري
	[VB.NET] ما هو أفضل موقع استضافة لقواعد البيانات MSSQL ؟	mmaalmesry	0	795	16-07-25, 10:45 PM آخر رد: mmaalmesry
	مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك	ahmedfa71	13	2,217	09-07-25, 11:24 PM آخر رد: أبو خالد الشكري
	مشكلة في حفظ البيانات	مصمم هاوي	2	1,019	30-06-25, 08:51 AM آخر رد: مصمم هاوي
	[VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort	dubai.eig	2	661	18-06-25, 11:09 AM آخر رد: dubai.eig
	استفسار لو سمحتم	خالد كامل1	3	807	04-06-25, 06:03 PM آخر رد: Kamil
	بطء في جلب البيانات	مصمم هاوي	9	999	08-05-25, 07:51 AM آخر رد: مصمم هاوي
	استفسار عن حامية برنامج	ahmedramy	2	577	27-04-25, 06:02 PM آخر رد: princelovelorn
	تعديل كود تحديث البيانات	مصمم هاوي	1	784	26-04-25, 06:07 PM آخر رد: مصمم هاوي
	لايمكن تعرف على تنسيق قاعدة البيانات	الدريساوي	2	697	26-04-25, 12:24 AM آخر رد: الدريساوي