vb6 - Alternative method for "For Loop" -

-


vb6 - Alternative method for "For Loop" -

i have 4 different values, want check 4 values 4 different combination

code

dim tot1, tot2, tot3, to4 variant dim item1, item2, item3, item4 variant each item1 in tot1 each item2 in tot2 each item3 in tot3 each item4 in tot4 if item1 = "all" , item2 <> "all" , item3 <> "all" , item4 <> "all" '1 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition <> '" & item2 & "' , section <> '" & item3 & "' , location <> '" & item4 & "'" elseif item1 <> "all" , item2 = "all" , item3 <> "all" , item4 <> "all" '2 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition = '" & item2 & "' , section <> '" & item3 & "' , location <> '" & item4 & "'" elseif item1 <> "all" , item2 <> "all" , item3 = "all" , item4 <> "all" '3 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition <> '" & item2 & "' , section = '" & item3 & "' , location <> '" & item4 & "'" elseif item1 <> "all" , item2 <> "all" , item3 <> "all" , item4 = "all" '4 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition <> '" & item2 & "' , section <> '" & item3 & "' , location = '" & item4 & "'" elseif item1 = "all" , item2 = "all" , item3 <> "all" , item4 <> "all" '1 & 2 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition = '" & item2 & "' , section <> '" & item3 & "' , location <> '" & item4 & "'" elseif item1 = "all" , item2 <> "all" , item3 = "all" , item4 <> "all" '1 & 3 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition <> '" & item2 & "' , section = '" & item3 & "' , location <> '" & item4 & "'" elseif item1 = "all" , item2 <> "all" , item3 <> "all" , item4 = "all" '1 & 4 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition <> '" & item2 & "' , section <> '" & item3 & "' , location = '" & item4 & "'" elseif item1 <> "all" , item2 = "all" , item3 = "all" , item4 <> "all" '2 & 3 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition = '" & item2 & "' , section = '" & item3 & "' , location <> '" & item4 & "'" elseif item1 <> "all" , item2 = "all" , item3 <> "all" , item4 = "all" '2 & 4 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition = '" & item2 & "' , section <> '" & item3 & "' , location = '" & item4 & "'" elseif item1 <> "all" , item2 <> "all" , item3 = "all" , item4 = "all" '3 & 4 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition <> '" & item2 & "' , section = '" & item3 & "' , location = '" & item4 & "'" elseif item1 = "all" , item2 = "all" , item3 = "all" , item4 <> "all" '1 & 2 & 3 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition = '" & item2 & "' , section = '" & item3 & "' , location <> '" & item4 & "'" elseif item1 = "all" , item2 = "all" , item3 <> "all" , item4 = "all" '1 & 2 & 4 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition = '" & item2 & "' , section <> '" & item3 & "' , location = '" & item4 & "'" elseif item1 = "all" , item2 <> "all" , item3 = "all" , item4 = "all" '1 & 3 & 4 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition <> '" & item2 & "' , section = '" & item3 & "' , location = '" & item4 & "'" elseif item1 <> "all" , item2 = "all" , item3 = "all" , item4 = "all" '2 & 3 & 4 ssql = "insert table1 select distinct emp_code employee company <> '" & item1 & "' , partition = '" & item2 & "' , section = '" & item3 & "' , location = '" & item4 & "'" elseif item1 <> "all" , item2 <> "all" , item3 <> "all" , item4 <> "all" '1 & 2 & 3 & 4 ssql = "insert table1 select distinct emp_code employee company = '" & item1 & "' , partition = '" & item2 & "' , section = '" & item3 & "' , location = '" & item4 & "'" end if next next next next

the above mentioned code working, code hard checking 4 values combination, incase if checking values 6 hard write combination....

any other alternative method available...?

i think havnt mention exact construction of data, otherwise there have been improve code example, however, seek own code little modification

dim tot1 new collection, tot2 new collection, tot3 new collection, tot4 new collection dim item1, item2, item3, item4 variant dim str string tot1.add "all" tot1.add "2" tot1.add "3" tot1.add "4" tot2.add "1" tot2.add "2" tot2.add "3" tot2.add "all" tot2.add "5" tot3.add "1" tot3.add "all" tot3.add "3" tot3.add "4" tot3.add "5" tot3.add "6" tot4.add "1" tot4.add "all" tot4.add "3" each item1 in tot1 each item2 in tot2 each item3 in tot3 each item4 in tot4 str = vbnullstring if item1 = "all" str = str & "& 1 " if item2 = "all" str = str & "& 2 " if item3 = "all" str = str & "& 3 " if item4 = "all" str = str & "& 4 " debug.print item1 & "," & item2 & "," & item3 & "," & item4 & " -> " & mid$(trim$(str), 2) next next next next

vb6 for-loop

Comments

Post a Comment

Popular posts from this blog

How do I check if an insert was successful with MySQLdb in Python? -

-
How do I check if an insert was successful with MySQLdb in Python? - i have code: cursor = conn.cursor() cursor.execute(("insert new_files (videos_id, filename, " "is_processing) values (%s,%s,1)"), (id, filename)) logging.warn("%d", cursor.rowcount) if (cursor.rowcount == 1): logging.info("inserted values %d, %s", id, filename) else: logging.warn("failed insert values %d, %s", id, filename) cursor.close() fun is, cursor.rowcount always one, though updated database create videos_id unique key. is, insert fails because in tests same videos_id going appear (and when check database, nil inserted). whatever reason, rowcount 1 - logging.warn have spits out rowcount of 1. so, question: can utilize rowcount work out if insert went fine? if so, (presumably) doing wrong? otherwise, how check if insert went fine? your code not commit after modifications (your modifications rolled back). should...
Read more

delphi - blogger via idHTTP : error 400 bad request -

-
delphi - blogger via idHTTP : error 400 bad request - i'm trying post blogger using idhttp component, however, i'm getting "http/1.0 400 bad request" error. procedure tform1.button1click(sender: tobject); var request,response,req : tstringlist; auth,blogid : string; begin blogid := '00000000000000000000000'; request := tstringlist.create; response := tstringlist.create; req := tstringlist.create; idhttp1.request.connection := 'keep-alive'; idhttp1.request.contenttype := 'application/x-www-form-urlencoded'; idssliohandlersocket1.ssloptions.method := sslvsslv23; request.clear(); request.values['accounttype'] := 'google'; request.values['email'] := 'xxx@gmail.com'; request.values['passwd'] := 'yyy'; request.values['service'] := 'blogger'; response.text :=idhttp1.post('https://www.google.com/accounts/clientlogin',request); auth := resp...
Read more

postgresql - ERROR: operator is not unique: unknown + unknown -

-
postgresql - ERROR: operator is not unique: unknown + unknown - i have postgis database , have compute new values rows in new column. these values should average of values of several columns. query: insert bdps (da_m) values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7')); in query bdps database, da_m new column , da_1 da_7 existing columns have double precision type. da_m created using alter table bdps add together column da_m double precision; i next error: error: operator not unique: unknown + unknown line 2: values (avg('da_1'+'da_2'+'da_3'+'da_4'+'da_5'+'da_6'+'da_7... ^ hint: not take best candidate operator. might need add together explicit type casts. ********** error ********** error: operator not unique: unknown + unknown sql state: 42725 hint: not take best candidate operator. might need add togethe...
Read more