Dim dateFrom As String
Dim dateTo As String
dateFrom = dateFromPicker.Text
dateTo = dateToPicker.Text
Dim connString As String = "Driver={SQL Server};Server=10.10.10.4,1433;Database=UnauthdAbsence;Trusted_Connection=True"
'Builds the Connection and Command object.
Dim odbcConn As New Odbc.OdbcConnection(connString)
Dim odbcComm As New Odbc.OdbcCommand("usp_createFocusView", odbcConn)
odbcComm.CommandType = CommandType.StoredProcedure
'Pass the parameters to the stored procedure
Dim dateFromParam As New Odbc.OdbcParameter("@dateFrom", SqlDbType.VarChar)
dateFromParam.Value = dateFrom
odbcComm.Parameters.Add(dateFromParam)
Dim dateToParam As New Odbc.OdbcParameter("@dateTo", SqlDbType.VarChar)
dateToParam.Value = dateTo
odbcComm.Parameters.Add(dateToParam)
Dim odbcDA As New Odbc.OdbcDataAdapter(odbcComm)
'Opens the DB Connection.
odbcConn.Open()
odbcComm.ExecuteNonQuery()
|