دخول

**dubai.eig** · 14-10-17, 04:14 PM

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

استفسار بخصوص عمل زر Next previous ل listview

الكود اللي عندي يعرض المعلومات بس محتاج يكون في كل صفحة عدد 15 سجل والباقي اروح لهم عن طريق زر ال Next

هذا الكود الخاص بي

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

كود :

Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

            sql = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD"

            con.Open()

            da = New SQLiteDataAdapter(sql, con)

            da.Fill(dt)

            Dim newrow As DataRow

            For Each newrow In dt.Rows

                 lst1.Items.Add(newrow.Item(0)) 'this is for ID

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(1)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(2)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(3))

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(4)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(5)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(6)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(7))

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(8)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(9)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(10)) 

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(11))

                lst1.Items(lst1.Items.Count - 1).SubItems.Add(newrow.Item(12)) 

            Next

2222222222222222222222222.png الحجم : 3.11 ك ب 14-10-17, 04:13 PM

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

**a.ahmed**

PHP كود :

Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

Dim dt As New DataTable

Dim page As Integer = 1
Dim totalpages As Integer = 0
Dim perpage As Integer = 15

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Me.Label1.Text = "0 / 0"
    Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD"
    Dim da As New SQLiteDataAdapter(Sql, con)
    If da.Fill(dt) > 0 Then
        totalpages = Math.Ceiling(dt.Rows.Count / perpage)
        viewpage(page)
    End If
End Sub





Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    nextpage()
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    previouspage()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    lastspage()
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.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)
    If totalpages = 0 Then Return
    Me.Label1.Text = 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("id"), r("CALLop"), r("MOHT"), r("DAY"), r("UTC"), r("MHz"), r("MODE"), r("sent_number"), r("rcvd_number"), r("multi1"), r("multi2"), r("point"), r("country")}))
    Next
End Sub 

Updated

**dubai.eig** · 14-10-17, 07:47 PM

(14-10-17, 06:32 PM)a.ahmed كتب :
PHP كود :

Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))) Dim dt As New DataTable Dim page As Integer = 1 Dim totalpages As Integer = 0 Dim perpage As Integer = 15 Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD" Dim da As New SQLiteDataAdapter(Sql, con) If da.Fill(dt) > 0 Then totalpages = Math.Ceiling(dt.Rows.Count / perpage) viewpage(page) End If End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click nextpage() End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click previouspage() End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click lastspage() End Sub Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.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.Label1.Text = 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("id"), r("CALLop"), r("MOHT"), r("DAY"), r("UTC"), r("MHz"), r("MODE"), r("sent_number"), r("rcvd_number"), r("multi1"), r("multi2"), r("point"), r("country")})) Next End Sub

شكرا احسنت عمل جميل بارك الله فيك

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

بس سؤال اخير

قبل كنت اضغط على اي سجل لاقوم بالتعديل على السجل المختار

222221.png الحجم : 19.59 ك ب 14-10-17, 07:45 PM

كود :

 Private Sub lst1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.Click

        TextBox1.Text = lst1.SelectedItems(0).SubItems(0).Text

        TextBox2.Text = lst1.SelectedItems(0).SubItems(1).Text

        TextBox3.Text = lst1.SelectedItems(0).SubItems(2).Text

        TextBox4.Text = lst1.SelectedItems(0).SubItems(3).Text

        TextBox5.Text = lst1.SelectedItems(0).SubItems(4).Text

        TextBox6.Text = lst1.SelectedItems(0).SubItems(5).Text

        TextBox7.Text = lst1.SelectedItems(0).SubItems(6).Text

        TextBox8.Text = lst1.SelectedItems(0).SubItems(7).Text

        TextBox9.Text = lst1.SelectedItems(0).SubItems(8).Text

        TextBox10.Text = lst1.SelectedItems(0).SubItems(9).Text

        TextBox11.Text = lst1.SelectedItems(0).SubItems(10).Text

        TextBox12.Text = lst1.SelectedItems(0).SubItems(11).Text

        TextBox13.Text = lst1.SelectedItems(0).SubItems(12).Text

        TextBox14.Text = lst1.SelectedItems(0).SubItems(13).Text

    End Sub

