Visual Basic

<br />
Private Sub Form_Unload(Cancel As Integer)<br />
If change = True Then<br />
    Select Case MsgBox("The text has changed." + Chr(13) + "Do you want to save the changes", vbYesNoCancel")<br />
        Case vbYes<br />
            'Code for saving            <br />
             Cancel = 0'This unloads the form<br />
        Case vbNo<br />
             Cancel = 0'Same here<br />
        Case vbCancel<br />
            Cancel = 1 'This stops the form frm being closed!<br />
    End Select<br />
End If

<br />
Module T_Module<br />
    Public Function SaveChanges(ByVal callingform As Form, ByVal datachange As Boolean, Optional ByVal text As String = Nothing) As Integer<br />
        Dim message As String<br />
        Dim reply As Integer<br />
        Dim fbid As String<br />
        Const QMark As String = "?"<br />
        If text = Nothing Then<br />
            message = "Do u want Save thease Changes"<br />
        Else<br />
            message = text<br />
            text = message<br />
<br />
            If text.Substring(text.Length - 1) <> QMark Then<br />
                text &= QMark<br />
            End If<br />
<br />
        End If<br />
        reply = 1<br />
<br />
        If datachange Then<br />
           <br />
            Select Case MessageBox.Show(text, "Data Changed", MessageBoxButtons.YesNoCancel)<br />
                Case DialogResult.Yes : reply = 0<br />
                Case DialogResult.Cancel : reply = 2<br />
            End Select<br />
        End If<br />
        Return reply<br />
    End Function<br />
<br />
End Module<br />

harish139 wrote:

please help

SELECT PN, VA FROM Table1 WHERE PN=@PN AND VA=@VA

SELECT PN, VA FROM Table1