Yuniawan Tri Cahyono » Sql Server 2008

SQL Data Provider VB.NET Class (2) Example Usage

admin — Tue, 19 Jan 2010 18:25:21 +0000

YouTube Converter

This class provides a fast and universal method for accessing SQL Server database.

Create Instance

At first you create an instance of SqlDatabase class.

Dim sqldb As New SqlDatabase("Data Source=(local); Initial Catalog= ; UId = ; Pwd = ;")

For more information about connection strings, visit ConnectionStrings.com.

ExecuteNonQuery Method

Executes a Transact-SQL statement against the connection and returns the number of rows affected.

Dim params(0 To 1) As SqlParameter

params(0) = New SqlParameter("@Firstname", SqlDbType.NVarChar, 120)

params(0).Value = "Stefan"

params(1) = New SqlParameter("@Lastname", SqlDbType.NVarChar, 120)

params(1).Value = "Cameron"

sqldb.ExecuteNonQuery("Insert Into dbo.Users(Firstname, LastName) Values(@FirstName, @LastName)", CommandType.Text, params)

If you are using stored procedure,you can execute that without declaring parameters such as following code:

sqldb.ExecuteNonQuery("dbo.CreateUser", Nothing, "Stefan", "Cameron")

ExecuteScalar Method

Executes the query, and returns the first column of the first row in the result set returned by the query. Additional columns or rows are ignored.

Dim count As Integer = sqldb.ExecuteScalar("Select Count(*) From dbo.Users", CommandType.Text)

MsgBox("Number of row(s): " & count)

ExecuteReader Method

Sends the CommandText to the Connection and builds a SqlDataReader.

Dim FirstName As String = String.Empty

Dim LastName As String = String.Empty

Dim params(0) As SqlParameter
params(0) = New SqlParameter(“@Id”, SqlDbType.Int)
params(0).Value = 1

Dim dr As IDataReader = sqldb.ExecuteReader(“Select * From dbo.Users Where (Id = @Id)”, CommandType.Text, params)
While dr.Read()
FirstName = dr(“Firstname”)
LastName = dr(“Lastname”)
End While
dr.Close()

MsgBox(FirstName & ” ” & LastName, MsgBoxStyle.Information)

There is a sample for using stored procedure:

Create Procedure [dbo].[GetUserInfo]

(

@Id int

)

As

Begin

Select * From dbo.Users Where (Id = @Id)

End

Dim FirstName As String = String.Empty

Dim LastName As String = String.Empty

Dim dr As IDataReader = sqldb.ExecuteReader(“dbo.GetUserInfo”, Nothing, 1)
While dr.Read()
FirstName = dr(“Firstname”)
LastName = dr(“Lastname”)
End While
dr.Close()

MsgBox(FirstName & ” ” & LastName, MsgBoxStyle.Information)

Using Return Value Parameter

If you are using stored procedure,you can get the value of ‘return value parameter’.

Create Procedure dbo.UserExists

(

@Firstname nvarchar(120),

@Lastname nvarchar(120)

)

As

Begin

If Exists(Select * From dbo.Users Where (Firstname = @Firstname) And (Lastname = @Lastname))

Return 1

End

Dim retval As Integer

sqldb.ExecuteNonQuery("dbo.UserExists", retval, "Stefan", "Cameron")

MsgBox("User Exists: " & IIf(retval = 1, "Yes", "No"))

FillDataset Method

Adds or refreshes rows in the System.Data.DataSet to match those in the data source using the System.Data.DataSet name, and creates a System.Data.DataTable named “Table.”

Binding a DataGridView with FillDataset method.

DataGridView1.DataSource = sqldb.FillDataset("Select * From dbo.Users", CommandType.Text).Tables(0)

ExecuteDataset Method

Calls the respective INSERT, UPDATE, or DELETE statements for each inserted, updated, or deleted row in the System.Data.DataSet with the specified System.Data.DataTable name.

' Getting the System.Data.DataSet.

Dim ds As DataSet = CType(DataGridView1.DataSource, DataTable).DataSet

‘ Declaring insert command object
Dim inscmd As New SqlCommand(“Insert Into dbo.Users(Firstname, Lastname) Values(@Firstname, @Lastname)”)
With inscmd
.CommandType = CommandType.Text
.Parameters.Add(New SqlParameter(“@Firstname”, SqlDbType.NVarChar, 120)).SourceColumn = “Firstname”
.Parameters.Add(New SqlParameter(“@Lastname”, SqlDbType.NVarChar, 120)).SourceColumn = “Lastname”
End With

