Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Error 3027 base de datos

 Estas en el tema de Error 3027 base de datos en el foro de Visual Basic clásico en Foros del Web. Hola Gente, tengo un problema haber si me pueden ayudar tengo el siguiente codigo Private Sub cmdFacturar_Click() Dim criterio As String Dim criterio1 As String ...
  #1 (permalink)  
Antiguo 12/03/2010, 17:52
Avatar de gasafonso  
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
Error 3027 base de datos
Hola Gente, tengo un problema haber si me pueden ayudar

tengo el siguiente codigo

Private Sub cmdFacturar_Click()
Dim criterio As String
Dim criterio1 As String
Dim llave As String
Dim llave1 As String

f_CopiaFacturador.Text2.Visible = False
f_CopiaFacturador.txtFacTipo.Visible = True


Call Letra
criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")


dsDetalleCliente.Recordset.Edit
dsDetalleCliente.Recordset!tipoComprobante = "FC"
dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
dsDetalleCliente.Recordset!condicion = "9"
dsDetalleCliente.Recordset.Update

criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")

dsDetalleFactura.Recordset.Edit
dsDetalleFactura.Recordset!tipoComprobante = "FC"
dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
dsDetalleFactura.Recordset.Update
-----------------------------------------------------------------------------------------------------
Function Letra()
If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
If OpVta.Value = True Then
txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
Else
txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
End If
Else
If OpVta.Value = True Then
txtFacTipo.text = "B"
txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
Else
txtFacTipo.text = "B"
txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
End If
End If
End Function
--------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------
y me da error 3027 diciendo "can't update database or object is read-only"

y el error me lo da en:

dsDetalleFactura.Recordset.Edit


Si alguien sabe por que se agradece, por que a mi me supero

GRACIASSS!!!!!!!!!!
  #2 (permalink)  
Antiguo 14/03/2010, 08:56
Avatar de gasafonso  
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
Respuesta: Error 3027 base de datos
Esta bien aca la pregunta, o tengo que pasarla a otro foro ?


gracias
  #3 (permalink)  
Antiguo 14/03/2010, 21:40
 
Fecha de Ingreso: mayo-2009
Mensajes: 238
Antigüedad: 15 años
Puntos: 7
Respuesta: Error 3027 base de datos
Hola broder como vas, te recomiendo utilizar la etiqueta CODE para poder leer facilmente el codigo.

Como te comente no utilizo el control data pero el codigo parece estar bien, me parece el error esta dentro del control data revisa la conexion o por ultimo eliminalo y vuelvelo a crear seguro se movio alguna propiedad y lo dejaste solo para lectura.

saludos
  #4 (permalink)  
Antiguo 15/03/2010, 10:28
Avatar de gasafonso  
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
Respuesta: Error 3027 base de datos
Como el Code ?, no lo use nunca
  #5 (permalink)  
Antiguo 15/03/2010, 10:35
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: Error 3027 base de datos
Es para que aparezcan el código en una ventana y con su formato original.
Seleccionas el código que has pegado en el mensaje, pinchas en highlight y seleccionas p.ej. vbscript.

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
  #6 (permalink)  
