2010-11-12 9 views
0
Function Main() 
    DTSGlobalVariables("bolFirstRecord").Value = True 
    Main = DTSTaskExecResult_Success 
End Function 
+2

Vous n'avez pas fourni suffisamment de détails pour ce à convertir. Qu'est-ce que 'DTSGlobalVariables'? D'où vient le 'DTSTaskExecResult_Success' et comment est-il peuplé? Quel type de retour est attendu de 'Main'? – Oded

+0

Data Transformation Services (Sql Server 2000), il s'agit probablement de variables globales fournies par le moteur DTS VBScript, la question nécessite plus de contexte concernant la conversion. –

Répondre

0

Comme Oded a souligné, il est tout à fait une information manquante pour vous conseiller à ce sujet, mais je pense que vous avez besoin de quelque chose comme ceci:

Public Class MyForm1 
    Private bolFirstRecord As Boolean 

    Public Property FirstRecord() As Boolean 
    Get 
     Return bolFirstRecord 
    End Get 
    Set(ByVal value As Boolean) 
     bolFirstRecord = value 
    End Set 
    End Property 

    Public Function Main() As Boolean 
    Try 
     Me.FirstRecord = True 
     Return True 
    Catch ex as Exception 
     Return False 
    End Try 
    End Function 

End Class