‘ Declaring update command object
Dim updcmd As New SqlCommand(“Update dbo.Users Set Firstname = @Firstname, Lastname = @Lastname Where (Id = @Id)”)
With updcmd
.CommandType = CommandType.Text
.Parameters.Add(New SqlParameter(“@Id”, SqlDbType.Int)).SourceColumn = “Id”
.Parameters.Add(New SqlParameter(“@Firstname”, SqlDbType.NVarChar, 120)).SourceColumn = “Firstname”
.Parameters.Add(New SqlParameter(“@Lastname”, SqlDbType.NVarChar, 120)).SourceColumn = “Lastname”
End With

‘ Declaring delete command object
Dim delcmd As New SqlCommand(“Delete From dbo.Users Where (Id = @Id)”)
With delcmd
.CommandType = CommandType.Text
.Parameters.Add(New SqlParameter(“@Id”, SqlDbType.Int)).SourceColumn = “Id”
End With

‘ Updating data source
sqldb.ExecuteDataset(inscmd, updcmd, delcmd, ds, ds.Tables(0).TableName)

SQL Data Provider VB.NET Class (1)

admin — Mon, 18 Jan 2010 22:08:06 +0000

YouTube Converter

This class is for simplifying and accelerating working with SQL,
using this class is very simple; there is a sample below for this class,
which I hope is useful. You can report bugs, opinions and suggestions to me.
<> << dataAccess.vb >>

 Imports System
 Imports System.IO
 Imports System.Text
 Imports System.Data
 Imports System.Data.SqlClient

 Namespace SqlDataProvider

 ''' 
 ''' This class provides a fast and universal method for accessing SQL Server database.This class cannot be inherited.
 ''' 
 Public NotInheritable Class SqlDatabase

 #Region " Local Property Declarations "

 Dim _connectionString As String

 #End Region

 #Region " Constructor "

 ''' 
 ''' Initializes a new instance of the ADO.SqlDatabase class.
 ''' 
 ''' The connection used to open the SQL Server database.
 Public Sub New(ByVal connectionString As String)
 _connectionString = connectionString
 End Sub

 #End Region

 #Region " Public Properties "

 ''' 
 ''' Gets or sets the string used to open a SQL Server database.
 ''' 
 ''' The connection string that includes the source database name, and other parameters needed to establish the initial connection.
 Public Property ConnectionString() As String
 Get
 Return _connectionString
 End Get
 Set(ByVal value As String)
 _connectionString = value
 End Set
 End Property

 #End Region

 #Region " Private Methods "

 Private Sub AssignParameters(ByVal cmd As SqlCommand, ByVal cmdParameters() As SqlParameter)
 If (cmdParameters Is Nothing) Then Exit Sub
 For Each p As SqlParameter In cmdParameters
 cmd.Parameters.Add(p)
 Next
 End Sub

 Private Sub AssignParameters(ByVal cmd As SqlCommand, ByVal parameterValues() As Object)
 If Not (cmd.Parameters.Count - 1 = parameterValues.Length) Then Throw New ApplicationException("Stored procedure's parameters and parameter values does not match.")
 Dim i As Integer
 For Each param As SqlParameter In cmd.Parameters
 If Not (param.Direction = ParameterDirection.Output) AndAlso Not (param.Direction = ParameterDirection.ReturnValue) Then
 param.Value = parameterValues(i)
 i += 1
 End If
 Next
 End Sub

 #End Region

 #Region " ExecuteNonQuery "

 ''' 
 ''' Executes a Transact-SQL statement against the connection and returns the number of rows affected.
 ''' 
 ''' The Transact-SQL statement or stored procedure to execute at the data source.
 ''' A value indicating how the System.Data.SqlClient.SqlCommand.CommandText property is to be interpreted.
 ''' The parameters of the Transact-SQL statement or stored procedure.
 ''' The number of rows affected.
 Public Function ExecuteNonQuery(ByVal cmd As String, ByVal cmdType As CommandType, Optional ByVal parameters() As SqlParameter = Nothing) As Integer
 Dim connection As SqlConnection = Nothing
 Dim transaction As SqlTransaction = Nothing
 Dim command As SqlCommand = Nothing
 Dim res As Integer = -1
 Try
 connection = New SqlConnection(_connectionString)
 command = New SqlCommand(cmd, connection)
 command.CommandType = cmdType
 Me.AssignParameters(command, parameters)
 connection.Open()
 transaction = connection.BeginTransaction()
 command.Transaction = transaction
 res = command.ExecuteNonQuery()
 transaction.Commit()
 Catch ex As Exception
 If Not (transaction Is Nothing) Then
 transaction.Rollback()
 End If
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If Not (connection Is Nothing) AndAlso (connection.State = ConnectionState.Open) Then connection.Close()
 If Not (command Is Nothing) Then command.Dispose()
 If Not (transaction Is Nothing) Then transaction.Dispose()
 End Try
 Return res
 End Function

 ''' 
 ''' Executes a Transact-SQL statement against the connection and returns the number of rows affected.
 ''' 
 ''' The stored procedure to execute at the data source.
 ''' The returned value from stored procedure.
 ''' The parameter values of the stored procedure.
 ''' The number of rows affected.
 Public Function ExecuteNonQuery(ByVal spname As String, ByRef returnValue As Integer, ByVal ParamArray parameterValues() As Object) As Integer
 Dim connection As SqlConnection = Nothing
 Dim transaction As SqlTransaction = Nothing
 Dim command As SqlCommand = Nothing
 Dim res As Integer = -1
 Try
 connection = New SqlConnection(_connectionString)
 command = New SqlCommand(spname, connection)
 command.CommandType = CommandType.StoredProcedure
 connection.Open()
 SqlCommandBuilder.DeriveParameters(command)
 Me.AssignParameters(command, parameterValues)
 transaction = connection.BeginTransaction()
 command.Transaction = transaction
 res = command.ExecuteNonQuery()
 returnValue = command.Parameters(0).Value
 transaction.Commit()
 Catch ex As Exception
 If Not (transaction Is Nothing) Then
 transaction.Rollback()
 End If
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If Not (connection Is Nothing) AndAlso (connection.State = ConnectionState.Open) Then connection.Close()
 If Not (command Is Nothing) Then command.Dispose()
 If Not (transaction Is Nothing) Then transaction.Dispose()
 End Try
 Return res
 End Function

 #End Region

 #Region " ExecuteScalar "

 ''' 
 ''' Executes the query, and returns the first column of the first row in the result set returned by the query. Additional columns or rows are ignored.
 ''' 
 ''' The Transact-SQL statement or stored procedure to execute at the data source.
 ''' A value indicating how the System.Data.SqlClient.SqlCommand.CommandText property is to be interpreted.
 ''' The parameters of the Transact-SQL statement or stored procedure.
 ''' The first column of the first row in the result set, or a null reference if the result set is empty.
 Public Function ExecuteScalar(ByVal cmd As String, ByVal cmdType As CommandType, Optional ByVal parameters() As SqlParameter = Nothing) As Object
 Dim connection As SqlConnection = Nothing
 Dim transaction As SqlTransaction = Nothing
 Dim command As SqlCommand = Nothing
 Dim res As Object = Nothing
 Try
 connection = New SqlConnection(_connectionString)
 command = New SqlCommand(cmd, connection)
 command.CommandType = cmdType
 Me.AssignParameters(command, parameters)
 connection.Open()
 transaction = connection.BeginTransaction()
 command.Transaction = transaction
 res = command.ExecuteScalar()
 transaction.Commit()
 Catch ex As Exception
 If Not (transaction Is Nothing) Then
 transaction.Rollback()
 End If
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If Not (connection Is Nothing) AndAlso (connection.State = ConnectionState.Open) Then connection.Close()
 If Not (command Is Nothing) Then command.Dispose()
 If Not (transaction Is Nothing) Then transaction.Dispose()
 End Try
 Return res
 End Function

 ''' 
 ''' Executes the query, and returns the first column of the first row in the result set returned by the query. Additional columns or rows are ignored.
 ''' 
 ''' The stored procedure to execute at the data source.
 ''' The returned value from stored procedure.
 ''' The parameter values of the stored procedure.
 ''' The first column of the first row in the result set, or a null reference if the result set is empty.
 Public Function ExecuteScalar(ByVal spname As String, ByRef returnValue As Integer, ByVal ParamArray parameterValues() As Object) As Object
 Dim connection As SqlConnection = Nothing
 Dim transaction As SqlTransaction = Nothing
 Dim command As SqlCommand = Nothing
 Dim res As Object = Nothing
 Try
 connection = New SqlConnection(_connectionString)
 command = New SqlCommand(spname, connection)
 command.CommandType = CommandType.StoredProcedure
 connection.Open()
 SqlCommandBuilder.DeriveParameters(command)
 Me.AssignParameters(command, parameterValues)
 transaction = connection.BeginTransaction()
 command.Transaction = transaction
 res = command.ExecuteScalar()
 returnValue = command.Parameters(0).Value
 transaction.Commit()
 Catch ex As Exception
 If Not (transaction Is Nothing) Then
 transaction.Rollback()
 End If
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If Not (connection Is Nothing) AndAlso (connection.State = ConnectionState.Open) Then connection.Close()
 If Not (command Is Nothing) Then command.Dispose()
 If Not (transaction Is Nothing) Then transaction.Dispose()
 End Try
 Return res
 End Function

 #End Region

 #Region " ExecuteReader "

 ''' 
 ''' Sends the System.Data.SqlClient.SqlCommand.CommandText to the System.Data.SqlClient.SqlCommand.Connection, and builds a System.Data.SqlClient.SqlDataReader using one of the System.Data.CommandBehavior values.
 ''' 
 ''' The Transact-SQL statement or stored procedure to execute at the data source.
 ''' A value indicating how the System.Data.SqlClient.SqlCommand.CommandText property is to be interpreted.
 ''' The parameters of the Transact-SQL statement or stored procedure.
 ''' A System.Data.SqlClient.SqlDataReader object.
 Public Function ExecuteReader(ByVal cmd As String, ByVal cmdType As CommandType, Optional ByVal parameters() As SqlParameter = Nothing) As IDataReader
 Dim connection As SqlConnection = Nothing
 Dim command As SqlCommand = Nothing
 Dim res As SqlDataReader = Nothing
 Try
 connection = New SqlConnection(_connectionString)
 command = New SqlCommand(cmd, connection)
 command.CommandType = cmdType
 Me.AssignParameters(command, parameters)
 connection.Open()
 res = command.ExecuteReader(CommandBehavior.CloseConnection)
 Catch ex As Exception
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 End Try
 Return CType(res, IDataReader)
 End Function

 ''' 
 ''' Sends the System.Data.SqlClient.SqlCommand.CommandText to the System.Data.SqlClient.SqlCommand.Connection, and builds a System.Data.SqlClient.SqlDataReader using one of the System.Data.CommandBehavior values.
 ''' 
 ''' The stored procedure to execute at the data source.
 ''' The returned value from stored procedure.
 ''' The parameter values of the stored procedure.
 ''' A System.Data.SqlClient.SqlDataReader object.
 Public Function ExecuteReader(ByVal spname As String, ByRef returnValue As Integer, ByVal ParamArray parameterValues() As Object) As IDataReader
 Dim connection As SqlConnection = Nothing
 Dim command As SqlCommand = Nothing
 Dim res As SqlDataReader = Nothing
 Try
 connection = New SqlConnection(ConnectionString)
 command = New SqlCommand(spname, connection)
 command.CommandType = CommandType.StoredProcedure
 connection.Open()
 SqlCommandBuilder.DeriveParameters(command)
 Me.AssignParameters(command, parameterValues)
 res = command.ExecuteReader(CommandBehavior.CloseConnection)
 returnValue = command.Parameters(0).Value
 Catch ex As Exception
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 End Try
 Return CType(res, IDataReader)
 End Function

 #End Region

 #Region " FillDataset "

 ''' 
 ''' Adds or refreshes rows in the System.Data.DataSet to match those in the data source using the System.Data.DataSet name, and creates a System.Data.DataTable named "Table."
 ''' 
 ''' The Transact-SQL statement or stored procedure to execute at the data source.
 ''' A value indicating how the System.Data.SqlClient.SqlCommand.CommandText property is to be interpreted.
 ''' The parameters of the Transact-SQL statement or stored procedure.
 ''' A System.Data.Dataset object.
 Public Function FillDataset(ByVal cmd As String, ByVal cmdType As CommandType, Optional ByVal parameters() As SqlParameter = Nothing) As DataSet
 Dim connection As SqlConnection = Nothing
 Dim command As SqlCommand = Nothing
 Dim sqlda As SqlDataAdapter = Nothing
 Dim res As New DataSet
 Try
 connection = New SqlConnection(_connectionString)
 command = New SqlCommand(cmd, connection)
 command.CommandType = cmdType
 AssignParameters(command, parameters)
 sqlda = New SqlDataAdapter(command)
 sqlda.Fill(res)
 Catch ex As Exception
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If Not (connection Is Nothing) Then connection.Dispose()
 If Not (command Is Nothing) Then command.Dispose()
 If Not (sqlda Is Nothing) Then sqlda.Dispose()
 End Try
 Return res
 End Function

 #End Region

 #Region " ExecuteDataset "

 ''' 
 ''' Calls the respective INSERT, UPDATE, or DELETE statements for each inserted, updated, or deleted row in the System.Data.DataSet with the specified System.Data.DataTable name.
 ''' 
 ''' A command used to insert new records into the data source.
 ''' A command used to update records in the data source.
 ''' A command for deleting records from the data set.
 ''' The System.Data.DataSet to use to update the data source. 
 ''' The name of the source table to use for table mapping.
 ''' The number of rows successfully updated from the System.Data.DataSet.
 Public Function ExecuteDataset(ByVal insertCmd As SqlCommand, ByVal updateCmd As SqlCommand, ByVal deleteCmd As SqlCommand, ByVal ds As DataSet, ByVal srcTable As String) As Integer
 Dim connection As SqlConnection = Nothing
 Dim sqlda As SqlDataAdapter = Nothing
 Dim res As Integer = 0
 Try
 connection = New SqlConnection(_connectionString)
 sqlda = New SqlDataAdapter
 If Not (insertCmd Is Nothing) Then insertCmd.Connection = connection : sqlda.InsertCommand = insertCmd
 If Not (updateCmd Is Nothing) Then updateCmd.Connection = connection : sqlda.UpdateCommand = updateCmd
 If Not (deleteCmd Is Nothing) Then deleteCmd.Connection = connection : sqlda.DeleteCommand = deleteCmd
 res = sqlda.Update(ds, srcTable)
 Catch ex As Exception
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If Not (connection Is Nothing) Then connection.Dispose()
 If Not (insertCmd Is Nothing) Then insertCmd.Dispose()
 If Not (updateCmd Is Nothing) Then updateCmd.Dispose()
 If Not (deleteCmd Is Nothing) Then deleteCmd.Dispose()
 If Not (sqlda Is Nothing) Then sqlda.Dispose()
 End Try
 Return res
 End Function

 #End Region

 #Region " ExecuteScript "

 ''' 
 ''' Executes a SQL query file against the connection.
 ''' 
 ''' SQL query file name.
 ''' The parameters of the SQL query file.
 Public Sub ExecuteScript(ByVal filename As String, Optional ByVal parameters() As SqlParameter = Nothing)
 Dim fStream As FileStream = Nothing
 Dim sReader As StreamReader = Nothing
 Dim connection As SqlConnection = Nothing
 Dim command As SqlCommand = Nothing
 Try
 fStream = New FileStream(filename, FileMode.Open, FileAccess.Read)
 sReader = New StreamReader(fStream)
 connection = New SqlConnection(ConnectionString)
 command = connection.CreateCommand()
 connection.Open()
 While (Not sReader.EndOfStream)
 Dim sb As New StringBuilder
 While (Not sReader.EndOfStream)
 Dim s As String = sReader.ReadLine
 If (Not String.IsNullOrEmpty(s)) AndAlso (s.ToUpper.Trim = "GO") Then
 Exit While
 End If
 sb.AppendLine(s)
 End While
 command.CommandText = sb.ToString
 command.CommandType = CommandType.Text
 AssignParameters(command, parameters)
 command.ExecuteNonQuery()
 End While
 Catch ex As Exception
 Throw New SqlDatabaseException(ex.Message, ex.InnerException)
 Finally
 If (Not IsNothing(connection)) AndAlso (connection.State = ConnectionState.Open) Then connection.Close()
 If (Not IsNothing(command)) Then command.Dispose()
 If (Not IsNothing(sReader)) Then sReader.Close()
 If (Not IsNothing(fStream)) Then fStream.Close()
 End Try
 End Sub

 #End Region

 End Class

 End Namespace

