Algun master q me ayude por favor
Publicado por jaime (31 intervenciones) el 22/08/2005 23:40:15
este es el error q me sale
ERROR DE SITAXIS EN LA INSTRUCCION INSERT INTO.
Y ESTE ES MI CODIGO DE INGRESO
Private Sub grabar_Click()
Dim con As New ADODB.Connection
con.Open ("dsn=bodega")
txtsql = ""
txtsql = "insert into movimiento(movimiento, codigo, nombre_producto,"
txtsql = txtsql & "cantidad, unidad_medida, "
txtsql = txtsql & "stock_actual, stock_inicial, "
txtsql = txtsql & "fecha_movimiento, "
txtsql = txtsql & "solicitado, autorizado, "
txtsql = txtsql & "distribucion,"
txtsql = txtsql & "observaciones,)"
txtsql = txtsql & "values('"
txtsql = txtsql & Combo2.Text + "','"
txtsql = txtsql & Text1.Text + "','"
txtsql = txtsql & Text2.Text + "','"
txtsql = txtsql & Text3.Text + "','"
txtsql = txtsql & Text10.Text + "','"
txtsql = txtsql & Text7.Text + "','"
txtsql = txtsql & Text11.Text + "','"
txtsql = txtsql & Text4.Text + "','"
txtsql = txtsql & Text5.Text + "','"
txtsql = txtsql & Text12.Text + "','"
txtsql = txtsql & Text13.Text + "','"
txtsql = txtsql & Text14.Text + "')"
'txtsql = txtsql & Text15.Text + "','"
' txtsql = txtsql & Text8.Text + "')"
con.Execute (txtsql)
MsgBox "PRODUCTO INGRESADO "
txtsql = "update productos set stock_actual=' " & Text7.Text & "' where codigo= '" & Text1.Text & "' "
con.Execute (txtsql)
con.Close
Call limpia(movimiento)
End Sub
QUE ALGUIEN ME AYUDE POR FAVOR
GRACIAS
ERROR DE SITAXIS EN LA INSTRUCCION INSERT INTO.
Y ESTE ES MI CODIGO DE INGRESO
Private Sub grabar_Click()
Dim con As New ADODB.Connection
con.Open ("dsn=bodega")
txtsql = ""
txtsql = "insert into movimiento(movimiento, codigo, nombre_producto,"
txtsql = txtsql & "cantidad, unidad_medida, "
txtsql = txtsql & "stock_actual, stock_inicial, "
txtsql = txtsql & "fecha_movimiento, "
txtsql = txtsql & "solicitado, autorizado, "
txtsql = txtsql & "distribucion,"
txtsql = txtsql & "observaciones,)"
txtsql = txtsql & "values('"
txtsql = txtsql & Combo2.Text + "','"
txtsql = txtsql & Text1.Text + "','"
txtsql = txtsql & Text2.Text + "','"
txtsql = txtsql & Text3.Text + "','"
txtsql = txtsql & Text10.Text + "','"
txtsql = txtsql & Text7.Text + "','"
txtsql = txtsql & Text11.Text + "','"
txtsql = txtsql & Text4.Text + "','"
txtsql = txtsql & Text5.Text + "','"
txtsql = txtsql & Text12.Text + "','"
txtsql = txtsql & Text13.Text + "','"
txtsql = txtsql & Text14.Text + "')"
'txtsql = txtsql & Text15.Text + "','"
' txtsql = txtsql & Text8.Text + "')"
con.Execute (txtsql)
MsgBox "PRODUCTO INGRESADO "
txtsql = "update productos set stock_actual=' " & Text7.Text & "' where codigo= '" & Text1.Text & "' "
con.Execute (txtsql)
con.Close
Call limpia(movimiento)
End Sub
QUE ALGUIEN ME AYUDE POR FAVOR
GRACIAS
Valora esta pregunta
0