problema para guardar en SQL formato monedo a entero o money - VB-MUNDO

Black_devil · #1 (**permalink**) 05-09-2006, 16:59:38

Hola amigos, espero que se encuentren bien, tengo un problema, pero hasta el momento no lo he podido solucionar, bueno creo una tabla temporal con un botón, tengo dos cajas de texto, la primera ID y segunda despacho que es en formato moneda

Por Ej

ID = 1
Despacho = $35.000.000

y en el botón tenemos esto, la idea que tome el valor expresado en moneda y lo guarde de tipo entero

Código:

Private Sub cmdinsertar_Click()
On Error GoTo Errores
cn.Execute "CREATE TABLE TEMPORAL_DESPACHOSPC01 (id CHAR(10), despacho INT)"
sql = "INSERT INTO TEMPORAL_DESPACHOSPC01   (id, despacho) VALUES ('" & txtid.Text & "', '" & txtdespacho.Text & "')"
'cn.Execute sql
rs.Close
cn.Close
End If
Exit Sub
Errores:
End Sub

Probe con despacho tipo INT, NUMERIC, MONEY pero no lo toma, recordemos que la caja de texto despacho se transforma en moneda puede ser ahi el problema?, pero lo que no entiendo es porque coloco en MONEY y tampoco toma, alguna solución, también saque cremillas a txtdespacho, coloque VAL, pero no resulta, saludos y gracias

J.M.Movilla · #2 (**permalink**) 05-09-2006, 17:52:57

Creo que el primer paso es que pruebes a insertar el Entero de la caja txtdespacho... y que definas el campo como INTEGER

Código:

cn.Execute "CREATE TABLE TEMPORAL_DESPACHOSPC01 (id CHAR(10), despacho INTEGER)" 
sql = "INSERT INTO TEMPORAL_DESPACHOSPC01   (id, despacho) VALUES ('" & txtid.Text & "', '" & CInt(txtdespacho) & "')"

A ver si se te resuelve el atasco...

Black_devil · #3 (**permalink**) 05-09-2006, 18:59:45

Hola, Sr. Movilla, asi es, habia probado con INTEGER, pero necesito guardar valores más grandes, ocuparía NUMERIC, pero no resulta, no entiendo cuál es el problema, ya que con access los debaja numéricos en la tabla y guardaba correctamente, incluso los datos estaban en formato moneda en las cajas de texto, pero con SQL no entiendo que sucede, ya que con INT, NUMERIC O INTEGER sólo guarda 4 dígitos Ej. 3500 y si coloco 35000 ya no lo almacena, que otro tipo de dato me recomienda??, utilizaría algun CHAR u otro, pero no sé si resulte sacar el MIN Y MAX en una consulta después de almacenar la información con ese tipo de datos, ya que en access los valores en formato moneda los guardaba en la tabla como TEXT pero al calcular el MIN y MAX obviamente no los calculaba, sólo cuando eran de tipo INTEGER, ya no sé que hacer, consejos, por favor, saludos ...

Black_devil · #4 (**permalink**) 05-09-2006, 19:18:17

Ni siquiera puedo guardar el dato como CHAR o VARCHAR, ya que no permite calcular el MIN ni el MAX que puede ser??? :smt012 :smt013 :smt017

Black_devil · #5 (**permalink**) 05-09-2006, 19:31:04

Hola, y lo extraño que importo una tabla de access para SQL con los tipos de datos y la información y queda todo ok, incluso despacho es de tipo INT (4), donde tengo valores de 200000 y los guarda correcto, voy a seguir en el tema :smt017 , saludos

Black_devil · #6 (**permalink**) 05-09-2006, 20:41:39

:smt017, ya no sé que hacer, creo la tabla así ... y funciona ok, pero mi idea cuando guarde los datos de la tabla temporal los guarde en otra tabla pero con datos enteros, para luego calcular el MIN y el MAX

Código:

Private Sub insertar_Click()
On Error GoTo Errores
rs.Open "CREATE TABLE TEMPORAL_DESPACHO (despacho CHAR(100))", cn, adOpenStatic, adLockOptimistic
sql = "INSERT INTO TEMPORAL_DESPACHO (despacho) VALUES ('" & txtdespacho.Text & "')"
cn.Execute sql
rs.Close
Exit Sub
Errores:
End Sub

Todo OK cuando creo la tabla temporal, me muestra cualquier dato $150.000.000 los inserta correcto, pero quiero guardalos en formato entero que agrego en este código:

Código:

Private Sub guardar_Click()
On Error GoTo Errores
sql = "INSERT INTO DESPACHO (despacho) SELECT despacho FROM TEMPORAL_DESPACHO"
cn.Execute sql
rs.Open "DROP TABLE TEMPORAL_DESPACHO", cn, adOpenStatic, adLockOptimistic
rs.Close
Exit Sub
Errores:
End Sub

Mi idea es sólo mostrar los datos en formato moneda, pero guardarlos entero...

J.M.Movilla · #7 (**permalink**) 05-09-2006, 21:20:29

No sé si con tanta pregunta voy a enterarme de a qué tengo que responderte. Voy por partes: Si el INTEGER se te queda corto, sigue las normas de programación... Sustituye Integer por LONG. Y luego seguimos con tus otras cuestiones, ya que si no damos los pasos correctos, de poco nos sirve hablar del último sin haber traspasado el primer obstáculo...

Black_devil · #8 (**permalink**) 05-09-2006, 21:44:59

sip, ya hice todo eso, que más decir, voy a intentar con distintos tipos de datos, saludos y gracias ... :smt006

Black_devil · #9 (**permalink**) 05-09-2006, 22:04:35

Gracias a DIOS lo solucione, gracias por todo

aca el código:

Código:

Private Sub insertar_Click()
On Error GoTo Errores
cn.Execute "CREATE TABLE TEMPORAL_DESP (despacho VARCHAR(50))"
sql = "INSERT INTO TEMPORAL_DESP (despacho) VALUES ('" & Format(txtdespacho.Text, "###0") & "')"
cn.Execute sql
rs.Update
rs.Close
'cn.Close
Exit Sub
Errores:
End Sub

Código:

Private Sub guardar_Click()
On Error GoTo Errores
sql = "INSERT INTO DESPACHO (despacho) SELECT despacho FROM TEMPORAL_DESP"
cn.Execute sql
rs.Open "DROP TABLE TEMPORAL_DESP", cn, adOpenStatic, adLockOptimistic
rs.Close
cn.Close
Exit Sub
Errores:
End Sub

Donde en tabla temporal deje despacho tipo varchar y lo formatie para que lo dejara como valor entero ...

J.M.Movilla · #10 (**permalink**) 05-09-2006, 23:28:02

De siempre conocí un refrán que dice "Si el programa funciona, ni lo toques":

Pero, a pesar de eso, yo te aconsejo que aprendas a manejar variables numéricas, porque en alguna ocasión te verás precisado a realizar operaciones aritméticas, y los datos de carácter, por muy bien formateados que estén... no son numéricos y te pueden sorprender con valores inesperados.