Sales performance by gender of the customers with MDX Query

admin — Mon, 18 Jan 2010 02:53:45 +0000

YouTube Converter

WITH set [Male] AS ‘Filter ([Customer].[CustomerID].Members,[Customer].CurrentMember.Properties(“GENDER”)= “M”)’
set [Female] AS ‘Filter ([Customer].[CustomerID].Members,[Customer].CurrentMember.Properties(“GENDER”)= “F”)’
member Customer.AggMale as ‘Aggregate([Male])
member Customer.AggFemale as ‘Aggregate([Female])

SELECT {[Measures].[SALES($)]} ON AXIS(0), {Customer.AggMale,Customer.AggFemale} ON AXIS(1) FROM [cubename]

MDX, ADOMD, VB.NET & SQL Server Analysis Services

admin — Wed, 06 Jan 2010 02:19:18 +0000

YouTube Converter

Recently, we’ve jumped into the world of multi-dimensional OLAP. We’re currently using SQL Server Analysis Services which has been great to create the data cubes and Microsoft Sharepoint with Business Scorecard Manager to render the cubes. The database and cube work wonderfully. We have had issues with Scorecard Manager 2005 though (namingly, it doesn’t render well to Firefox and since one of our clients is Indiana University who supports Firefox, this becomes an issue for us).