الان ما ضابط معاي لان الكود تغير

هل من طريقه اخرى بارك الله فيك

وشكرا على وقتك

**a.ahmed** · 15-10-17, 04:03 AM

PHP كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    lst1.FullRowSelect = True
    Me.Label1.Text = "0 / 0"
    Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD"
    Dim da As New SQLiteDataAdapter(Sql, con)
    If da.Fill(dt) > 0 Then
        totalpages = Math.Ceiling(dt.Rows.Count / perpage)
        viewpage(page)
    End If
End Sub 

PHP كود :

Private Sub lst1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.SelectedIndexChanged
    If lst1.SelectedItems.Count = 0 Then Return
    Dim itm As ListViewItem = lst1.SelectedItems(0)
    TextBox1.Text = itm.SubItems(0).Text
    TextBox2.Text = itm.SubItems(1).Text
    TextBox3.Text = itm.SubItems(2).Text
    TextBox4.Text = itm.SubItems(3).Text
    TextBox5.Text = itm.SubItems(4).Text
    TextBox6.Text = itm.SubItems(5).Text
    TextBox7.Text = itm.SubItems(6).Text
    TextBox8.Text = itm.SubItems(7).Text
    TextBox9.Text = itm.SubItems(8).Text
    TextBox10.Text = itm.SubItems(9).Text
    TextBox11.Text = itm.SubItems(10).Text
    TextBox12.Text = itm.SubItems(11).Text
    TextBox13.Text = itm.SubItems(12).Text
    'TextBox14.Text = itm.SubItems(13).Text
End Sub 

**dubai.eig** · 15-10-17, 08:44 AM

(15-10-17, 04:03 AM)a.ahmed كتب :
PHP كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load lst1.FullRowSelect = True Me.Label1.Text = "0 / 0" Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD" Dim da As New SQLiteDataAdapter(Sql, con) If da.Fill(dt) > 0 Then totalpages = Math.Ceiling(dt.Rows.Count / perpage) viewpage(page) End If End Sub

PHP كود :

Private Sub lst1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.SelectedIndexChanged If lst1.SelectedItems.Count = 0 Then Return Dim itm As ListViewItem = lst1.SelectedItems(0) TextBox1.Text = itm.SubItems(0).Text TextBox2.Text = itm.SubItems(1).Text TextBox3.Text = itm.SubItems(2).Text TextBox4.Text = itm.SubItems(3).Text TextBox5.Text = itm.SubItems(4).Text TextBox6.Text = itm.SubItems(5).Text TextBox7.Text = itm.SubItems(6).Text TextBox8.Text = itm.SubItems(7).Text TextBox9.Text = itm.SubItems(8).Text TextBox10.Text = itm.SubItems(9).Text TextBox11.Text = itm.SubItems(10).Text TextBox12.Text = itm.SubItems(11).Text TextBox13.Text = itm.SubItems(12).Text 'TextBox14.Text = itm.SubItems(13).Text End Sub

تسلم يا بطل بارك الله فيك وشكرا على وقتك

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

**dubai.eig**

(15-10-17, 04:03 AM)a.ahmed كتب :
PHP كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load lst1.FullRowSelect = True Me.Label1.Text = "0 / 0" Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD" Dim da As New SQLiteDataAdapter(Sql, con) If da.Fill(dt) > 0 Then totalpages = Math.Ceiling(dt.Rows.Count / perpage) viewpage(page) End If End Sub

PHP كود :

Private Sub lst1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.SelectedIndexChanged If lst1.SelectedItems.Count = 0 Then Return Dim itm As ListViewItem = lst1.SelectedItems(0) TextBox1.Text = itm.SubItems(0).Text TextBox2.Text = itm.SubItems(1).Text TextBox3.Text = itm.SubItems(2).Text TextBox4.Text = itm.SubItems(3).Text TextBox5.Text = itm.SubItems(4).Text TextBox6.Text = itm.SubItems(5).Text TextBox7.Text = itm.SubItems(6).Text TextBox8.Text = itm.SubItems(7).Text TextBox9.Text = itm.SubItems(8).Text TextBox10.Text = itm.SubItems(9).Text TextBox11.Text = itm.SubItems(10).Text TextBox12.Text = itm.SubItems(11).Text TextBox13.Text = itm.SubItems(12).Text 'TextBox14.Text = itm.SubItems(13).Text End Sub

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

