Como actualizo data en DWH
Tengo una base relacional y otra dimensional. Como puedo pasar la data nueva de la primera a la segunda BD sin procesar el cubo. Se puede hacer esto de manera "manual"
1 Respuesta
Respuesta de mfarolap
1
La forma "manual" que quieres, es mediante código en Visual Basic. Este es el código para procesar el cubo con los datos nuevos:
Private Sub cmdActualizar_Click()
Dim dsoServer As New DSO.Server
Dim dsoDB As DSO.MDStore
Dim dsoCube As DSO.MDStore
Dim dsoMea As DSO.Measure
' Create a connection to the Analysis server.
dsoServer.Connect strServerName
' Ensure the database exists first.
If dsoServer.MDStores.Find(strDBName) = False Then
MsgBox "Base de datos " & strDBName & " no existe."
Else
Set dsoDB = dsoServer.MDStores(strDBName)
' Check for existing data sources, dimensions, and
' cubes.
If dsoDB.DataSources.Count = 0 Then
' No data source
MsgBox "Base de datos " & strDBName & " no tiene Fuente de Datos."
ElseIf dsoDB.MDStores.Find(strCubeName) = False Then
' Cube already exists
MsgBox "El cubo " & strCubeName & " no existe " & _
"en la base de datos " & strDBName
Else
' Retrieve the cube from the database.
Set dsoCube = dsoDB.MDStores(strCubeName)
' Ensure the cube is correctly constructed.
If dsoCube.Dimensions.Count = 0 Then
' No dimensions associated with the cube
MsgBox "El Cubo " & strCubeName & _
" no tiene dimensiones."
ElseIf dsoCube.Measures.Count = 0 Then
' No measures associated with the cube
MsgBox "El Cubo " & strCubeName & _
" no tiene medidas."
Else
' Process the cube.
dsoCube.Process processFull
'dsoCube.Update
' Inform the user.
MsgBox "Información actualizada satisfactoriamente..."
dsoServer.CloseServer
Call CubeBrowser1.ConnectWStr(strServerName, strDBName, strCubeName)
End If
End If
End If
End Sub
Private Sub cmdActualizar_Click()
Dim dsoServer As New DSO.Server
Dim dsoDB As DSO.MDStore
Dim dsoCube As DSO.MDStore
Dim dsoMea As DSO.Measure
' Create a connection to the Analysis server.
dsoServer.Connect strServerName
' Ensure the database exists first.
If dsoServer.MDStores.Find(strDBName) = False Then
MsgBox "Base de datos " & strDBName & " no existe."
Else
Set dsoDB = dsoServer.MDStores(strDBName)
' Check for existing data sources, dimensions, and
' cubes.
If dsoDB.DataSources.Count = 0 Then
' No data source
MsgBox "Base de datos " & strDBName & " no tiene Fuente de Datos."
ElseIf dsoDB.MDStores.Find(strCubeName) = False Then
' Cube already exists
MsgBox "El cubo " & strCubeName & " no existe " & _
"en la base de datos " & strDBName
Else
' Retrieve the cube from the database.
Set dsoCube = dsoDB.MDStores(strCubeName)
' Ensure the cube is correctly constructed.
If dsoCube.Dimensions.Count = 0 Then
' No dimensions associated with the cube
MsgBox "El Cubo " & strCubeName & _
" no tiene dimensiones."
ElseIf dsoCube.Measures.Count = 0 Then
' No measures associated with the cube
MsgBox "El Cubo " & strCubeName & _
" no tiene medidas."
Else
' Process the cube.
dsoCube.Process processFull
'dsoCube.Update
' Inform the user.
MsgBox "Información actualizada satisfactoriamente..."
dsoServer.CloseServer
Call CubeBrowser1.ConnectWStr(strServerName, strDBName, strCubeName)
End If
End If
End If
End Sub
