Torna al Thread
Public Function AnteprimaRapporto(ByVal CodAlb As Integer, ByVal codice As String) As DataSet
Try
SqlCmd.CommandText = "GetArc_Trasm1"
SqlCmd.Parameters.Add("@CodAlbergo", SqlDbType.Int).Value = CodAlb
SqlCmd.Parameters.Add("@Codice", SqlDbType.VarChar).Value = codice
SqlCmd.CommandType = CommandType.StoredProcedure
SqlDr = SqlCmd.ExecuteReader
MyTable = Rap.RapportoTrasm
If SqlDr.Read Then
MyRow = MyTable.NewRow
MyRow("CodAlb") = SqlDr.GetSqlInt32(0).Value
MyRow("Codice") = SqlDr.GetSqlString(1).Value
MyRow("Data_elaborazione") = SqlDr.GetSqlDateTime(2).Value
MyRow("Descrizione") = SqlDr.GetSqlString(3).Value
MyTable.Rows.Add(MyRow)
End If
Ds.Tables.Add(MyTable)
Catch ex As Exception
Throw ex
Finally
SqlDr.Close()
SqlCmd.Parameters.Clear()
SqlCmd.Dispose()
End Try
Return Ds
End Function