Ayuda con Query

[grisel]

Hola Foro.


Saben tengo este Query en c# en el cual me funciona muy bien , lo que quiero es pasarlo a visual basic, y me marca muchos errores, no se si sean por las comillas o tenga que ver con el signo + q en c# es concatenar.

si me pudieran ayudar ya que ahora tengo que pasar este tipo de sentencias a visual basic y no se muy bien en que difieren muy bien.

Se los agradesco mucho saludillos y bye!

string clausulaSql ="UPDATE usuario SET nomusuario='"+this.nombre+
"',correoelectronico='"+this.correoElectronico +
"',direccion='"+this.direccion+
"',telefono='"+this.telefono+
"',idtipousuario=3,correoenviado=0 WHERE idusuario ="+this.id.ToString()+
" IF @@ROWCOUNT=0 BEGIN INSERT INTO usuario VALUES("+nuevo_id.ToString()+
",'"+this.nombre+"','"+this.correoElectronico+"',' "+this.password+"','','"+this.usr+"','"+this.direc cion+"','"+this.telefono+ "',3,0,'') END ";

oDB.EjecutaNonQuery(clausulaSql);

[Thumper]

Hola, el problema es q en visual basic se concatena con "&"

string clausulaSql ="UPDATE usuario SET nomusuario='" & this.nombre & _
"',correoelectronico='" & this.correoElectronico & _
"',direccion='" & this.direccion & _
"',telefono='" & this.telefono & _
"',idtipousuario=3,correoenviado=0 WHERE idusuario =" & this.id.ToString() & _
" IF @@ROWCOUNT=0 BEGIN INSERT INTO usuario VALUES (" & nuevo_id.ToString() & _
",'" & _ this.nombre & "','" & this.correoElectronico & _
"','" & this.password & "','','" & his.usr & "','" & this.direccion & "','" & this.telefono & "',3,0,'') END "

y como puedes observar para cambiar de linea se coloca " & _ "

[grisel]

Puedo observar que colocas comillas sencillas y dobles y el & para concatenar, pero ami me marca error cuando aplico las comillas sencillas ¿Que estoy haciendo mal?


gracias!
buen dia y bye

[RootK]

Mas bien así quedaría:

Dim clausulaSql As String = "UPDATE usuario SET nomusuario='" & Me.nombre & _
"',correoelectronico='" & Me.correoElectronico & _
"',direccion='" & Me.direccion & _
"',telefono='" & Me.telefono & _
"',idtipousuario=3,correoenviado=0 WHERE idusuario =" & Me.ID.ToString() & _
" IF @@ROWCOUNT=0 BEGIN INSERT INTO usuario VALUES(" & nuevo_id.ToString() & _
",'" & Me.nombre & "','" & Me.correoElectronico & "','" & Me.password & "','','" & _
Me.usr & "','" & Me.direccion & "','" & Me.telefono & "',3,0,'') END "

Y por cierto, tambien en vb.net puedes concatenar con el signo de "+", solo que en algunos casos si es un entero lo toma como operador y no para concatenar...depende de tu estrucutra...

Salu2

[grisel]

Hola Rootk

Cheque las comas sencillas y dobles en el query, lo que tambien pude observar es que los espacion cuentan mucho. sabes ahora trato de hacer lo mismo con el siguiente query ya que me pasa lo mismo, me marca error me dice que el "&" no esta definido para los tipos object y para los datos System.Data.SqlCliente.sqlParamater. ya cambie el & por el singo +, ya cheque q campos son enteros y cuales cadena ya revise espacios y nada

Estuve checando ya internet, pero lo que encontrado son ejemplos muy sencillos, donde si hacen consultas pero con dos o tres campos, lo mismo para insertar , pero ok checo la forma en q colocan las comillas si es cadena o si es entero, pero para eso de lo q me esta maracando error pues no se ni por donde, si me pudieran dar un link donde venga algo mas explicito para enterder un poco mas se los garadeceria mucho, mucho.

buen dia y bye.

[grisel]

Query

updater = "UPDATE cliente SET idcolonia = '" & pColonia.Value & "' WHERE clave = '" & pClave.Value & _
"', nombre = '" & pNombre.Value & "' , paterno = '" & pPaterno.Value & "' ,materno = '" & pMaterno.Value & _
"' , domicilio = '" & pDomicilio.Value & "' , referencias = '" & pReferencias.Value& _
"' , rfc = '" & pRfc.Value & "' , telefono = '" & pTelefono.Value & _
"', fechanacimiento = '" & pFechaNacimiento.Value & "' , ocupacion = " & pOcupacion.Value & _
" , publicidad = " & pPublicidad.Value & " , tipocliente = " & pTipoCliente.Value & ",urlDirectorio = '" & pUrl & _
"', identificacion = '" & pIdentificacion.Value & "' WHERE clave = '" & pClave & "'"