Visual Basic - error 3001

Life is soft - evento anual de software empresarial
   
Vista:

error 3001

Publicado por dasa (6 intervenciones) el 19/03/2008 00:24:19
hola que tal tengo un problema ya que al ejecutar mi prog me sale el error 3001 y me lo muestra en la linea sig:
Private Sub Command2_Click()
Set rs2 = New Recordset
rs2.Open "INSERT INTO ventas (clave, fecha_vta, num_emp, total_vta )values(" + tventa.Text + ", " + tfecha.Text + ", " + temp.Text + ",'" + Null + "'", _
cn, adOpenStatic, adLockOptimistic


rs2.Close
End Sub

tengo otros recordset pero no me marcan error solo este y todos los recordset que abro los cierro. si al rs2 le cambio la consulta por select * from ventas si funciona pero con la de insertar no.

alguien sabe por que gracias. ahhh y no estoy utilizando ado.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:error 3001

Publicado por kdlc (225 intervenciones) el 19/03/2008 01:33:57
No mijo, asi no funciona el asunto ...

mejor abre la la tabla ventas como decias anteriormente
pero cuando quieras agregar un record hazlo con addnew

rs2.addnew
rs2.fields("clave").value=tuvalor
rs2.fields("fecha_vta").value=tuvariable
rs2.update

y ya ... puedes hacer un insert pero usa la conexion en vez del recordset
cn.execute "insert into ventas(...."
suerte,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:error 3001

Publicado por dasa (6 intervenciones) el 21/03/2008 01:57:36
hola gracias por tu ayuda ya trate de implementar lo que me digiste y me genera otro tipo de error el 91 que dice que la variable del tipo object o la variable del bloque with no esta establecida y me marca el error en la linea rs2.addnew.
el codigo que puse es el sig:

Private Sub Command2_Click()
Set rs = New Recordset
rs.Open "select * from ventas ", _
cn, adOpenStatic, adLockOptimistic

rs2.AddNew
rs2.Fields("clave").Value = " + tventa.Text + "
rs2.Fields("fecha_vta").Value = " + tfecha.Text + "
rs2.Update
cn.Execute "INSERT INTO ventas (clave, fecha_vta, num_emp, total_vta )values(" + tventa.Text + ", " + tfecha.Text + ", " + temp.Text + ",'" + Null + "'", adOpenStatic, adLockOptimistic

Set rs2 = New Recordset
rs2.Open "INSERT INTO ventas (clave, fecha_vta, num_emp, total_vta )values(" + tventa.Text + ", " + tfecha.Text + ", " + temp.Text + ",'" + Null + "'", _
cn, adOpenStatic, adLockOptimistic


rs2.Close
End Sub
no si li implente mal o que si me puedes ayudar gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar