Archives

Update Fact tables for Data Warehouse in VB.Net

Private Sub btnUpdateFact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdateFact.Click try Dim sqlupdatetable As String Dim counter As Integer counter = 0 If (btnUpdateFact.Text = “Update Facts”) Then btnAddFact.Enabled = False If (cbFTableName.SelectedIndex = -1) Then MessageBox.Show(“Please select a Table Name to update”, “Information”, MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If cmd.Connection = New […]

Rate this:

Read More

Create Fact Tables for Data Warehouse in VB.Net

Private Sub btnCreateFact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateFact.Click Try Dim tblerror As String tblerror = “” If (cbFTableName.SelectedIndex = -1) Then tblerror = “Please select a Table Name” End If If ((tblerror.Length > 0)) Then MessageBox.Show(tblerror + vbCrLf, “Information”, MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If cmd.Connection = New System.Data.SqlClient.SqlConnection(ConnectionString) cmd.Connection.Open() sql […]

Rate this:

Read More

Update Dimensions Table for Data Warehouse in VB.Net

Private Sub btnUpdateDim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdateDim.Click Try Dim sqlupdatetable As String Dim counter As Integer counter = 0 If (btnUpdateDim.Text = “Update Dimensions”) Then btnAdd.Enabled = False txtUnique.Enabled = False cbTypeUnique.Enabled = False txtPK.Enabled = False txtValUnique.Enabled = False If (cbTableName.SelectedIndex = -1) Then MessageBox.Show(“Please select a Table Name […]

Rate this:

Read More

Create Dimension Tables for Data Warehouse in VB.Net

Private Sub btnCreateDim_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDim.Click Try Dim tblerror, unqerror, pkerror, valerror As String tblerror = “” unqerror = “” pkerror = “” valerror = “” Dim sqlcmd As System.Data.SqlClient.SqlCommand Dim sqladd As System.Data.SqlClient.SqlCommand If (cbTableName.SelectedIndex = -1) Then tblerror = “Please select a Table Name” End If If […]

Rate this:

Read More