como combinar cadenas?

[mrtorch]

ke tal
No sé cómo poder hacerlo para recibir los datos en una DLL que estoy haciendo con VB 6.0.
El problema específico es que al querer guardar los datos, se chequee si existe el registro en la BD y lo actualice, o si no, que agrege uno nuevo.
En mi código tengo algo así:

VB:
-------------------------------

Option Explicit
Dim oConn As ADODB.Connection ' Creamos un objeto Conexión
Dim rs As ADODB.Recordset ' Creamos un objeto recordset
Dim sSQL As String
----------------------------------

Private Sub conex()
On Error GoTo ErrorCon

Set oConn = New Connection
oConn.Open "DSN=dbacc;UID=;PWD=;"
Exit Sub

ErrorCon:
oConn.Close
Set oConn = Nothing
Err.Raise Err.Number, Err.Source, "Error al recuperar datos. " & vbCrLf & Err.Description
Exit Sub
End Sub
-------------------------------------

Public Function guardar(tabla, valores, condicion)

Call Conex

'Valores(i) de


valor1="columnaBD1=" & valores(0)
valor2="columnaBD2=" & valores(1) ....


sSQL0="SELECT idTabla FROM " & tabla & " WHERE " & condicion & "
sSQL1="INSERT INTO " & tabla & " VALUES " & valores
sSQL2="UPDATE " & valor1 & "," & valor2 & "," ... FROM " & tabla & " WHERE " & condicion

Set rs = New Recordset
rs.Open sSQL, oConn, 0, 1

If rs.BOF And rs.Eof Then 'si no existe el registro, inserta uno nuevo

Set rs1 = New Recordset
rs1.Open sSQL1, oConn, 0, 1

Else 'si existe el registro, lo actualiza

Set rs2 = New Recordset
rs2.Open sSQL2, oConn, 0, 1

End If


Set rs = Nothing
Set oConn = Nothing

End Function
------------------------------------
fin


Mi duda es la siguiente, los valores que recojo en un formulario los paso como parametros a la DLL
como "valor1,valor2, valor3, ... etc", el cual me sirve perfecto para utilizarlo en la consulta INSERT de SQL,
pero para la consulta UPDATE debe ser "columna1=valor1,columna2=valor2,...etc", ni problema es simple
pero estoy enredado, a cerca de cómo lograr una cadena de caracteres del tipo "columna=valor" a partir de
los valores recibo.


Muchas gracias a quien se digne ayudar a este principiante

[Synthetic]

Hola no se si he entendido bien tu problema, pero al parecer lo que necesitas , en resumen, es pasar un sentencia SQL utilizando los valores que recibes del formulario. Prueba a concatenar los parametros con el nombre de su columna correspondiente. No se decirte que funcion en basic hace eso, se que en C es strcat o strncat. Creo q puedes buscar por ahi.
espero q t sea util mi opinión.

[mrtorch]

ke tal Synthetic, la verdad es que no se trata precisamente de eso, sino màs bien de algo super simple, pero que se me fue en coyera, como se dice; tengo una(varias) cadenas que corresponden a las columnas de cada tabla de la BD cmo sigue:

strTabla1="columna1,columna2,columna3,columna4,col umnaN..."

y recibo desde ASP una cadena con valores asì:
valores="valor1,valor2,valor3,valor4,valorN..."

lo que necesito es una funciòn VB para lograr lo siguiente

strColValor="columna1=valor1,columna2=valor2,colum na3=valor3,columna4=valor4,columnaN=valorN..."

sólo eso, pero en VB. Gracias

[pabli]

el ASP siempre devuelve el mismo número de columnas y en el mismo orden??

Saludos
Pablo

[mrtorch]

si, ASP develve lo que le corresponde correctamente.

En realidad eso es lo de menos, ya que eso lo tengo controlado, lo que no sé es cómo lograr la cadena:

strCV=" c1=v1,c2=v2,c3=v3,c4=v4,...cN=vN"

a partir de la union de:

strC="c1,c2,c3,c4,...cN"
strV="v1,v2,v3,v4,...vN"

[rafapaskual]

Hola,
Puedes usar la funcion Split, que te devuelve en un vector las cadenas que haya entre un caracter delimitador que tu le pases. Ej
Dim vValores() as string
vValores=split(strV,",")

Luego puedes concatenar los valores de cada vector en un bucle:
for i=0 to numerocampos
sSql=ssql & vCampos(i) & "=" & vValores(i)
next

Espero que te sirva, saludos!