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 />

Public Function GetFolderList(ByVal ftppath As String) As List(Of String)
    Dim folderlist As New List(Of String)
    'Try
    Dim result As New System.Text.StringBuilder()
    Dim reqFTP As FtpWebRequest
    reqFTP = DirectCast(FtpWebRequest.Create(New Uri(ftppath & "/")), FtpWebRequest)
    reqFTP.UseBinary = True
    reqFTP.KeepAlive = False
    reqFTP.Credentials = New NetworkCredential(ftpuser, ftppass)
    reqFTP.Method = WebRequestMethods.Ftp.ListDirectory
    Dim response As WebResponse = reqFTP.GetResponse() ' THIS IS WHERE THE ERROR HAPPENS
    Dim reader As New StreamReader(response.GetResponseStream())
    'MessageBox.Show(reader.ReadToEnd());
    Dim line As String = reader.ReadLine()
    While line IsNot Nothing
        result.Append(line)
        result.Append("" & Chr(10) & "")
        line = reader.ReadLine()
    End While
    result.Remove(result.ToString().LastIndexOf(Chr(10)), 1)
    Dim sall As String() = result.ToString.Split(Chr(10))
    For Each s As String In sall
        If Not s.Contains(".") Then
            folderlist.Add(s)
        End If
    Next
    reader.Close()
    response.Close()
    Return folderlist 'result.ToString().Split(Chr(10))
    'Catch ex As Exception
    'End Try
    Return folderlist
End Function

<br />
Private Sub frmCsv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
Dim file As String = "steelandt.csv"<br />
        Dim pad As String = "C:\"<br />
        Dim dataset As New DataSet<br />
<br />
        Try<br />
            Dim bestand As System.IO.File<br />
            If bestand.Exists(pad & file) Then<br />
                Dim ConStr As String = _<br />
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _<br />
                pad & ";Extended Properties=""Text;HDR=Yes;FMT=Delimited\"""<br />
                Dim conn As New OleDb.OleDbConnection(ConStr)<br />
                Dim databaseAdapter As New OleDb.OleDbDataAdapter("Select [PO],[Item],[Due Date],[Item Description] from " & _<br />
                file + " WHERE PO>0 order by PO ASC", conn)<br />
                databaseAdapter.Fill(dataset)<br />
            End If<br />
<br />
            <br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.ToString)<br />
        End Try<br />
<br />
        DataGrid.DataSource = dataset.Tables(0)<br />
<br />