Our solution to this problem is that we’re going to create our own scorecards until a service pack comes out for BSM or the next version fixes the rendering issues. The cube is really the critical technology for us. We can render our Scorecard one of two ways, via an ASP.NET website or since we’re using Sharepoint via a custom webpart. The ASP.NET site would be much easier however the custom Sharepoint webpart is attractive because it leverages the Sharepoint framework’s ability to allow content managers (e.g., not me) to customize the look and feel (as well as any other property you allow them to control). Our first hurdle is how to read data from the OLAP Cube using .NET. This is the example code I ran from a VB.NET form. I put a text box as textbox1 on the main form and this code in the load event. It runs an MDX query then builds a string it puts in a text box. The string contains the row name, the year in this case and the value of the column.

The prerequisites you may need can be found at: http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=d09c1d60-a13c-4479-9b91-9e8b9d835cdc

You will need to add a reference in your project to Microsoft.AnalysisServices.AdomdClient and then add an Import for it at the top of your code (or fill out the full references).

‘*******************************************************************************

‘ Local Declarations

‘*******************************************************************************

Dim Buf As String = “”

Dim Mdx As String = “”

‘*******************************************************************************

‘ Declare and Setup the Connection

‘*******************************************************************************

Dim Connection_String As String = “PROVIDER=MSOLAP.2;DATA SOURCE=;INITIAL CATALOG=

