
Problema de comillas flexgrid vb6 acces
Publicado por Brian (9 intervenciones) el 31/10/2014 17:58:38
Hola a todos, estoy con un problema. Realice un abm con msflexgrid y acces en vb6.
Funcionaba todo perfecto, hasta que me di cuenta que el campo clave del acces (nro_articulo) necesito que sea alfanumerico, por ejemplo el codigo de cada articulo seria asi: 29J y al estar en numero no puedo, entonces decidi pasar el campo a texto.
Pude hacer la modificacion para dar de ALTA agregandole las comillas funcion, quedo asi " ' " & text1.text & " ' " (sin los espacios entre las comillas)
El problema surge en la modificacion de la linea. Primero lo que hago es al seleccionar el articulo a modificar lo traigo asi:
Este tampoco funcionaba al cambiar el acces a texto, pero al agregarle las comillas a whe funciono perfecto ( "'" & whe & "'")
El problema surge aqui en la modificacion, este es el codigo:
De esta forma salta que no coinciden los tipos de datos en la expresion de criterios.
y si a whe lo pongo asi: "'" & whe & "'", salta error de sintaxis falta operador.
Estoy seguro que es un problema de comillas, pero la verdad que probe de mil maneras y no encuentro la solucion, espero que puedan ayudarme muchas gracias.
Funcionaba todo perfecto, hasta que me di cuenta que el campo clave del acces (nro_articulo) necesito que sea alfanumerico, por ejemplo el codigo de cada articulo seria asi: 29J y al estar en numero no puedo, entonces decidi pasar el campo a texto.
Pude hacer la modificacion para dar de ALTA agregandole las comillas funcion, quedo asi " ' " & text1.text & " ' " (sin los espacios entre las comillas)
El problema surge en la modificacion de la linea. Primero lo que hago es al seleccionar el articulo a modificar lo traigo asi:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Buscar_articulo()
whe = "where nro_articulo = " & busca
sql = "select * from mercaderia " & "'" & whe & "'"
'MsgBox sql
rs.Open sql, conn
Text1.Text = busca: Text1.Enabled = False
Text2.Text = rs.Fields("descripcion")
Text3.Text = rs.Fields("cantidad")
Text4.Text = rs.Fields("precio")
rs.Close
End Sub
Este tampoco funcionaba al cambiar el acces a texto, pero al agregarle las comillas a whe funciono perfecto ( "'" & whe & "'")
El problema surge aqui en la modificacion, este es el codigo:
1
2
3
4
5
6
7
8
9
Private Sub mod_articulo()
sql = "UPDATE mercaderia set "
sql = sql & " descripcion = '" & Text2.Text & "'"
sql = sql & ",cantidad = '" & Text3.Text & "'"
sql = sql & ", precio =" & Replace(Text4.Text, ",", ".")
sql = sql & " " & whe
conn.Execute sql
End Sub
De esta forma salta que no coinciden los tipos de datos en la expresion de criterios.
y si a whe lo pongo asi: "'" & whe & "'", salta error de sintaxis falta operador.
Estoy seguro que es un problema de comillas, pero la verdad que probe de mil maneras y no encuentro la solucion, espero que puedan ayudarme muchas gracias.
Valora esta pregunta


0