Hola Javier, creo que no hemos borrado ningún comentario, vamos aprobando y contestando las consultas cuando tenemos tiempo y ahí es cuando aparecen. De todas formas si tenes alguna consulta, avisanos que cuando tenemos tiempo te contestamos.
Suerte!!

Hola Roberto, buenos días,

Hace bastante que no programo en VB6 y cuando lo hacía no existían los arrays en SQL Server, pero no creo que puedas pasar un array en VB6 de esta forma, me parece que la única opción es que pases un XML y lo parsees del otro lado, hay un par de páginas que hablan un poco de estos temas:

http://www.devx.com/tips/Tip/39859

http://www.mofeel.net/931-microsoft-public-sqlserver-programming/105447ab9be.aspx

El asunto es que VB6 a pesar de ser un buen lenguaje ya tiene 14 años, y (aunque pueda aducirse que los buenos lenguajes nunca caducan), la falta de actualización y el hecho de que los desarrolladores vayan pasandose a otras tecnologias hace que algunas cosas sean más dificiles de realizar o que haya que buscar alternativas, pero este último comentario no es más que una opinión personal que no estoy seguro si vendrá al caso.
En resumen espero que estas páginas puedan ayuarte.
Suerte!

tengo:

create proc add_guia (@guia char(15), @detalle_guia type deta_guiaremision) .. algo asi

queria desde vb6.0 mandarle con este codigo .

‘Public Function EjecutaComandoPS(ByVal SQL As String, ParamArray PARs() As Variant)
‘Call ConectBD
‘Set CMDEjecutaCommandSalidaPS = New ADODB.Command
‘Dim I As Long
‘With CMDEjecutaCommandSalidaPS
‘.ActiveConnection = Cn
‘.CommandType = adCmdStoredProc
‘.CommandText = SQL
‘.Parameters.Refresh
‘For I = 0 To UBound(PARs)
‘ .Parameters(I + 1).Value = PARs(I)
‘Next
‘.Execute
‘End With
‘EjecutaComandoPS = CMDEjecutaCommandSalidaPS.Parameters(I + 1).Value
‘End Function

pero bota error cuando quiere mandar un arreglo que esta metido dentro del pars()
con el cual lo meti mediante este codigo que encontre en una pagina de un programador conocido..

Private Sub tOpcional1(ParamArray optParams())
‘ Para solucionar el problema si se pasan arrays
‘ entre los parámetros opcionales
Dim i As Long
Dim Params As Variant

‘ Si el número de elementos de los parámetros opcionales es mayor que uno
If UBound(optParams) – LBound(optParams) > 1 Then
Params = optParams
Else
‘ === Esto es lo mismo que antes ===
‘ Comprobar si el primer parámetro es un array
If IsArray(optParams()) Then
Params = optParams()
Else
Params = optParams
End If
End If

‘ He cambiado el Print Params(i) por TypeName(Params(i)) para que muestre
‘ el tipo de dato que se ha pasado en cada parámetro.
‘ En el caso de un array de tipo cadena, mostrará String()
For i = LBound(Params) To UBound(Params)
Print TypeName(Params(i))
Next

MsgBox Params(0)(1)
End Sub
Private Sub tOpcional2(ParamArray optParams())
‘ Llamar a otro procedimiento que acepta parámetros opcionales
tOpcional1 optParams
End Sub

Private Sub Form_Load()
Dim tArray(1 To 3) As String

tArray(1) = «Hola, »
tArray(2) = «¿cómo »
tArray(3) = «estás?»

‘tOpcional2 tArray(), 12345.67, CDec(12345.67), 1234, 1234567, «Varios parámetros pasados», «a un procedimiento»

‘ Por supuesto, se pueden incluir varios Arrays:
Dim tArray2(1 To 2) As Long
tArray2(1) = 987654
tArray2(2) = 1234567

tOpcional1 tArray(), 12345.67, tArray2(), «Cadena», 123, 123.3, 12345.5564

End Sub

trate de adaptarlo pude meter los valores y los arrays al paramarray pero de ahi cuando quiero mandarlo al store procedure que mencione mas arriba pues sale error … ojala me pudieran dar una mano muchas gracias estimados

Hola Javier, En realidad con estos párametros sucede los mismo que con los parámetros más comunmente utilizados como por ejemplo: int o varchar, cada llamada al Stored Proc junto con los parámetros enviados es independiente y separada de las otras llamadas, por lo que el SQL Server en el ejemplo que comentás recibirá las dos llamadas, una con 3 registros y otra con 4 en el parámetro enviado en el Datatable.
Suerte y slds

Hola Roberto, ya hace bastantes años que no programo con VB6 y desconozco si que se puedan pasar Datatables como se esta haciendo en el ejemplo con .NET, pero no creo que se pueda. Quizás una alternativa que puedas utilizar es pasar el array en XML y parsearlo desde SQL Server.
Suerte y slds