Visual Basic

fizie89 wrote:

for my final year project.

fizie89 wrote:

anyone can help me

First of all,Thank you so much for your kind endevour to make the code right, it's working when i click on the edit button the selected record shows in the text box and clicking on the delete button it' working properly, but one thing is here , I change my code as you send to me but when I update the record and click on save button , the new record is added with update text box not updated the existing record, I am sending following my save button click event,
 

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
       If validateform() Then
           If id IsNot Nothing Then
 
               Dim result As Boolean = lbll.updatelorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())
               If result = True Then
                   ClearText()
                   bindgrid()
                   id = Nothing
                   MessageBox.Show("Update Successfully")
 
               End If
           Else
               Dim result As Boolean = lbll.insertlorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())
               If result = True Then
                   ClearText()
                   bindgrid()
                   MessageBox.Show("Created Successfully")
               End If
           End If
       End If
   End Sub

 
I have changed the "idstring" to id" which is used by you in my whole coding.one thing is there that in save button click event I have written that (if id isNoting) then proceed the update command. At this stage I already added the code "if id =0" cause he editbutton.index is 0, but it's not working throw message i.e

The method or operation is not implemented.

where as I am using the Function update.which is below
 

Public Function updatelorry(ByVal pkId As Integer, ByVal Lcode As String, ByVal Lno As String, ByVal Dname As String) As Boolean
            Try
                Dim param As SqlParameter() = New SqlParameter(3) {}
                param(0) = New SqlParameter("@pkid", pkId)
                param(1) = New SqlParameter("@lcode", Lcode)
                param(2) = New SqlParameter("@lno", Lno)
                param(3) = New SqlParameter("@dname", Dname)
                SqlHelper.ExecuteNonQuery(ConnectionString, CommandType.StoredProcedure, "updatelorry", param)
                Return True
            Catch
                Throw
            End Try
        End Function

also it makes automatic another update function where the message throws which is below

Function updatelorry(ByVal p1 As String, ByVal p2 As String, ByVal p3 As String) As Boolean
           Throw New NotImplementedException--error shows here
 
       End Function

 
when i use in save button click event that
if id=editbutton.index then the same message throw.
 
Please suggest me what to do at this stage to make the update procedure active.
 
also if i use comment in the automatic created function then it shows another error is that
"Argument not specified for parameter 'Dname' of 'Public Function updatelorry(pkId As Integer, Lcode As String, Lno As String, Dname As String) As Boolean'.at save button click event
 

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
       If validateform() Then
           'If id IsNot Nothing Then
           If id = editbutton.Index Then
 
               Dim result As Boolean = lbll.updatelorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())--Error Shows here
               If result = True Then
                   ClearText()
                   bindgrid()
                   id = Nothing
                   MessageBox.Show("Update Successfully")
 
               End If
           Else
               Dim result As Boolean = lbll.insertlorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())
               If result = True Then
                   ClearText()
                   bindgrid()
                   MessageBox.Show("Created Successfully")
               End If
           End If
       End If
   End Sub

 
the stored procedure od update command is
 

ALTER PROCEDURE [dbo].[updatelorry]
@lcode varchar(50),
@lno varchar(50),
@dname varchar(50),
@pkId int
AS
BEGIN
	update lorrymaster set LCode=@lcode,Lno=@lno,Dname=@dname
	where pkid=@pkId
	select  @pkId
END

 
Also the lorrymaster table structure is
 

CREATE TABLE [dbo].[lorrymaster](
    [pkid] [int] IDENTITY(1,1) NOT NULL,
    [lcode] [varchar](50) NULL,
    [lno] [varchar](50) NULL,
    [dname] [varchar](50) NULL,
    [createdate] [smalldatetime] NULL
) ON [PRIMARY]
 
GO
SET ANSI_PADDING OFF

AdvantageSoft wrote:

What would be the best way to go about this?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]