Consulta SQL VB 6/Excel
Publicado por Juan (2 intervenciones) el 14/11/2005 15:26:27
Hola
Estoy programado en VB 6.0 con Excel y utilizando una consulta que le voy agregando parametros con un FOR. Me pasa que se me pasa de los 255 Bytes y ejecuto el .CommandText y la cadena SQL se recorta en los 255. Que tipo de dato puedo usar?
Les paso la parte de la macro que me da error.
'Primer String
strCadena_uno = "SELECT CA.NOMBRE, SUM(TARIFA + TAX) EMISION FROM BOLETO_PAX BP, CIA_AEREA_BSP CA"
'Segundo String
strCadena_dos = "WHERE CA.ID_TRANSPORTADOR=BP.ID_TRANSPORTADOR AND MARCA_VOID=0 AND " & srtSQLOr & " " & "AND FECHA_EMISION >=" & "'" & dteDesde & "'" & " " & "AND FECHA_EMISION <=" & "'" & dteHasta & "'" & " "
'Tercer String
strCadena_tres = "GROUP BY CA.NOMBRE"
.CommandText = Array(strCadena_uno & strCadena_dos & strCadena_tres)
.RefreshStyle = xlOverwriteCells 'Sobrescribo la consulta temporal anterior
.Refresh BackgroundQuery:=False
Estoy programado en VB 6.0 con Excel y utilizando una consulta que le voy agregando parametros con un FOR. Me pasa que se me pasa de los 255 Bytes y ejecuto el .CommandText y la cadena SQL se recorta en los 255. Que tipo de dato puedo usar?
Les paso la parte de la macro que me da error.
'Primer String
strCadena_uno = "SELECT CA.NOMBRE, SUM(TARIFA + TAX) EMISION FROM BOLETO_PAX BP, CIA_AEREA_BSP CA"
'Segundo String
strCadena_dos = "WHERE CA.ID_TRANSPORTADOR=BP.ID_TRANSPORTADOR AND MARCA_VOID=0 AND " & srtSQLOr & " " & "AND FECHA_EMISION >=" & "'" & dteDesde & "'" & " " & "AND FECHA_EMISION <=" & "'" & dteHasta & "'" & " "
'Tercer String
strCadena_tres = "GROUP BY CA.NOMBRE"
.CommandText = Array(strCadena_uno & strCadena_dos & strCadena_tres)
.RefreshStyle = xlOverwriteCells 'Sobrescribo la consulta temporal anterior
.Refresh BackgroundQuery:=False
Valora esta pregunta
0