Dim Conn As New Microsoft.AnalysisServices.AdomdClient.AdomdConnection(Connection_String)

Try

Conn.Open()

Catch ex As Exception

MsgBox(ex.Message)

Conn = Nothing

Exit Sub

End Try

‘*******************************************************************************

‘ Create the MDX query, the command and data reader objects and parse the information

‘*******************************************************************************

Mdx = “Select [Measures].[Gift Amount] On Columns, “ & _

“{ LastPeriods(4, [Credit Date].[Fiscal Hierarchy].[Fiscal Year].[2007]) } On Rows “ & _

” From [Dollars-Donors]“

Dim Command As New AdomdCommand(Mdx, Conn)

Dim Dr As AdomdDataReader = Command.ExecuteReader()

While Dr.Read()

Buf = Buf & “Gift Amount for “ & Dr(“[Credit Date].[Fiscal Hierarchy].[Fiscal Year].[MEMBER_CAPTION]“) & “: “ & _

FormatNumber(Dr(“[Measures].[Gift Amount]“).ToString, 2, TriState.False, TriState.True, TriState.True) & vbCrLf

Buf = Buf & “———————————————————-” & vbCrLf

End While

TextBox1.Text = Buf

‘*******************************************************************************

‘ Cleanup

‘*******************************************************************************

