Visual Basic

Member 10386526 wrote:

Thanks for nothing

Member 10386526 wrote:

Thanks for nothing

' ref: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633499%28v=vs.85%29.aspx
Private Declare Function FindWindow Lib "user32" _
   Alias "FindWindowA" _
   (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
   
' this is a special case of FindWindow
Private Declare Function FindWindowByCaption Lib "user32" _
   Alias "FindWindowA" _
   (ByVal thismustbezero As Long, _
    ByVal lpWindowName As String) As Long
    
' ref: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633500%28v=vs.85%29.aspx
Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" _
    (ByVal parentHandle As Long, _
     ByVal childAfter As Long, _
     ByVal lclassName As String, _
     ByVal windowTitle As String) As Long
   
' ref: http://msdn.microsoft.com/en-us/library/windows/desktop/ms644950%28v=vs.85%29.aspx
Private Declare Function SendMessage Lib "user32.dll" _
    Alias "SendMessageA" _
    (ByVal hWnd As Long, _
     ByVal msg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long

' WM_Paste will be sent to the window to tell it to paste from the clipboard
Private Const WM_Paste As Long = &H302

Sub Test()
    ' using notepad just as an example external application
    
    Dim res As Double
    res = Shell("notepad.exe", vbNormalFocus)
    
    ' get the handle to the notepad application window
    Dim hWndNotepad As Long
    hWndNotepad = FindWindowByCaption(0, "Untitled - Notepad")
    
    ' Typically, the window you want to paste to is a child window
    ' to the main window.  In the the case of Notepad, the child window has
    ' the class name "Edit".
    Dim hwndEdit As Long
    hwndEdit = FindWindowEx(hWndNotepad, 0, "Edit", "")
    
    ' copy something to the clipboard
    Range("Sheet1!A1").Formula = "This was copied from my excel spreadsheet"
    Range("Sheet1!A1").Copy
    
    ' now that we have the handle to the notpad edit window,
    ' send it a the WM_Paste message
    Dim res2 As Long
    res2 = SendMessage(hwndEdit, WM_Paste, 0, 0)

End Sub

Biplob Singha Shee wrote:

Is it just like the procedure in which I connected MySQL database installed in
Windows PC? I used MySQL connector.NET to connect. If I want to connect Linux
PC, what should I use? MySQL Connector/NET or MySQL Connector/ODBC ?

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