|
|
|
Forum Newbie
      
Group: General Forum Members
Last Login: Wednesday, January 30, 2013 6:00 PM
Points: 6,
Visits: 53
|
|
Buenas a tod@s,
Tengo un problema al tratar de mostrar un mensaje en un NotifyIcon a traves de un script task de SISS 2008, en el cual puse el siguiente codigo :
' Microsoft SQL Server Integration Services Script Task ' Write scripts using Microsoft Visual Basic 2008. ' The ScriptMain is the entry point class of the script.
Imports System Imports Microsoft.SqlServer.Dts.Runtime Imports System.Data Imports System.Math
Imports System.IO Imports System.Windows.Forms Imports System.Drawing Imports System.EventArgs Imports System.Object Imports System.Reflection Imports ST_6e1db1aeb859412887e4b7e71aac20bf.vbproj
<System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")> _ <System.CLSCompliantAttribute(False)> _ Partial Public Class ScriptMain Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase
Enum ScriptResults Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure End Enum
' The execution engine calls this method when the task executes. ' To access the object model, use the Dts property. Connections, variables, events, ' and logging features are available as members of the Dts property as shown in the following examples. ' ' To reference a variable, call Dts.Variables("MyCaseSensitiveVariableName").Value ' To post a log entry, call Dts.Log("This is my log text", 999, Nothing) ' To fire an event, call Dts.Events.FireInformation(99, "test", "hit the help message", "", 0, True) ' ' To use the connections collection use something like the following: ' ConnectionManager cm = Dts.Connections.Add("OLEDB") ' cm.ConnectionString = "Data Source=localhost;Initial Catalog=AdventureWorks;Provider=SQLNCLI10;Integrated Security=SSPI;Auto Translate=False;" ' ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure. ' ' To open Help, press F1.
'Declaration Dim NotifyIcon1 As NotifyIcon Dim e As System.EventArgs Dim sender As System.Object Public Sub Main() ' Add your code here ' 'NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
NotifyIcon1.Icon = New Icon("G:\Windows.ico") NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.BalloonTipTitle = "Titulo" NotifyIcon1.BalloonTipText = "texto" NotifyIcon1.ShowBalloonTip(10000)
Dts.TaskResult = ScriptResults.Success End Sub
Pero no me muestra el mensaje como si no referenciara bien el drawing ¿Alguien sabe que puede estar ocurriendo?
|
|
|
|
|
Forum Newbie
      
Group: General Forum Members
Last Login: Wednesday, January 30, 2013 6:00 PM
Points: 6,
Visits: 53
|
|
Hi all,
I have a problem when trying to display a message in a NotifyIcon through a script task of SISS 2008, But it shows me the message as if it will reference either the drawing Does anyone know what could be happening? in which I put the following code:
Buenas a tod@s,
Tengo un problema al tratar de mostrar un mensaje en un NotifyIcon a traves de un script task de SISS 2008, Pero no me muestra el mensaje como si no referenciara bien el drawing ¿Alguien sabe que puede estar ocurriendo? en el cual puse el siguiente codigo :
' Microsoft SQL Server Integration Services Script Task ' Write scripts using Microsoft Visual Basic 2008. ' The ScriptMain is the entry point class of the script.
Imports System Imports Microsoft.SqlServer.Dts.Runtime Imports System.Data Imports System.Math
Imports System.IO Imports System.Windows.Forms Imports System.Drawing Imports System.EventArgs Imports System.Object Imports System.Reflection Imports ST_6e1db1aeb859412887e4b7e71aac20bf.vbproj
<System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")> _ <System.CLSCompliantAttribute(False)> _ Partial Public Class ScriptMain Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase
Enum ScriptResults Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure End Enum
' The execution engine calls this method when the task executes. ' To access the object model, use the Dts property. Connections, variables, events, ' and logging features are available as members of the Dts property as shown in the following examples. ' ' To reference a variable, call Dts.Variables("MyCaseSensitiveVariableName").Value ' To post a log entry, call Dts.Log("This is my log text", 999, Nothing) ' To fire an event, call Dts.Events.FireInformation(99, "test", "hit the help message", "", 0, True) ' ' To use the connections collection use something like the following: ' ConnectionManager cm = Dts.Connections.Add("OLEDB") ' cm.ConnectionString = "Data Source=localhost;Initial Catalog=AdventureWorks;Provider=SQLNCLI10;Integrated Security=SSPI;Auto Translate=False;" ' ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure. ' ' To open Help, press F1.
'Declaration Dim NotifyIcon1 As NotifyIcon Dim e As System.EventArgs Dim sender As System.Object Public Sub Main() ' Add your code here ' 'NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
NotifyIcon1.Icon = New Icon("G:\Windows.ico") NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.BalloonTipTitle = "Titulo" NotifyIcon1.BalloonTipText = "texto" NotifyIcon1.ShowBalloonTip(10000)
Dts.TaskResult = ScriptResults.Success End Sub
|
|
|
|