Visual Basic

campbells wrote:

Dim dbb As Database

campbells wrote:

'Check to see if sp exists and delete it if it does.
strSQL = "if exists "
strSQL = strSQL & "SELECT dep.[name],dep.deptcode,dep.deptdesc,dep.depttotal, (dep.DeptTotal / "
strSQL = strSQL & "(SELECT SUM(ti.totalsales)"
strSQL = strSQL & "FROM tot_item ti)) * 100 AS PercentOfSales"
strSQL = strSQL & "FROM (SELECT v.[name],d.deptcode,d.deptdesc, SUM(ti.totalsales) AS DeptTotal"
strSQL = strSQL & "FROM item i ,vendor v,tot_item ti INNER JOIN dept d ON"
strSQL = strSQL & "(ti.deptcode=d.deptcode) where ti.itemcode=i.itemcode and v.vendorid=i.vendorid and v.name<=@vvfrom"
strSQL = strSQL & "group by v.[name],d.deptcode,d.deptdesc) AS dep"
strSQL = strSQL & "ORDER BY dep.[name] ASC"
strSQL = strSQL & "DROP PROCEDURE dbo.sp_ReturnParams"

    Dim oConnection As SqlConnection
    Dim oCommand As SqlCommand
 
    oCommand.Connection = oConnection
    ' Name of stored procedure you want to call...
    oCommand.CommandText = "GetSystemParameter"
    oCommand.CommandType = CommandType.StoredProcedure
 
    Dim sqlParam As New SqlParameter("@ParmName", SqlDbType.NVarChar, 25)
    sqlParam.Direction = ParameterDirection.Input
    sqlParam.Value = sParamName
    oCommand.Parameters.Add(sqlParam)
 
    oConnection.Open()
    oCommand.ExecuteNonQuery()
    oConnection.Close()

<br />
Imports System<br />
Imports System.IO<br />
<br />
Class WriteFile<br />
    Private Sub WriteText()<br />
        ' Create an instance of StreamWriter to write text to a file.<br />
        Using sw As StreamWriter = New StreamWriter("TestFile.txt")<br />
            ' Add some text to the file.<br />
            sw.Write("Testing ")<br />
            sw.WriteLine("writing text to a file.")<br />
            sw.WriteLine("-------------------")<br />
            sw.Close()<br />
        End Using<br />
    End Sub<br />
End Class<br />