Visual Basic

    Dim myParamThread As New Thread(AddressOf myParamHandlerThread)<br />
    myParamThread.Start(CType(p.id, Object))<br />
<br />
Private Sub paramHandlerThread(ByVal obj As Object)<br />
Dim Proc As Process = Process.GetProcessById(CType(obj, Integer))<br />
Sleep(interval)' then do stuff<br />
End Sub<br />
<br />
Thanks.

Dim myProc1Thread as new Thread(AddressOf Proc1Handler)<br />
myProc1Thread.IsBackground=True<br />
myProc1Thread.Start()<br />
<br />
Private Sub Proc1Handler()<br />
Dim Processes As Process() = Process.GetProcessesByName("processName")<br />
If Processes.Length > 0<br />
System.Threading.Thread.Sleep(interval)<br />
For Each p As Process In Processes<br />
If Not p.HasExited Then<br />
'Do something<br />
...<br />

prubyholl wrote:

Realised u cant install the Windows platform SDK on XP service Pack 2

Jats_4ru wrote:

but i have no knowledge of C#

' VB.NET
Imports System
Imports System.Management
 
Public Class Sample
    Public Overloads Shared Function _
        Main(ByVal args() As String) As Integer
 
        Dim s As New ManagementObjectSearcher( _
            "root\MyApp", _
            "SELECT * FROM Win32_Service", _
            New EnumerationOptions( _
            Nothing, System.TimeSpan.MaxValue, 1, _
            True, False, True, True, False, _
            True, True))
 
        For Each service As ManagementObject In s.Get()
            'show the instance
            Console.WriteLine(service.ToString())
        Next
    End Function
End Class

// C#
using System;
using System.Management;
 
public class Sample 
{
    public static void Main(string[] args) 
    {
        ManagementObjectSearcher s = 
            new ManagementObjectSearcher(
            "root\\CIMV2", 
            "SELECT * FROM Win32_Service", 
            new EnumerationOptions(
            null, System.TimeSpan.MaxValue,
            1, true, false, true, 
            true, false, true, true));
 
        foreach (ManagementObject service in s.Get()) 
        {
            // show the service
            Console.WriteLine(service.ToString());
        }
    }
}

<br />
Dim rpt As New crystalreport<br />
rpt = reconnectreport(rpt)<br />
<br />
<br />
Private Function reconnectreport(ByVal report As ReportDocument) As ReportDocument<br />
        Dim connection As IConnectionInfo<br />
        Dim oldServerName As String = report.DataSourceConnections(0).ServerName<br />
        Dim newServerName As String = sservername<br />
        Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName<br />
        Dim newDatabaseName As String = sdbname<br />
        Dim userID As String = susername<br />
        Dim password As String = spass<br />
        report = report<br />
        ' Change the server name and database in main reports<br />
        For Each connection In report.DataSourceConnections<br />
            If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
                And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                ' SetConnection can also be used to set new logon and new database table<br />
                report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                newServerName, newDatabaseName, userID, password)<br />
            End If<br />
        Next<br />
        ' Change the server name and database in subreports<br />
        Dim subreport As ReportDocument<br />
        For Each subreport In report.Subreports<br />
            For Each connection In subreport.DataSourceConnections<br />
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
                    And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                    ' SetConnection can also be used to set new logon and new database table<br />
                    subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                    newServerName, newDatabaseName, userID, password)<br />
                End If<br />
            Next<br />
        Next<br />
        Return report<br />
    End Function<br />

<br />
  Private Sub print_me()<br />
        Try<br />
            Dim sql As String = ""<br />
            Me.cnn.Open()<br />
            ' sql=Query<br />
            ad = New SqlDataAdapter(sql, cnn)<br />
            ad.SelectCommand.CommandType = CommandType.Text<br />
            Me.ds = New DataSet<br />
            ad.Fill(ds)<br />
            Me.cnn.Close()<br />
<br />
            Dim rd, new_rd As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
            rd.Load(Application.StartupPath + "\CrystalReport1.rpt")<br />
