Hola!! queria saber comoes el codigopara agregar un registro a una base de datos en access, siendo que la tabla en la q se va a guardar el registro esta vacia.............. o sea yo se como se agrega un registro pero teniendo ya uno de defecto en la tabla y no se hacerlo de otra manera. si alguien me puede ayudar se lo voy a agradecer.

Te referis a esto:

Código:

Data1.Recordset.Fields("Nombre") = txtNombre.Text

Edited by: cdesseno

Hola Andrea... Nos seria mucho mas sencillo ayudarte, si es q especificaras como estas trabajando (si trabajas con DAO, RDO o ADO o de alguna otra forma)o pusieras parte del codigo q estas trabajando.


Bueno pero aqui te envio una forma de hacerlo con Microsoft DAO, q creo q es con lo q estas trabajando.

Código:

Private Sub Command1_Click()


 Dim dbsNeptuno As Database
 Dim rstEmpleados As Recordset
 Dim strNombre As String
 Dim strApellidos As String


 Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
 Set rstEmpleados = dbsNeptuno.OpenRecordset("Empleados", dbOpenDynaset)


 ' Obtiene datos del usuario.
 strNombre = Trim(InputBox("Introduzca el nombre:"))
 strApellidos = Trim(InputBox("Introduzca los apellidos:"))


 ' Sólo se ejecuta si el usuario escribe algo en los dos campos.
 If strNombre <> "" And strApellidos <> "" Then


 ' Agrega un registro nuevo al Recordset utilizando
 ' datos transferidos del procedimiento que llama.
 ' El registro nuevo pasa a ser el registro actual.
 With rstEmpleados
   .AddNew
   !Nombre = strNomrbe
   !Apellidos = strApellidos
   .Update
   .Bookmark = .LastModified
 End With


 Else
 MsgBox "¡Debe escribir una cadena para el nombre y los apellidos!"
 End If


 rstEmpleados.Close
 dbsNeptuno.Close


End Sub

Bueno espero q te sirva... Y si es q no estas trabajando con DAO, envia otro mensaje indicando como estas trabajando


Bye...


Isaac...

Iniciado por Isaac

Hola Andrea... Nos seria mucho mas sencillo ayudarte, si es q especificaras como estas trabajando (si trabajas con DAO, RDO o ADO o de alguna otra forma)o pusieras parte del codigo q estas trabajando.


Bueno pero aqui te envio una forma de hacerlo con Microsoft DAO, q creo q es con lo q estas trabajando.

Código:

Private Sub Command1_Click()


 Dim dbsNeptuno As Database
 Dim rstEmpleados As Recordset
 Dim strNombre As String
 Dim strApellidos As String


 Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
 Set rstEmpleados = dbsNeptuno.OpenRecordset("Empleados", dbOpenDynaset)


 ' Obtiene datos del usuario.
 strNombre = Trim(InputBox("Introduzca el nombre:"))
 strApellidos = Trim(InputBox("Introduzca los apellidos:"))


 ' Sólo se ejecuta si el usuario escribe algo en los dos campos.
 If strNombre <> "" And strApellidos <> "" Then


 ' Agrega un registro nuevo al Recordset utilizando
 ' datos transferidos del procedimiento que llama.
 ' El registro nuevo pasa a ser el registro actual.
 With rstEmpleados
  .AddNew
  !Nombre = strNomrbe
  !Apellidos = strApellidos
  .Update
  .Bookmark = .LastModified
 End With


 Else
 MsgBox "¡Debe escribir una cadena para el nombre y los apellidos!"
 End If


 rstEmpleados.Close
 dbsNeptuno.Close


End Sub

Bueno espero q te sirva... Y si es q no estas trabajando con DAO, envia otro mensaje indicando como estas trabajando


Bye...


Isaac...

Hola Isaac! la verdad es q estoy trabajando con ADO, lo conecto una base de datos en Access. Gracias

Hola.. Aqui te envio otro ejemplo q esta hecho con ADO... espero q te sirva

Código:

Private Sub Command1_Click()


 Dim cnn1 As New ADODB.Connection
 Dim rstEmployees As New ADODB.Recordset
 Dim strID As String
 Dim strFirstName As String
 Dim strLastName As String

 ' Abre una conexión ODBC llamada NWIND
 cnn1.Open "NWIND"
 
 ' Abre la tabla Employees.
 rstEmployees.Open "select * from employee", cnn1, adOpenKeyset, adLockOptimistic


 strID = Trim(InputBox("Ingrese ID Empleado:"))
 strFirstName = Trim(InputBox("Nombres:"))
 strLastName = Trim(InputBox("Apellidos:"))


 ' Continúa sólo si el usuario ha escrito actualmente un valor
 ' tanto para el nombre como para el apellido.
 If (strID <> "") And (strFirstName <> "") And (strLastName <> "") Then
 'Aqui agregamos los nuevos datos
 rstEmployees.AddNew
 rstEmployees!emp_id = strID
 rstEmployees!fname = strFirstName
 rstEmployees!lname = strLastName
 'Guardamos los cambios hecho en la tabla
 rstEmployees.Update
 Else
 MsgBox "Por favor ingrese los datos del Empleado"
 End If


 rstEmployees.Close
 cnn1.Close


End Sub

Bye...


Isaac..Edited by: Isaac

Iniciado por Guests

Hola Isaac! la verdad es q estoy trabajando con ADO, lo conecto una base de datos en Access. Gracias

Buenas Tardes, mas que una respuesta seria una pregunta..tengo todo hecho de la manera que lo describen pero me marca como error, mi pregunta seria si tengo que habilitar alguna referencia...a parte del Microsoft ActiveX Data Objet 2.8 Library..
Paso el código:
Dim Rec_Alu As ADODB.Recordset 'se diemsiona la variable de tipo Recordset
Dim conexion As New ADODB.Connection ' 'se diemsiona la variable de tipo conexion
Dim Cons_Alu, DNI As String 'se diemsiona la variable de tipo String

'
Rec_Alu = New ADODB.Recordset
Rec_Alu.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Try
conexion.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;Initial Catalog=SoftEdMus;Data Source=DESKTOP;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DESKTOP;Use Encryption for Data=False;Tag with column collation when possible=False")
'
DNI = TextBNDoc.Text
'
Cons_Alu = "Select DNIAlu From Alumnos where DNIAlu like '& DNI &' " 'consulta sql especifica sobre un campo a partir de una variable
Rec_Alu.Open(Cons_Alu, conexion, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
'
If Rec_Alu.EOF = True And Rec_Alu.BOF = False Then
'With Rec_Alu
Rec_Alu.AddNew()
Rec_Alu!Apellido = TextBApellido.Text
Rec_Alu!Nombre = TextBNombre.Text
Rec_Alu!TipoDoc = CmBoxTipoDoc.Text
Rec_Alu!DNIAlu = TextBNDoc.Text
Rec_Alu.Update()
Rec_Alu.Close()
'End With
End If

Catch ex As Exception
ex.Message.d()
End Try