سؤال اخر بعد اذنك

بعد التعديل على السجل ما يعمل تحديث للفورم الرئيسي الا بعد اغلاقه وفتحه

حاول بعدة طرق

lst1.Refresh()

بس ما نفع

بارك الله فيك

**a.ahmed** · 15-10-17, 09:21 PM

PHP كود :

Imports System.Data.SQLite

Public Class Form1

    Dim con As New SQLiteConnection("Data Source=DB.s3db")

    'Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))

    Dim da As New SQLiteDataAdapter("SELECT * from [DBD] ", con)
    Dim dt As New DataTable

    Dim page As Integer = 1
    Dim totalpages As Integer = 0
    Dim perpage As Integer = 15

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

        lst1.FullRowSelect = True

        Me.Label1.Text = "0 / 0"

        fill()

    End Sub

    Sub fill()
        lst1.Items.Clear()
        dt.Clear()
        If da.Fill(dt) > 0 Then
            totalpages = Math.Ceiling(dt.Rows.Count / perpage)
            viewpage(page)
        End If
    End Sub

    Private Sub lst1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.SelectedIndexChanged
        If lst1.SelectedItems.Count = 0 Then Return
        Dim itm As ListViewItem = lst1.SelectedItems(0)
        TextBox1.Text = itm.SubItems(0).Text
        TextBox2.Text = itm.SubItems(1).Text
        TextBox3.Text = itm.SubItems(2).Text
        TextBox4.Text = itm.SubItems(3).Text
        TextBox5.Text = itm.SubItems(4).Text
        TextBox6.Text = itm.SubItems(5).Text
        TextBox7.Text = itm.SubItems(6).Text
        TextBox8.Text = itm.SubItems(7).Text
        TextBox9.Text = itm.SubItems(8).Text
        TextBox10.Text = itm.SubItems(9).Text
        TextBox11.Text = itm.SubItems(10).Text
        TextBox12.Text = itm.SubItems(11).Text
        TextBox13.Text = itm.SubItems(12).Text
    End Sub




    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        nextpage()
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        previouspage()
    End Sub
    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        lastspage()
    End Sub

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.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.Label1.Text = "0 / 0"
        If totalpages = 0 Then Return
        If p > totalpages Then
            p = totalpages
            page = p
        End If
        Me.Label1.Text = 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("id"),
                            r("CALLop"),
                            r("MOHT"),
                            r("DAY"),
                            r("UTC"),
                            r("MHz"),
                            r("MODE"),
                            r("sent_number"),
                            r("rcvd_number"),
                            r("multi1"),
                            r("multi2"),
                            r("point"),
                            r("country")
                           }))
        Next
    End Sub

    Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
        If Val(TextBox1.Text) = 0 Then Return

        Dim cmd As New SQLiteCommand(
            "UPDATE [DBD]                       " & _
            "SET    [CALLop]=@CALLop,           " & _
            "       [MOHT]=@MOHT,               " & _
            "       [DAY]=@DAY,                 " & _
            "       [UTC]=@UTC,                 " & _
            "       [MHz]=@MHz,                 " & _
            "       [MODE]=@MODE,               " & _
            "       [sent_number]=@sent_number, " & _
            "       [rcvd_number]=@rcvd_number, " & _
            "       [multi1]=@multi1,           " & _
            "       [multi2]=@multi2,           " & _
            "       [point]=@point,             " & _
            "       [country]=@country          " & _
            "WHERE  [id]=@id                    ", con)

        cmd.Parameters.AddWithValue("@CALLop", TextBox2.Text)
        cmd.Parameters.AddWithValue("@MOHT", TextBox3.Text)
        cmd.Parameters.AddWithValue("@DAY", TextBox4.Text)
        cmd.Parameters.AddWithValue("@UTC", TextBox5.Text)
        cmd.Parameters.AddWithValue("@MHz", TextBox6.Text)
        cmd.Parameters.AddWithValue("@MODE", TextBox7.Text)
        cmd.Parameters.AddWithValue("@sent_number", TextBox8.Text)
        cmd.Parameters.AddWithValue("@rcvd_number", TextBox9.Text)
        cmd.Parameters.AddWithValue("@multi1", TextBox10.Text)
        cmd.Parameters.AddWithValue("@multi2", TextBox11.Text)
        cmd.Parameters.AddWithValue("@point", TextBox12.Text)
        cmd.Parameters.AddWithValue("@country", TextBox13.Text)

        cmd.Parameters.AddWithValue("@id", Val(TextBox1.Text))

        If con.State <> ConnectionState.Open Then con.Open()
        Dim ret As Integer = cmd.ExecuteNonQuery()
        con.Close()

        If ret > 0 Then
            fill()
            MsgBox("Updated")
            clear()
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click
        If Val(TextBox1.Text) = 0 Then Return

        If MsgBox("Delete?", MsgBoxStyle.YesNo) <> vbYes Then Return

        Dim cmd As New SQLiteCommand("DELETE FROM DBD WHERE [id]=@id", con)
        cmd.Parameters.AddWithValue("@id", Val(TextBox1.Text))

        If con.State <> ConnectionState.Open Then con.Open()
        Dim ret As Integer = cmd.ExecuteNonQuery()
        con.Close()

        If ret > 0 Then
            fill()
            MsgBox("Deleted")
            clear()
        End If

    End Sub

    Sub clear()
        Dim tbs() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13}
        For Each tb As TextBox In tbs
            tb.Clear()
        Next
    End Sub

