 Autor
|
Tema: agregar un registro a una base de datos (Leído 3,331 veces)
|
Sebicho
 Desconectado
Mensajes: 5
|
Antes que todo buenas... toy teniendo un problema.. en la programacion del boton que que agrega un registro a la base de datos pongo esto: Dim rst As New ADODB.Recordset
rst.Open "Agenda", cnuno, adOpenDynamic, adLockOptimistic, adCmdTable
rst.AddNew
rst("ID") = txtID
rst("Nombre") = txtNombre
rst("Apellido") = txtApellido
rst.Update
rst.Close
me lo agrega todo lo mas bien pero tengo que cerrar el programa y volver a abrirlo para que me lo muestre :S que tengo que hacer para que me lo muestre sin cerrar el programa? Saludos EDITADO POR EL MODERADOR: Usa las etiquetas Code la próxima vez.
|
|
|
|
« Última modificación: 13 Junio 2005, 04:03 am por Dunklerstern »
|
En línea
|
|
|
|
|
|
Sebicho
Desconectado
Mensajes: 5
|
ya lo use fijate ahi en la programacion que aparece...
rst.update
rst es el nombre del recordset
|
|
|
|
|
En línea
|
|
|
|
|
|
Sebicho
Desconectado
Mensajes: 5
|
probe con pessimistic y tampoco ya noc que hacer me toy volviendo loco
|
|
|
|
|
En línea
|
|
|
|
lobo80
Desconectado
Mensajes: 2
|
lo que puedes hacer es trabajar con "ADODC1.refresh", TRABAJA CON ADODC Y ESO TALVEZ TE AYUDE  |
|
|
|
|
En línea
|
|
|
|
goodbye
Desconectado
Mensajes: 93
|
Tambien ayuda el desplazarse a otro registro del recordset despues del metodo Update. Dim rst As New ADODB.Recordset
rst.Open "Agenda", cnuno, adOpenDynamic, adLockOptimistic, adCmdTable
rst.AddNew
rst("ID") = txtID
rst("Nombre") = txtNombre
rst("Apellido") = txtApellido
rst.Update
rst.MoveFirst '<------<< Usar este preferiblemente.
|
|
|
|
« Última modificación: 26 Junio 2005, 08:10 am por CrackelDestripador »
|
En línea
|
Al lado de la dificultad está la facilidad.
Cambiad de placeres, pero no cambies de amigos.
Aceptar un favor de un amigo, es hacerle otro.
|
|
|
Zanoni
Desconectado
Mensajes: 7
|
No te recomiendo que uses comandos ADODB ya que a estos comandos tienen q especificar una direccion especifica y no son muy eficientes a la hora de instalar en cualquier pc.
yo por ejemplo uso como base de datos acces97 y para acceder a ella uso el .path que permite abrir en cualquier lado y para agregar los registro lo mas sencillo es usando SQL o los componentes de la libreria DAO3.51
un ejemplo de añadir es:
Public XXXXAs Database
Public Emple As Recordset
Set XXXX= OpenDatabase(App.Path & "\XXXX.Mdb")
Set emple= XXXXX.OpenRecordset("SELECT * FROM Anti_Presta")
Sub añadeemple()
Dim BAci As String
Dim a, baci2 As Boolean
Aci = Val(fmrae.txtci)
a = True
Set Emple = SYSCAN.OpenRecordset("SELECT * FROM empleados where Cedula = " & Aci & "")
On Error GoTo error_agregarEM
Emple.Close
Set Emple = SYSCAN.OpenRecordset("SELECT * FROM empleados")
Emple.AddNew
With Emple
.Fields("cedula") = Aci
.Fields("nombre") = fmrae.txtnombre
.Fields("nacionalidad") = baci2
.
.
.
.
.
End With
Emple.Update
MsgBox "Datos Agregados a Data", vbInformation, "ATENCION"
Exit Sub
error_agregarEM:
MsgBox "Datos Erroneos Verifique y asegurese de llenar todos los campos", vbInformation, "Error de Data"
End If
existe:
End Sub
espero q te sirva...........
Si hice un comentaro errado hacerlo saber
Zx
|
|
|
|
|
En línea
|
Zx
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
actualizar registro base de datos .NET
.NET (C#, VB.NET, ASP)
|
andaluz
|
3
|
3,426
|
30 Mayo 2012, 16:54 pm
por andaluz
|
|
|
|
Por php se puede deshabilitar un registro de una base de datos??
PHP
|
gh1E
|
7
|
9,535
|
17 Abril 2013, 22:50 pm
por gh1E
|
|
|
|
Ayuda con Bat para agregar un registro
Hacking
|
krizalidk
|
0
|
2,491
|
15 Agosto 2013, 16:53 pm
por krizalidk
|
|
|
|
Agregar entradas a base de datos
PHP
|
edr89
|
6
|
2,500
|
9 Abril 2015, 20:55 pm
por edr89
|
|
|
|
"No se puede agregar o cambiar el registro porque se necesita un registro relaci
.NET (C#, VB.NET, ASP)
|
Guillito
|
1
|
3,287
|
16 Abril 2015, 21:03 pm
por fran800m
|
 |
