Tema: Error -2147217842 (80040e4e)
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/10/2011, 09:15
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: Error -2147217842 (80040e4e)
Hola!
Para guardar datos, lo mejor es usar SQL:

Código vb: 
Ver original
  1. Private Sub cmdAgregar_Click()
  2. Dim strInsert As String
  3. Dim Ins As Integer
  4.  
  5. strInsert = "INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES (" & VALOR_NUMERO & ",'" & VALOR_ALFA & "')"
  6.  
  7. cn.Execute strInsert, Ins
  8.  
  9. If Ins = 1 Then MsgBox "Registro guardado!!", vbInformation
  10.  
  11. If (cmdAgregar.Caption = "Guardar") Then
  12.     Adodc1.Refresh
  13.     Adodc1.Recordset.MoveLast
  14.     cmdAgregar.Caption = "Agregar"
  15.     Maskhoraini.Visible = False
  16.     Maskhorafin.Visible = False
  17.     combohab.Visible = False
  18.     cmdModificar.Enabled = True
  19.     cmdEliminar.Enabled = True
  20. Else
  21.     cmdAgregar.Caption = "Guardar"
  22.     Maskhoraini.Enabled = True
  23.     Maskhorafin.Enabled = True
  24.     combohab.Enabled = True
  25.     Maskhoraini.Visible = True
  26.     Maskhorafin.Visible = True
  27.     combohab.Visible = True
  28.     Maskhoraini.SetFocus
  29.     cmdModificar.Enabled = False
  30.     cmdEliminar.Enabled = False
  31.     
  32. End If
  33. Exit Sub
  34. cn.Close
  35.        
  36.     'Limpio máscaras
  37.     Maskhoraini.Mask = ""
  38.     Maskhoraini.Text = ""
  39.     Maskhorafin.Mask = ""
  40.     Maskhorafin.Text = ""
  41.     Maskhoraini.Mask = "##:##"
  42.     Maskhorafin.Mask = "##:##"
  43.         
  44. End Sub