Como escrever valores do ADORecordSet em tags internas

#1

Prezados,

Como faço faço para ecrever o valor dos campos em tags internas ao invés do MsgBox?

set RS = Screen.Item(“Consulta1”).GetADORecordset()
RS.MoveFirst
for i=1 to RS.RecordCount
Campo1 = RS.Fields(“Campo1”).Value
Campo2 = RS.Fields(“Campo2”).Value
campo3 = RS.Fields(“Campo3”).Value
MsgBox Campo1 &vbTab& Campo2 &vbTab& Campo3
RS.MoveNext
next

1 Like
#2

Tentou:

Application.GetObject(“suaTAG1”).Value = RS.Fields(“Campo1”).Value
Application.GetObject(“suaTAG2”).Value = RS.Fields(“Campo2”).Value
Application.GetObject(“suaTAG3”).Value = RS.Fields(“Campo3”).Value