ps el ADODB y ADODC se utilizan para conexiones con base de Datos.
el ADODB es un poco mas largo para poder realizar una conexion y realizar mantenimientos(insertar - actualizar - eliminar - etc) pero es mas flexible k el ADODC...
asi k te dare un pequeño mantenimiento con la conexion ADODB:
y uan base de datos en Acces
---------------------------------------
Nota: primero antes de empezar el proyecto tienes k agregar la referencia asi kk tendras k hacer esto:
vete al menu k dice "proyecto de ahi vete a referencias y luego te aparecera una ventana...asi k tendras k buscar esto (Microsoft Actuvex Data Objects 2.0 Library) .... activalo y luego dale en aceptar.. eso es todo ahora empieza la programacion...
-------------------------------------------------------------------------------------
Dim cn As ADODB.Connection ''aca se declara esto....... en generales
Dim rs As ADODB.Recordset
Private Sub Form_Load() ''aca se realiza la conexion
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Profiles\administrador\Escritorio\Nueva carpeta\db1.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Open "tabla1", cn, adOpenDynamic, adLockPessimistic
Call mostrar
End Sub
Private Sub mostrar() ''esto es para visualizar los registros en cada text
If Not rs.BOF And Not rs.EOF Then
Text1.Text = rs(0)
Text2.Text = rs(1)
End If
End Sub
Private Sub Command1_Click() ''esto permite retroceder de registro en registro
If Not rs.BOF Then
rs.MovePrevious
Call mostrar
End If
End Sub
Private Sub Command2_Click() ''esto permite retroceder de registro en registro
If Not rs.EOF Then
rs.MoveNext
Call mostrar
End If
End Sub
Private Sub Command3_Click() ''esto te permite ingresar un nuevo registro
Dim x$
x = "insert into tabla1 (idregistro,nombres_apellidos)values ('" + Trim(Text1.Text) + "','" + Trim(Text2.Text) + "')"
cn.Execute x
Set rs = Nothing
Set cn = Nothing
Call Form_Load
MsgBox "registro ingresado"
End Sub
Private Sub Command4_Click() '' esto te permite eliminar un registro
Dim x$
x = "delete from tabla1 where idregistro='" + Trim(Text1.Text) + "'"
cn.Execute x
Set rs = Nothing
Set cn = Nothing
Call Form_Load
MsgBox "registro eliminado"
End Sub
'''''Nota: bueno para los demas botones como actualizar es lo mismo .. solo aplica las intrucciones SqL k te deberan enseñar......bueno espero esto te ayude.... chao nene..besos
