Visual Basic

SELECT * FROM EMP0000 INNER JOIN EMP0001 ON EMP0001.EMP_NO =EMP0000.EMP_NO WHERE EMP0000.EMP_NO=@empno

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web

Imports System.ComponentModel.DataAnnotations
Imports System.ComponentModel.DataAnnotations.Schema

Public Class Customer
    <Key, ScaffoldColumn(False)>
    Public Property CustomerID() As Integer

    <Display(Name:="File No"), StringLength(6)>
    Public Property CustomerFileNo() As String

    <Required(ErrorMessage:="First Name is required")>
    <Display(Name:="First Name"), StringLength(20)>
    Public Property FirstName() As String

    <Display(Name:="Last Name"), StringLength(20)>
    Public Property LastName() As String

    <Display(Name:="Street"), StringLength(40)>
    Public Property Addr_StreetName() As String

    <DefaultSettingValue("0")>
    Public Property MaritalStatusID() As Integer

    <DefaultSettingValue("0")>
    Public Property Addr_AreaID() As Integer

    <DefaultSettingValue("0")>
    Public Property Wrk_OccupationID() As Integer
End Class

Public Class MaritalStatus
    <Key, ScaffoldColumn(False)>
    Public Property MaritalStatusID() As Integer

    <Required(ErrorMessage:="Name Required")>
    <Display(Name:="Marital Status"), StringLength(10)>
    Public Property MaritalName() As String

    <DefaultSettingValue("1")>
    Public Property RecStatus() As Boolean
End Class

Public Class Area
    <Key, ScaffoldColumn(False)>
    Public Property AreaID() As Integer

    <Required(ErrorMessage:="Name Required")>
    <Display(Name:="Area Name"), StringLength(30)>
    Public Property AreaName() As String

    <DefaultSettingValue("1")>
    Public Property RecStatus() As Boolean
End Class

Public Class Occupation
    <Key, ScaffoldColumn(False)>
    Public Property OccupationID() As Integer

    Public Property OccupationName() As String
End Class

Public Class InvoiceHdr
    <Key, ScaffoldColumn(False)>
    Public Property InvoiceID() As Integer

    Public Property InvoiceNo() As String
    Public Property Amount() As Integer

    Public Property CustomerID As Integer
End Class

Public Class InvoiceDetails
    <Key, ScaffoldColumn(False)>
    Public Property InvoiceDetailsID() As Integer

    Public Property InvoiceID() As String
    Public Property ItemNo() As String
    Public Property ItemDescription() As String
End Class

Private Structure COPYDATASTRUCT
    Public dwData As Integer
    Public cbData As Integer
    Public lpData As Integer
End Structure

Public Sub CopyData(ByVal strToSend As String)
    Dim hWndREC As Long
    Dim MyData As COPYDATASTRUCT
    hWndREC = FindWindow(vbNullString, "Test 1.0")
    MyData.dwData = 0
    MyData.lpData = strPtr(strToSend)
    MyData.cbData = Len(strToSend) * 2
    SendMessage(hWndREC, WM_COPYDATA, Me.Handle, MyData)
End Sub