VBScript For Loop

Question

I’m writing this vbscript in a in testcomplete. &nbsp; I’m having trouble with a loop… &nbsp;I don’t know if I need an If…else..&nbsp; &nbsp; The script has a ADO connection that looks at a table in the database, I need it to populate fields in a program from that database table.&nbsp; &nbsp; My for loop fills the first Row/entry correctly. &nbsp;But it seems that it just loops back to the first Row/Entry, it doesn’t move on to the second Row/entry in the table. I’m wondering what I need to add to the first for loop? &nbsp; &nbsp; &nbsp; &nbsp;  'Sales Rep Maintenance&nbsp; 'Adding New Rep 'USEUNIT Seek &nbsp; Dim txtServer, testCtrlDBase txtServer = ProjectSuite.Variables.ServerName &nbsp; &nbsp; testCtrlDBase = ProjectSuite.Variables.TestControlDB &nbsp; Sub Test1&nbsp; &nbsp; Dim FirstName,LastName,Organization,CommissionType,CommissionRate,FixedFee,SafariUser&nbsp; &nbsp; Dim control &nbsp;&nbsp; &nbsp; Dim control2 &nbsp; &nbsp;‘These aren’t being called / used &nbsp; Dim control3 &nbsp; &nbsp;‘These aren’t being called / used &nbsp; Dim MyServer &nbsp; Dim MyDataBase &nbsp; Dim TypeID&nbsp; &nbsp; Dim h,i &nbsp; TypeID = 1 &nbsp; MyServer = "ENSQL2005" &nbsp; MyDataBase = "SAF416Pete" &nbsp;&nbsp; &nbsp; Call Aliases.Explorer.wndShell_TrayWnd.ReBarWindow32.MSTaskSwWClass.ToolbarWindow32.CheckItem("EnSite Safari Suite®", True, False) &nbsp; &nbsp; &nbsp;SeekScreen ("SalesAdmin.ucSalesRepMaint") &nbsp; &nbsp;Set control = Aliases.Sys.Safari.FormHost.MDIClient.FLC_SalesRepMX.FLP_SalesRepMX.LCC_SalesRepMX.Embedded.vseContainer&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; Set AConnection = ADO.CreateConnection &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AConnection.ConnectionString = "Driver={SQL Server};Server=" + MyServer + ";Database=" + MyDataBase + ";Uid=SafariUser;Pwd=safari"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AConnection.Open &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set Cmd = ADO.CreateCommand &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Cmd.ActiveConnection = AConnection &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Cmd.CommandText = "Exec qa_SelectSalesRepData " &amp; TypeID &nbsp; &nbsp; &nbsp;‘stored procedure qa_SelectSalesRepData &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Cmd.CommandType = adCmdText &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Set RecSet = Cmd.Execute &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;RecSet.MoveFirst &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For h = 0 to RecSet.Fields.Count -1 &nbsp; ‘Loop in question Trying to retrieve another name from the database Table &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.keys("~N")&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;For i = 0 to RecSet.Fields.count -1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case RecSet.Fields(i).name &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "FirstName"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.txtFirst.SetText(RecSet.Fields(i).value) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "LastName" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.txtLast.setText(RecSet.Fields(i).value) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "Organization" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.txtOrganization.SetText(RecSet.Fields(i).value) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "CommissionType" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.cboCommissionType.ClickItem(RecSet.Fields(i).value)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "CommissionRate" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.txtCommissionRate.SetText(RecSet.Fields(i).value) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "FixedFee" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.txtFixedFee.SetText(RecSet.Fields(i).value) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case "SafariUser" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.cboSafariUser.ClickItem(RecSet.Fields(i).value) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Log.Message "Need coding to handle " &amp; RecSet.Fields(i).name &amp; " and " &amp; RecSet.Field(i).value &amp;" for Test1: "&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; control.keys("~S") &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; End Sub  &nbsp;

gregwyne · Answer

Hello, this is Greg from Smartbear support.

You seem to have posted this in the wrong forum. Here is a link to the TestComplete forum for you:

http://smartbear.com/forums/f74/novice-user-help

Regards,

Greg W.

danny_delgado · Answer

Hi,

i am a newbie with vbscript and would apppreciate if you can help me. I have a for loop below and i am having problem on how the loop will exit whenever the inputbox is blank or the loop will exit if Cancel is click..below is my for loop vbscript....Thanks in Advance.

Dim fso, tf

'Dim Msg As Variant

Dim loopIndex

Set fso = CreateObject("Scripting.FileSystemObject")

Set tf = fso.CreateTextFile("c:\Test\pcname.txt", True)

For loopIndex = 0 To 5

Msg = InputBox("Input PC Name in FQDN Format (e.g. PC1.domain.com) Then click

OK button to proceed Or Click Cancel to Terminate.", "Input Window")

tf.WriteLine(Msg)

Next

tf.Close

Danny

whomens · Answer

This is for Danny's question (not original post).

Just before the Next; add a test for Msg = notthing. If true, set loopindex to 5 (this should terminate the loop).

I hope that this helps.

Wayne Homens

Forum Discussion

VBScript For Loop

3 Replies

Recent Discussions

Ajay Hinduja - Android Image Touch – "Interface Not Supported" Error

Error when accessing license management site on Chrome

Script file not linked in Script.tcScript after adding new script – requires manual save

Related Content

Goto in VBScript

For loop

VBScript error with CreateObject