error de sintaxis en la instruccion INSERT INTO
Publicado por pedro daniel (4 intervenciones) el 19/06/2012 20:08:37
hola ... espro puedan darme una mano
estoy tratando de retomar visual basic porque lo estoy necesitando hace mucho que no lo hago (para que entiendan si el error es obvio)
esto es lo que me tira " error '3134' en tiempo de ejecucion: error de sintaxis en la instruccion INSERT INTO"
aqui les dejo el codigo
Set CONS = gym.CreateQueryDef("", "parameters p1 string, p2 string, p3 string, p4 string, p5 string, p6 string, p7 string, p8 string, p9 string, p10 string; insert into proveedor (cod_pro, nom_empresa, contacto, rubro, nro_cuit, tel_fijo, celular, e-mail, calle, numero) values(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10)")
Set cod = CONS.Parameters("p1")
Set nom = CONS.Parameters("p2")
Set con = CONS.Parameters("p3")
Set rub = CONS.Parameters("p4")
Set cui = CONS.Parameters("p5")
Set tel = CONS.Parameters("p6")
Set cel = CONS.Parameters("p7")
Set ema = CONS.Parameters("p8")
Set cal = CONS.Parameters("p9")
Set num = CONS.Parameters("p10")
cod.Value = cod_pro.Text
nom.Value = nombre_emp.Text
con.Value = contacto.Text
rub.Value = rubro.Text
cui.Value = cuit.Text
tel.Value = tel_fijo.Text
cel.Value = tel_cel.Text
ema.Value = email.Text
cal.Value = calle.Text
num.Value = numero.Text
CONS.Execute
CONS.Close
estoy tratando de retomar visual basic porque lo estoy necesitando hace mucho que no lo hago (para que entiendan si el error es obvio)
esto es lo que me tira " error '3134' en tiempo de ejecucion: error de sintaxis en la instruccion INSERT INTO"
aqui les dejo el codigo
Set CONS = gym.CreateQueryDef("", "parameters p1 string, p2 string, p3 string, p4 string, p5 string, p6 string, p7 string, p8 string, p9 string, p10 string; insert into proveedor (cod_pro, nom_empresa, contacto, rubro, nro_cuit, tel_fijo, celular, e-mail, calle, numero) values(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10)")
Set cod = CONS.Parameters("p1")
Set nom = CONS.Parameters("p2")
Set con = CONS.Parameters("p3")
Set rub = CONS.Parameters("p4")
Set cui = CONS.Parameters("p5")
Set tel = CONS.Parameters("p6")
Set cel = CONS.Parameters("p7")
Set ema = CONS.Parameters("p8")
Set cal = CONS.Parameters("p9")
Set num = CONS.Parameters("p10")
cod.Value = cod_pro.Text
nom.Value = nombre_emp.Text
con.Value = contacto.Text
rub.Value = rubro.Text
cui.Value = cuit.Text
tel.Value = tel_fijo.Text
cel.Value = tel_cel.Text
ema.Value = email.Text
cal.Value = calle.Text
num.Value = numero.Text
CONS.Execute
CONS.Close
Valora esta pregunta


0