dulphi
09 de Marzo del 2010

quien me podria ayudar cuando ejecuto mi aplicacion con vb6 me sale error falta parwentecis derecho y me hace referencia a este codigo

Do While Not rs.EOF
TreeView1.Nodes.Add , , "A" & rs(0), rs(0), ImageList1.ListImages("a").Key

SQLC1 = "select distinct ACT_TRIM from activida where ACT_PERIOD=" & rs(0) & " and ACT_COD IN (SELECT DISTINCT ACT_COD FROM ANTECEDE) order by ACT_TRIM"
rs1.Open SQLC1, cnn, adOpenDynamic, adLockOptimistic
Do While Not rs1.EOF
TreeView1.Nodes.Add "A" & rs(0), tvwChild, "A" & rs(0) & "T" & rs1(0), "TRIM " & rs1(0), ImageList1.ListImages("b").Key

SQLC2 = "select a.emp_ruc, a.act_cod, e.EMP_RSOCIA from activida a , EMPRESA e WHERE e.EMP_RUC = a.EMP_RUC and a.ACT_COD IN (SELECT DISTINCT ACT_COD FROM ANTECEDE) and (a.act_period=" & rs(0) & " and a.act_trim= " & rs1(0) & ") ORDER BY e.EMP_RSOCIA"
rs2.Open SQLC2, cnn, adOpenDynamic, adLockOptimistic
Do While Not rs2.EOF
TreeView1.Nodes.Add "A" & rs(0) & "T" & rs1(0), tvwChild, "V" & rs2(1) & "A" & rs(0) & "T" & rs1(0), rs2(2), ImageList1.ListImages("c").Key

SQLC3 = "select antec_titu, antec_cod, iif(antec_tip = '01', '(C)',iif(antec_tip = '02', '(N)','(A)')) from antecede where act_cod=" & rs2(1) & " order by 3"
rs3.Open SQLC3, cnn, adOpenDynamic, adLockOptimistic
Do While Not rs3.EOF
TreeView1.Nodes.Add "V" & rs2(1) & "A" & rs(0) & "T" & rs1(0), tvwChild, "Y" & rs3(1) & "V" & rs2(1) & "A" & rs(0) & "T" & rs1(0), rs3(2) & " " & rs3(0), ImageList1.ListImages("d").Key
rs3.MoveNext
Loop
rs3.Close

rs2.MoveNext
Loop
rs2.Close

rs1.MoveNext
Loop

AlexGamm
09 de Marzo del 2010

Hola,
Estas utilizando incorrectamente el DISTINCT, te mando un ejemplo

select distinct ACT_TRIM from activida where ACT_PERIOD=" & rs(0) & " and ACT_COD IN (SELECT DISTINCT (ACT_COD) FROM ANTECEDE order by ACT_TRIM)

Revisa las diferencias.
Saludos