End Class 

**dubai.eig** · 15-10-17, 11:11 PM

(15-10-17, 09:21 PM)a.ahmed كتب :
PHP كود :

Imports System.Data.SQLite Public Class Form1 Dim con As New SQLiteConnection("Data Source=DB.s3db") 'Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))) Dim da As New SQLiteDataAdapter("SELECT * from [DBD] ", con) Dim dt As New DataTable Dim page As Integer = 1 Dim totalpages As Integer = 0 Dim perpage As Integer = 15 Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load lst1.FullRowSelect = True Me.Label1.Text = "0 / 0" fill() End Sub Sub fill() lst1.Items.Clear() dt.Clear() If da.Fill(dt) > 0 Then totalpages = Math.Ceiling(dt.Rows.Count / perpage) viewpage(page) End If End Sub Private Sub lst1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lst1.SelectedIndexChanged If lst1.SelectedItems.Count = 0 Then Return Dim itm As ListViewItem = lst1.SelectedItems(0) TextBox1.Text = itm.SubItems(0).Text TextBox2.Text = itm.SubItems(1).Text TextBox3.Text = itm.SubItems(2).Text TextBox4.Text = itm.SubItems(3).Text TextBox5.Text = itm.SubItems(4).Text TextBox6.Text = itm.SubItems(5).Text TextBox7.Text = itm.SubItems(6).Text TextBox8.Text = itm.SubItems(7).Text TextBox9.Text = itm.SubItems(8).Text TextBox10.Text = itm.SubItems(9).Text TextBox11.Text = itm.SubItems(10).Text TextBox12.Text = itm.SubItems(11).Text TextBox13.Text = itm.SubItems(12).Text End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click nextpage() End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click previouspage() End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click lastspage() End Sub Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.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.Label1.Text = "0 / 0" If totalpages = 0 Then Return If p > totalpages Then p = totalpages page = p End If Me.Label1.Text = 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("id"), r("CALLop"), r("MOHT"), r("DAY"), r("UTC"), r("MHz"), r("MODE"), r("sent_number"), r("rcvd_number"), r("multi1"), r("multi2"), r("point"), r("country") })) Next End Sub Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click If Val(TextBox1.Text) = 0 Then Return Dim cmd As New SQLiteCommand( "UPDATE [DBD] " & _ "SET [CALLop]=@CALLop, " & _ " [MOHT]=@MOHT, " & _ " [DAY]=@DAY, " & _ " [UTC]=@UTC, " & _ " [MHz]=@MHz, " & _ " [MODE]=@MODE, " & _ " [sent_number]=@sent_number, " & _ " [rcvd_number]=@rcvd_number, " & _ " [multi1]=@multi1, " & _ " [multi2]=@multi2, " & _ " [point]=@point, " & _ " [country]=@country " & _ "WHERE [id]=@id ", con) cmd.Parameters.AddWithValue("@CALLop", TextBox2.Text) cmd.Parameters.AddWithValue("@MOHT", TextBox3.Text) cmd.Parameters.AddWithValue("@DAY", TextBox4.Text) cmd.Parameters.AddWithValue("@UTC", TextBox5.Text) cmd.Parameters.AddWithValue("@MHz", TextBox6.Text) cmd.Parameters.AddWithValue("@MODE", TextBox7.Text) cmd.Parameters.AddWithValue("@sent_number", TextBox8.Text) cmd.Parameters.AddWithValue("@rcvd_number", TextBox9.Text) cmd.Parameters.AddWithValue("@multi1", TextBox10.Text) cmd.Parameters.AddWithValue("@multi2", TextBox11.Text) cmd.Parameters.AddWithValue("@point", TextBox12.Text) cmd.Parameters.AddWithValue("@country", TextBox13.Text) cmd.Parameters.AddWithValue("@id", Val(TextBox1.Text)) If con.State <> ConnectionState.Open Then con.Open() Dim ret As Integer = cmd.ExecuteNonQuery() con.Close() If ret > 0 Then fill() MsgBox("Updated") clear() End If End Sub Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click If Val(TextBox1.Text) = 0 Then Return If MsgBox("Delete?", MsgBoxStyle.YesNo) <> vbYes Then Return Dim cmd As New SQLiteCommand("DELETE FROM DBD WHERE [id]=@id", con) cmd.Parameters.AddWithValue("@id", Val(TextBox1.Text)) If con.State <> ConnectionState.Open Then con.Open() Dim ret As Integer = cmd.ExecuteNonQuery() con.Close() If ret > 0 Then fill() MsgBox("Deleted") clear() End If End Sub Sub clear() Dim tbs() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13} For Each tb As TextBox In tbs tb.Clear() Next End Sub End Class

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