Antiguo 15/03/2010, 14:53
Avatar de gasafonso  
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
Respuesta: Error 3027 base de datos
Código vb: 
Ver original
  1. Private Sub cmdFacturar_Click()
  2. Dim criterio As String
  3. Dim criterio1 As String
  4. Dim llave As String
  5. Dim llave1 As String
  6.  
  7. f_CopiaFacturador.Text2.Visible = False
  8. f_CopiaFacturador.txtFacTipo.Visible = True
  9.  
  10.  
  11. Call Letra
  12. criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
  13. dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")
  14.  
  15.  
  16. dsDetalleCliente.Recordset.Edit
  17. dsDetalleCliente.Recordset!tipoComprobante = "FC"
  18. dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
  19. dsDetalleCliente.Recordset!condicion = "9"
  20. dsDetalleCliente.Recordset.Update
  21.  
  22. criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
  23. dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")
  24.  
  25. dsDetalleFactura.Recordset.Edit
  26. dsDetalleFactura.Recordset!tipoComprobante = "FC"
  27. dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
  28. dsDetalleFactura.Recordset.Update
  29. -----------------------------------------------------------------------------------------------------
  30. Function Letra()
  31. If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
  32. If OpVta.Value = True Then
  33. txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
  34. Else
  35. txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
  36. End If
  37. Else
  38. If OpVta.Value = True Then
  39. txtFacTipo.text = "B"
  40. txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
  41. Else
  42. txtFacTipo.text = "B"
  43. txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
  44. End If
  45. End If
  46. End Function
  47. --------------------------------------------------------------------------------------------------------
  48. --------------------------------------------------------------------------------------------------------
  49. y me da error 3027 diciendo "can't update database or object is read-only"
  50.  
  51. y el error me lo da en:
  52.  
  53. dsDetalleFactura.Recordset.Edit
  #7 (permalink)  
Antiguo 15/03/2010, 17:19
Avatar de gasafonso  
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
Respuesta: Error 3027 base de datos
Cita:
Iniciado por gasafonso Ver Mensaje
Código vb: 
Ver original
  1. Private Sub cmdFacturar_Click()
  2. Dim criterio As String
  3. Dim criterio1 As String
  4. Dim llave As String
  5. Dim llave1 As String
  6.  
  7. f_CopiaFacturador.Text2.Visible = False
  8. f_CopiaFacturador.txtFacTipo.Visible = True
  9.  
  10.  
  11. Call Letra
  12. criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
  13. dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")
  14.  
  15.  
  16. dsDetalleCliente.Recordset.Edit
  17. dsDetalleCliente.Recordset!tipoComprobante = "FC"
  18. dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
  19. dsDetalleCliente.Recordset!condicion = "9"
  20. dsDetalleCliente.Recordset.Update
  21.  
  22. criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
  23. dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")
  24.  
  25. dsDetalleFactura.Recordset.Edit
  26. dsDetalleFactura.Recordset!tipoComprobante = "FC"
  27. dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
  28. dsDetalleFactura.Recordset.Update
  29. -----------------------------------------------------------------------------------------------------
  30. Function Letra()
  31. If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
  32. If OpVta.Value = True Then
  33. txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
  34. Else
  35. txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
  36. End If
  37. Else
  38. If OpVta.Value = True Then
  39. txtFacTipo.text = "B"
  40. txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
  41. Else
  42. txtFacTipo.text = "B"
  43. txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
  44. End If
  45. End If
  46. End Function
  47. --------------------------------------------------------------------------------------------------------
  48. --------------------------------------------------------------------------------------------------------
  49. y me da error 3027 diciendo "can't update database or object is read-only"
  50.  
  51. y el error me lo da en:
  52.  
  53. dsDetalleFactura.Recordset.Edit
ahora siiiiiii, que lindooooooooo queda gracias muchachosssssssssssss
  #8 (permalink)  
Antiguo 15/03/2010, 19:36
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: Error 3027 base de datos
La pena es que sigue sin estar formateado, pero al menos los colores seguro que algo ayudan para estudiar el código, que es la cuestión.

Espero que te solucionen el tema.

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
  #9 (permalink)  
Antiguo 16/03/2010, 12:12
Avatar de gasafonso  
Fecha de Ingreso: septiembre-2008
Mensajes: 357
Antigüedad: 15 años, 7 meses
Puntos: 1
Respuesta: Error 3027 base de datos
Pero si lo hice como vos me dijiste,

Veo que nadie sabe de esto !!!!!!!!!!!!!!1111


Yo no tengo suerte en eeste foro nunca me solucionan nada

Etiquetas: Ninguno
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 11:25.