Visual Basic

<code>

  Dim con As New SqlConnection
        Dim cmd As New SqlCommand

        con.ConnectionString = "Data Source=192.168.xx.xx;Initial Catalog=directory1;Persist Security Info=True;User ID=me;Password=cute"
        cmd.Connection = con
        con.Open()

        
        Dim qr As String = "SELECT names,(dept + div + pos) as dept_div_pos, tel, local FROM directory1"
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter(qr, con)
        da.Fill(ds, "directory1")

        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "directory1"
        con.Close()

</code>

create procedure DoSomething
as
begin
 --does some calculations and updates some rows
end DoSomething;

Using conn = New OracleConnection(MyConnectionString)
   Using cmd = conn.CreateCommand()
      cmd.CommandType = CommandType.StoredProcedure 
      cmd.CommandText = "DoSomething"
      conn.Open()
      cmd.ExecuteNonQuery()
      conn.Close()
   End Using
End Using

Private Sub Get_Davis_WeatherData(ByRef gwdcurrent As WeatherData)
    Dim dtsTemp As New DateTimeStamp
    Dim sbWindDir As New StringBuilder(5)
    If Not WSInitialized Then
        CloseUSBPort_V()
        USBSerialNumber = GetUSBDevSerialNumber_V()
        If (OpenUSBPort_V(USBSerialNumber) = 0) Then
            If (InitStation_V() = COM_ERROR) Then
                MsgBox("Cannot initialize the USB port for the Weather Station")
                Exit Sub
            Else
                SetCommTimeoutVal_V(100, 100)
                WSInitialized = True
            End If
        Else
            MsgBox("Cannot open the USB port for the Weather Station")
            Exit Sub
        End If
    End If
    If (GetStationTime_V(dtsTemp) = 0) Then gwdcurrent.Time = DateStamp2UnixTime(dtsTemp)
    If LoadCurrentVantageData_V() = 0 Then
        gwdcurrent.OutTempF = GetOutsideTemp_V()
        gwdcurrent.OutHum = GetOutsideHumidity_V()
        gwdcurrent.BPressure = GetBarometer_V()
        gwdcurrent.WindChillF = GetWindChill_V()
        gwdcurrent.DewPointF = GetDewPt_V()
        gwdcurrent.RainTotal = GetTotalRain_V()
        gwdcurrent.Rain24h = GetDailyRain_V()
        gwdcurrent.Rain1h = GetRainRate_V()
        gwdcurrent.WindSpeedMPH = GetWindSpeed_V()
        gwdcurrent.WindRDir = GetWindDir_V()
        gwdcurrent.WindDir = GetWindDirStr_V(sbWindDir).ToString ' This is where things go badly wrong
        gsngRainMTD = GetMonthlyRain_V()
    End If
    If gsnsSensor.IsUpToDate Then
        gwdcurrent.InHum = gsnsSensor.Humidity
        gwdcurrent.InTempF = gsnsSensor.TempF
    ElseIf tcHouse.Online Then
        gwdcurrent.InTempF = tcHouse.CurrentTemp
        gwdcurrent.InHum = tcHouse.CurrentHumidity
    End If
End Sub