Conn.Close()

Conn = Nothing

http://blakepell.spaces.live.com/blog/cns!808E32F75B9CF425!114.entry

Passing a Table to a Stored Procedure

admin — Sun, 01 Feb 2009 13:26:35 +0000

YouTube Converter

The CODE
This article is based on SQL Server 2008 CTP 3. Some of the information may change by the time the product is finally released.

Before we create a Function or Stored Procedure that accepts a TABLE variable, we need to define a User Defined TABLE Type. SQL Server 2008 introduced a new User defined TABLE type. A TABLE type represents the structure of a table that can be passed to a stored procedure or function.

So the first step is to create a User Defined TABLE type. The following TSQL code creates a User defined TABLE type named “ItemInfo”.

1 CREATE TYPE ItemInfo AS TABLE
2 (
3 ItemNumber VARCHAR(50),
4 Qty INT
5 )

You can use the system view SYS.TYPES to see the type that you have just created. The following query returns all the types defined in the system.

1 SELECT * FROM SYS.TYPES
2
3 /*
4 If you just need to find information about the TABLE types, you could find it from
5 the following TSQL query.
6 */
7
8 SELECT * FROM SYS.TYPES WHERE is_table_type = 1
9
10 /*
11 There is another view, which is handy to find information about TABLE types.
12 */
13
14 SELECT * FROM SYS.TABLE_TYPES

