
Originally Posted by
jmurrayhead
Share the solution, M

yes J, i was out of time yesterday..... so didnt post my code.
I added 2 things in .aspx part, first a text box to save my limit count for records to be shown
Code:
<asp:TextBox Visible="false" runat="server" ID="hdPageCount">
Then i had 2 submit buttons, one for 1st 1000 records, and second for next 1000 records.
Code:
<asp:button id="btnSubmit" runat="server" Width="125px" Text="First 1000 >>" TabIndex="2"></asp:button>
<asp:button id="btnNext" runat="server" Width="125px" Text="Next 1000 >>" TabIndex="3" Enabled="false"></asp:button>
Now i have a textbox to enter message to be saved in db. I needed this hidden textbox as i wasnt redirecting to this page after each insertion as then i would loose this text and i dont want the text in querystring.
Next is .vb part
Code:
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If Page.IsValid Then
SendMessage(Trim(txtMessage.Text), 0)
End If
End Sub
Protected Sub btnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Click
If Page.IsValid Then
SendMessage(Trim(txtMessage.Text), hdPageCount.Text)
End If
End Sub
Function SendMessage(ByVal message As String, ByVal limit As Integer)
Dim nPage As Integer = 1000
Dim strSQL As String = "Insert Into tblmessagemaster (Receiver_Id, Message, Msg_DateTime) " & _
"Select User_Id, @Message, now() From tblusermaster Limit @Limit, @Page"
Using Con As New MySqlConnection(sConn)
'GET TOTAL USERS
Dim cmdTotal As New MySqlCommand("Select Count(User_Id) From tblusermaster", Con)
Con.Open()
Dim nTotal As Integer = cmdTotal.ExecuteScalar
If nTotal > limit Then
Dim cmd As New MySqlCommand(strSQL, Con)
cmd.Parameters.AddWithValue("@Message", message)
cmd.Parameters.AddWithValue("@Limit", limit)
cmd.Parameters.AddWithValue("@Page", nPage)
cmd.ExecuteNonQuery()
End If
Con.Close()
If limit = 0 Then
'FIRST 1000
If nTotal - nPage > 0 Then
'MORE RECORDS
hdPageCount.Text = nPage
btnNext.Enabled = True
btnSubmit.Enabled = False
lblError.Text = " Inserted " & nPage & " records out of " & nTotal & " records."
Else
'NO MORE RECORDS
Response.Redirect("Message.aspx")
End If
Else
'NEXT 1000
Dim nNext As Integer = nPage + limit
If nTotal - nNext > 0 Then
'MORE RECORDS
hdPageCount.Text = nNext
btnNext.Enabled = True
btnSubmit.Enabled = False
lblError.Text = " Inserted " & nNext & " records out of " & nTotal & " records."
Else
'NO MORE RECORDS
Response.Redirect("Message.aspx")
End If
End If
End Using
End Function
Bookmarks