problemas con insert en evb¡¡¡¡ - VB-MUNDO

seven20 · #1 (**permalink**) 29-11-2003, 23:00:00

problemas con insert en evb¡¡¡¡

Mi problema es el siguiente, una vez creada una tabla quiero insertar registros en ella mediante insert pero me sale siempre error.
Set rs = CreateObject("ADOCE.Recordset.3.0"

codigo = Text1.Text
rs.Open "INSERT INTO clientes (nombre) VALUES (codigo) "
Así no funciona, sin embargo si pongo directamente un valor sí que funciona, pero claro quiero insertar lo que haya en unas cajas de texto.
Con delete tampoco me vá, pongo esto:
rs.Open ("Delete * from clientes where codigo= 1 "

y me casca.
Haber si alguíen me puede ayudar
Salu2</TR>

acalanto · #2 (**permalink**) 29-11-2003, 23:00:00

RE: problemas con insert en evb¡¡¡¡

Es difícil a distancia el determinar porque rzón falla, no obstante hay algo en el código que me llama la atención.

En la orden INSERT INTO das como campo NOMBRE y como valor CODIGO.

El primero supongo que es de tipo String y el segundo debe ser un valor numérico.

En cualquier caso anota el error que te devuelve tanto si lo capturas como si no.

Espero te resulte útil

Un saludo
-Acalanto-</TR>

seven20 · #3 (**permalink**) 29-11-2003, 23:00:00

RE: problemas con insert en evb¡¡¡¡

El de añadir al final lo hizo con rs.addnew pero ahora tengo este otro con borrar. Me dá este error: "a literal value in the command could not be converted to the correct type due to a reason other than data overflow.

Private Sub cmd_borrar_Click()
Dim x As String
Set rs = CreateObject("ADOCE.Recordset.3.0"

x = prueba.Text
rs.Open ("Delete clientes where codigo= x "

rs.Open "clientes"
MsgBox rs.RecordCount
rs.Close
Set rs = Nothing
End Sub

Si pongo la variable no lo coje, sin embargo si pongo un número directamente sí, ¿Que le falta?.
Salu2</TR>

acalanto · #4 (**permalink**) 29-11-2003, 23:00:00

RE: problemas con insert en evb¡¡¡¡

Creo que generas incorrectaente la secuencia, prueba lo siguiente

miSQL = "DELETE * FROM clientes WHERE codigo = " & cstr(x)
rs.Open (misql)

Un saludo
-Acalanto-</TR>

seven20 · #5 (**permalink**) 29-11-2003, 23:00:00

RE: problemas con insert en evb¡¡¡¡

Efectivamente, muchas gracias. Te hago otra preguntilla,estoy utilizando una lista para visualizar nombres, pero no sé como hacer para que la lista me devuelve el nombre seleccionado para luego hacer la sentencia sql y poder borrarlo de la base de datos.He probado con lista.text pero no me devuelve nada.
Y tambien ¿como puedo mostrar varios campos en una misma línea de una lista?
Salu2</TR>

acalanto · #6 (**permalink**) 29-11-2003, 23:00:00

RE: problemas con insert en evb¡¡¡¡

Supongo que te refieres a un ListBox desplegable y este control no admite mas de una columna salvo que separes los campos con <tab>. No obstante, y al estar hablando de un Pocket que tiene pocos recursos y una pantalla bastante limitada, me parece que no es buena idea poner demasiada información.

El indice del item seleccinado por el usuario lo tienes en la propiedad LixtIndex.

Un saludo
-Acalanto-</TR>

seven20 · #7 (**permalink**) 29-11-2003, 23:00:00

RE: problemas con insert en evb¡¡¡¡

Yo lo que quería hacer es tener una listbox y ver una lista de clientes, solo una columna para los nombres,y al pinchar en un nombre tengo pensado llevarlo a otra pantalla y ver todos su datos bien detallados. Quería saber si hay alguna manera de que cuando pinche en el nombre me devuelve el campo código de la BD de dicho cliente, y también como puedo hacer para que al pinchar en un nombre me devuelva ese nombre en una caja de texto.
Gracias y salu2.</TR>

acalanto · #8 (**permalink**) 17-09-2004, 00:00:00

RE: problemas con insert en evb¡¡¡¡

El ListBox tiene una propiedad ItemData que te almacena un dato vinculado al que muestra en la lista. Es oculto pero lo puedes usar para almacenat/recuperar el código del cliente.

Espero que te resulte útil.

Un saludo
-Acalanto-</TR>