We have created a TABLE type that we need. Now let us see how it works. Let us create a variable of type “ItemInfo” and try to insert a few records to it. Then lets query the table variable to see if the information is correctly inserted. [code]

1 /*
2 Let us declare a variable of type ItemInfo which is a TABLE Type
3 */
4 DECLARE @items AS ItemInfo
5
6 /*
7 Insert values to the variable
8 */
9
10 INSERT INTO @Items (ItemNumber, Qty)
11 SELECT '11000', 100 UNION ALL
12 SELECT '22000', 200 UNION ALL
13 SELECT '33000', 300
14
15 /*
16 Lets check if the values are correctly inserted or not
17 */
18 SELECT * FROM @Items
19
20 /*
21 OUTPUT:
22
23 ItemNumber Qty
24 -------------------------------------------------- -----------
25 11000 100
26 22000 200
27 33000 300
28 */

Now let us create a stored procedure that accepts a TABLE variable. Let us create a very simple stored procedure which accepts a TABLE variable and SELECTs contents of the table.

1 CREATE PROCEDURE TableParamDemo
2 (
3 @Items ItemInfo
4 )
5
6 AS
7
8 SELECT *
9 FROM @Items

Well, this would generate the following error:

1 /*
2 Msg 352, Level 15, State 1, Procedure TableParamDemo, Line 1
3 The table-valued parameter "@Items" must be declared with the READONLY option.
4 */

A table variable that is passed to a stored procedure or function should be marked as READONLY. The "callee" cannot modify the table being passed into it. Here is the correct code.

1 CREATE PROCEDURE TableParamDemo
2 (
3 @Items ItemInfo READONLY
4 )
5
6 AS
7
8 SELECT *
9 FROM @Items

Now let us execute the stored procedure we just created. Run the following code.

1 /*
2 declare the variable
3 */
4 DECLARE @items AS ItemInfo
5
6 /*
7 Insert values to the variable
8 */
9
10 INSERT INTO @Items (ItemNumber, Qty)
11 SELECT '11000', 100 UNION ALL
12 SELECT '22000', 200 UNION ALL
13 SELECT '33000', 300
14
15 /*
16 Execute the procedure
17 */
18 EXECUTE TableParamDemo @Items
19
20 /*
21 OUTPUT:
22
23 ItemNumber Qty
24 -------------------------------------------------- -----------
25 11000 100
26 22000 200
27 33000 300
28
29 */

You cannot modify the TABLE parameter passed into the stored procedure. If you try to do so, you will get an error as shown in the following example.

1 CREATE PROCEDURE TableParamDemo
2 (
3 @Items ItemInfo READONLY
4 )
5
6 AS
7
8 SELECT *
9 FROM @Items
10
11 INSERT INTO @Items (ItemNumber, Qty)
12 SELECT '1001', 20
13
14 /*
15 OUTPUT:
16
17 Msg 10700, Level 16, State 1, Procedure TableParamDemo, Line 11
18 The table-valued parameter "@Items" is READONLY and cannot be modified.
19 */

Conclusions
The support for TABLE variables is very interesting. While working with User Defined TABLE Type, please note that you cannot use it as a column of a table. Please also note that, once created, you cannot alter the structure of the TABLE.

Enterprise Project Management (EPM)

admin — Thu, 11 Dec 2008 10:34:48 +0000

YouTube Converter

Enterprise Project Management (EPM)