<br />
            rd.SetDataSource(Me.ds)<br />
            new_rd = Me.reconnectreport(rd)<br />
<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.ToString, "Crystal", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
            Me.cnn.Close()<br />
        End Try<br />
    End Sub<br />
<br />
    Private Function reconnectreport(ByVal report As CrystalDecisions.CrystalReports.Engine.ReportDocument) As CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
        Dim rpt As New CrystalReport1<br />
        rpt = reconnectreport(rpt)<br />
<br />
        Dim connection As CrystalDecisions.Shared.IConnectionInfo<br />
        Dim oldServerName As String = report.DataSourceConnections(0).ServerName<br />
        Dim newServerName As String = "SYSTEM2"<br />
        Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName<br />
        Dim newDatabaseName As String = "xcpa"<br />
        Dim userID As String = "sa"<br />
        Dim password As String = ""<br />
        report = report<br />
        ' Change the server name and database in main reports<br />
        For Each connection In report.DataSourceConnections<br />
            If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
            And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                ' SetConnection can also be used to set new logon and new database table<br />
                report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                newServerName, newDatabaseName, userID, password)<br />
            End If<br />
        Next<br />
        ' Change the server name and database in subreports<br />
        Dim subreport As CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
        For Each subreport In report.Subreports<br />
            For Each connection In subreport.DataSourceConnections<br />
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
                And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                    ' SetConnection can also be used to set new logon and new database table<br />
                    subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                    newServerName, newDatabaseName, userID, password)<br />
                End If<br />
            Next<br />
        Next<br />
        Return report<br />
    End Function<br />

~V~ wrote:

rd.SetDataSource(Me.ds)
new_rd = Me.reconnectreport(rd)

<br />
 Private Sub print_me()<br />
        Try<br />
            Dim sql As String = ""<br />
            Me.cnn.Open()<br />
           sql = "select a.srno,a.amount,c.name,b.h_name from satrans as a inner join hor as b on a.h_id=b.h_id  inner join party as c on a.party_id=c.party_id where a.match_id = 1"<br />
<br />
            ad = New SqlDataAdapter(sql, cnn)<br />
            ad.SelectCommand.CommandType = CommandType.Text<br />
            Me.ds = New DataSet<br />
            ad.Fill(ds)<br />
            Me.cnn.Close()<br />
<br />
            Dim rd, new_rd As New          CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
            rd.Load(Application.StartupPath + "\CrystalReport1.rpt")<br />
<br />
           new_rd = Me.reconnectreport(rd)<br />
            rd.SetDataSource(Me.ds)<br />
<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.ToString, "Crystal", MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
            Me.cnn.Close()<br />
        End Try<br />
    End Sub<br />
<br />
<br />
 Private Function reconnectreport(ByVal report As CrystalDecisions.CrystalReports.Engine.ReportDocument) As CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
<br />
        Dim rpt As New CrystalReport1          '### The error occured here<br />
        rpt = reconnectreport(rpt)<br />
<br />
        Dim connection As CrystalDecisions.Shared.IConnectionInfo<br />
        Dim oldServerName As String = report.DataSourceConnections(0).ServerName<br />
        Dim newServerName As String = "SYSTEM2"<br />
        Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName<br />
        Dim newDatabaseName As String = "xcpa"<br />
        Dim userID As String = "sa"<br />
        Dim password As String = ""<br />
        report = report<br />
        ' Change the server name and database in main reports<br />
        For Each connection In report.DataSourceConnections<br />
            If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
            And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                ' SetConnection can also be used to set new logon and new database table<br />
                report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                newServerName, newDatabaseName, userID, password)<br />
            End If<br />
        Next<br />
        ' Change the server name and database in subreports<br />
        Dim subreport As CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
        For Each subreport In report.Subreports<br />
            For Each connection In subreport.DataSourceConnections<br />
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _<br />
                And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then<br />
                    ' SetConnection can also be used to set new logon and new database table<br />
                    subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _<br />
                    newServerName, newDatabaseName, userID, password)<br />
                End If<br />
            Next<br />
        Next<br />
        Return report<br />
    End Function <br />