Visual Basic

<br />
<ServiceModel.ServiceContract()> _<br />
Public Interface ITestService<br />
<br />
    <ServiceModel.OperationContract()> Function HelloWorld() As String<br />
<br />
End Interface<br />

<br />
<ServiceModel.ServiceBehavior()> _<br />
Public Class TestService<br />
    Implements ITestService<br />
<br />
    Public Function HelloWorld() As String Implements ITestService.HelloWorld<br />
        Return "Hello World!"<br />
    End Function<br />
<br />
End Class<br />

<br />
Public Class FrmMain<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        ' Provide the service!<br />
        Dim host As New ServiceModel.ServiceHost(GetType(TestService))<br />
        host.Open()<br />
        MsgBox("Service started.")<br />
    End Sub<br />
<br />
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        ' Connect to the service!<br />
        Dim address As New ServiceModel.EndpointAddress("net.pipe://localhost/TestHost")<br />
        Dim binding As New ServiceModel.NetNamedPipeBinding()<br />
<br />
        Dim service As ITestService = ServiceModel.ChannelFactory(Of ITestService).CreateChannel(binding, address)<br />
        MessageBox.Show(service.HelloWorld())<br />
    End Sub<br />
<br />
End Class<br />

<br />
sql = "UPDATE table1 SET Descript = @Desc "<br />
sql += "WHERE RefNum = @RefNum "<br />
<br />
cmd.CommandText = sql<br />
<br />
parm = New OdbcParameter("@desc", SqlDbType.Char, 120)<br />
parm.Value = oRow.Item("description").ToString().Trim()                    <br />
cmd.Parameters.Add(parm)<br />
<br />
parm = New OdbcParameter("@refnum", SqlDbType.Char, 12)<br />
parm.Value = oRow.Item("ref num").ToString().Trim()<br />
cmd.Parameters.Add(parm)<br />
<br />
cmd.ExecuteNonQuery()               'This fails with Syntax Error<br />