ISSO E VB?

USUARIO.EXCLUIDOS 17/04/2007 15:02:42
#212319
Que comando é essé "Forall" ? O VB6 não reconhece.


 Sub  Click As Button
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim DestList As String
Dim SetFlag As String
SetFlag = ""

DestList ("Server1/Acme1/Acme") = "192.168.1.140"
DestList ("Server2/Acme1/Acme") = "192.168.1.141"
DestList ("Server3/Acme1/Acme") = "192.168.1.142"

Set db = session.GetDatabase("","names.nsf",False)
Set view = db.GetView("Connections")
Forall svr In DestList
Set doc = view.GetDocumentByKey(Listtag(svr))
If (doc Is Nothing) Then
SetFlag = "Document has been created"
Set doc = db.CreateDocument
Doc.Form = "Server Connection"
Doc.Destination=Listtag(svr)
Doc.OptionalNetworkaddress=svr
Doc.PhoneNumber=svr
Doc.ConnectionType="0"
Doc.LanPortName="TCPIP"
Doc.PortName="TCPIP"
Doc.Type="Connection"
Doc.Source="*"
Doc.ConnectionLocation="*"
Call doc.Save(True,True)
End If
If SetFlag = "" Then SetFlag = "Document has been updated"
doc.OptionalNetworkaddress=svr
doc.PhoneNumber= svr
Call doc.save(True,True)
End Forall
Messagebox "Your Connection "&SetFlag,MB_OK,"Updated"
End Sub

IRENKO 17/04/2007 15:29:26
#212345
Acho que é usado em liguagem PL/SQL para Oracle Database.
USUARIO.EXCLUIDOS 17/04/2007 15:36:47
#212351
Como compilar? ou Executar? o que eu preciso?
USUARIO.EXCLUIDOS 17/04/2007 15:55:16
#212360 Resposta escolhida
Cara, não sei, deve ser VB.NET, mas tá parecendo a estrutura de um FOR EACH:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim DestList As String
Dim SetFlag As String
SetFlag = ""

DestList("Server1/Acme1/Acme") = "192.168.1.140"
DestList("Server2/Acme1/Acme") = "192.168.1.141"
DestList("Server3/Acme1/Acme") = "192.168.1.142"

Set db = session.GetDatabase("", "names.nsf", False)
Set view = db.GetView("Connections")
For Each svr In DestList
  Set doc = view.GetDocumentByKey(Listtag(svr))
  If (doc Is Nothing) Then
    SetFlag = "Document has been created"
    Set doc = db.CreateDocument
    doc.Form = "Server Connection"
    doc.Destination = Listtag(svr)
    doc.OptionalNetworkaddress = svr
    doc.PhoneNumber = svr
    doc.ConnectionType = "0"
    doc.LanPortName = "TCPIP"
    doc.PortName = "TCPIP"
    doc.Type = "Connection"
    doc.Source = "*"
    doc.ConnectionLocation = "*"
    Call doc.Save(True, True)
  End If
  If SetFlag = "" Then SetFlag = "Document has been updated"
  doc.OptionalNetworkaddress = svr
  doc.PhoneNumber = svr
  Call doc.Save(True, True)
Next svr
Messagebox "Your Connection "&SetFlag,MB_OK,"Updated"


De onde tirou isso?
USUARIO.EXCLUIDOS 17/04/2007 15:58:03
#212362
Em um forum sobre Lotus Notes. O código altera informações sobre localidade do servidor de correio.
USUARIO.EXCLUIDOS 17/04/2007 15:58:39
#212363
http://www.ns-tech.com/blog/geldred.nsf/d6plinks/GELD-6TF4P6
USUARIO.EXCLUIDOS 17/04/2007 16:03:54
#212367
Testou da forma como passei?
USUARIO.EXCLUIDOS 17/04/2007 16:30:32
#212378
deu n.
WEBMASTER 17/04/2007 17:41:21
#212391
Afff Maria...
O genre isso e Lotus Script.
Parece VB e lembra um pouco, mas voce programa isso dentro do Lotus Notes por exemplo para criar um agente ;-)
Tópico encerrado , respostas não são mais permitidas
Voltar