الله يبارك فيك وفي اهلك واولادك وجزاك الجنة بدون حساب

تسلم احسنت لمسات ايدك ما شاءالله تبارك الله جميله

شكراااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

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

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	فائدة بخصوص التعامل مع علامات التنصيص مع {سؤال}	justforit	4	292	02-11-25, 11:19 PM آخر رد: justforit
	[VB.NET] بخصوص تشفير FoxLearn.License	h2551996	1	639	17-07-25, 09:18 PM آخر رد: h2551996
	[VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort	dubai.eig	2	665	18-06-25, 11:09 AM آخر رد: dubai.eig
	استفسار لو سمحتم	خالد كامل1	3	831	04-06-25, 06:03 PM آخر رد: Kamil
	استفسار عن حامية برنامج	ahmedramy	2	591	27-04-25, 06:02 PM آخر رد: princelovelorn
	استفسار عن تنسيق الفورم في حالة تغيرالفورم من وضع العادي الي التكبير	fireswored1	4	838	22-01-25, 09:04 PM آخر رد: fireswored1
	استفسار عن حمايه البرنامج	ahmedramy	1	559	25-12-24, 11:07 PM آخر رد: aljzazy
	[سؤال] SkinSoft VisualStyler.Net v2.4 طلب بخصوص	ali.alfoly	6	795	24-12-24, 03:23 PM آخر رد: عبد العزيز البسكري
	[سؤال] استفسار	ads	0	301	18-11-24, 12:00 AM آخر رد: ads
	[VB.NET] استفسار حول دمج سطرين	rdxdz	1	404	16-11-24, 11:19 PM آخر رد: قناص المدينة