Enterprise Project Management (EPM), dalam hal luas, adalah bidang pengembangan organisasi yang mendukung organisasi dalam mengelola dan integrally beradaptasi sendiri untuk perubahan dari transformasi.

Dalam beberapa tahun terakhir, dengan adopsi umum (TI) praktek pemerintahan, Enterprise Manajemen Proyek telah menjadi lebih spesifik: sedangkan di tahun 1990-an secara umum telah fokus pada pengelolaan satu proyek, disusul di dekade meletakkan lebih fokus pada kenyataan bahwa proyek adalah kemungkinan untuk tidak hanya menjadi satu dalam perusahaan. Proyek bersama dengan banyak proyek-proyek lainnya di perusahaan, atau mungkin bagian dari satu atau lebih program. Hal itu dapat memanfaatkan (manusia) sumber daya yang digunakan bersama antara lain proyek.

Dalam rangka untuk memfasilitasi pemerintahan, telah menjadi penting untuk dapat mengelola, memantau, dan menilai status semua proyek (dan aset lainnya, tentu saja) di perusahaan, melalui satu set (diutamakan seragam) Enterprise Proyek Manajemen proses, metode dan paket aplikasi.

Biasanya, organisasi yang mengadopsi Enterprise Proyek Manajemen menjadikan cara kerja mungkin membuat sebuah Project Management Office (PMO), pilih dan mungkin mengadopsi Proyek Manajemen Metodologi seperti PRINCE2 atau PMBOK (atau membuat milik metode), dan mungkin memilih dan menerapkan perangkat lunak sistem untuk mendukung usaha Manajemen Proyek. Bahkan lebih baru evolusi Enterprise Manajemen Proyek adalah tidak hanya rencana untuk melacak dan mengatur proyek-proyek yang ada, namun untuk menciptakan sebuah portofolio (anggaran per ukuran, kalender per tahun, per tahun anggaran, bisnis per baris, dan lain-lain) yang ada dan yang akan datang (permintaan) proyek

Sama seperti dengan portofolio saham, Portofolio Manajemen Proyek adalah kegiatan proyek yang memilih untuk tetap dalam portfolio (karena nilai diantisipasi) dan yang untuk membuang (karena obsoleteness atau karena mereka tidak akan menghasilkan nilai yang pada awalnya dihitung).Portofolio Manajemen proyek meliputi pembuatan berbagai skenario untuk memutuskan adalah yang paling optimal portofolio (untuk tahun tertentu, bisnis, anggaran, dan lain-lain). Setelah isi portfolio yang telah disepakati, itu merupakan kunci untuk terus-amati bagaimana setiap proyek yang berkembang dari segi kualitas, biaya dan jadwal.

Dari TI perspektif manajemen, Enterprise Management dasarnya berarti perusahaan-luas jaringan administrasi, yang semakin kompleks. Jaringan perusahaan lingkungan tidak lagi terikat ke satu vendor, apalagi satu platform. Semakin banyak, perusahaan intranets adalah multidomain, multiprotocol, Multiplatform sistem. Mereka berisi hardware dan sistem operasi dari jumlah yang berbeda, persaingan vendor. Situasi ini membuat administrasi overhead yang dapat dengan mudah membuat biaya tersebut memiliki jaringan terlalu tinggi untuk semua tetapi terbesar dan paling menguntungkan organisasi.

Pelaksana Proyek Enterprise Management toolset perlu dipertimbangkan dalam cahaya dari organisasi Manajemen Proyek maturity dan metodologi, proses dan struktur yang sedang di tempat. Ada banyak organisasi yang dapat mendukung implementasi jenis ini terutama untuk. Peralatan yang mendukung usaha Manajemen Proyek termasuk kolaborasi Enterprise Project Management perangkat lunak seperti EPM Live dan Wrike.

ESRI to Support SQL Server 2008 Spatial

admin — Mon, 20 Oct 2008 16:53:53 +0000

YouTube Converter

Good news for those who want to take advantage of SQL Server 2008 Spatial and ArcGIS.

ESRI’s ArcGIS 9.3 software, the next scheduled release of ESRI’s ArcGIS suite, will take full advantage of the new spatial technology in the upcoming release of SQL Server 2008. With the November SQL Server 2008 community technology preview (CTP), Microsoft Corporation is extending the use and value of spatial technology by integrating it directly within SQL Server at no additional cost.