problemas para conectar mi base de datos con ADO

miguel
12 de Noviembre del 2004
hola espero que lean esto .
por favor como le hago para conectar mi formulario de visual basic con mis tablas de mi base de datos y como le hago para que los datos que yo registre o guarde o elimine me los aguarde en las tablas.
esto ba hacer con ADO.
POR FAVOR NECESITO DE SU AYUDA ANTES YA QUE MUY PRONTO LO VOY A ENTREGAR Y ES MI CALIFICACION FINAL.

krizall
12 de Noviembre del 2004
hola miguel, en esta pagina esta lo que buscas
www.elguille.info/indice.asp

estan las dos formas de hacerlo, con el control y usando solo codigo

espero te sirva

German
12 de Noviembre del 2004
Public rs As ADODB.Recordset
Public cn As ADODB.Connection

----------esto es para establecer la coneccion --------
Private Sub MDIForm_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo noconexion
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.path & "/basedatos.mdb" '; Jet OLEDB:Database Password=contrasegna" 'si la tubiese
Cm.ActiveConnection = cn
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.ActiveConnection = cn
End With
Exit Sub
noconexion:
MsgBox Err.Description & " , vbCritical, "Error"
Unload Me
End Sub

-------- esto es para guardar datos ----------
Private Sub cmdAceptar_Click()
If Trim(Me.txtNom.Text) = "" Then
Beep
Me.txtNom.SetFocus
Else
mdiInicio.rs.LockType = adLockOptimistic
mdiInicio.rs.CursorType = adOpenDynamic
mdiInicio.rs.Open "SELECT * FROM Cliente"
mdiInicio.rs.AddNew
mdiInicio.rs!Nombre = Me.txtNom.Text
mdiInicio.rs!Direccion = Me.txtDir.Text
mdiInicio.rs!Email = Me.txtEmail.Text
mdiInicio.rs!Tel = Me.txtTel.Text
mdiInicio.rs.Update
mdiInicio.rs.Close
Unload Me
If frmVCli.Cargado = True Then
frmVCli.CargarGrilla
frmVCli.CargarGrillaDeu
End If
MsgBox "Los datos del cliente se cargaron correctamente ", vbInformation, "CLIENTE"
End If
End Sub

--------- esto es para modificar datos -------
Private Sub cmdModificar_Click()
If Trim(Me.txtNom.Text) = "" Then
Beep
Me.txtNom.SetFocus
Else
mdiInicio.rs.LockType = adLockOptimistic
mdiInicio.rs.CursorType = adOpenDynamic
mdiInicio.rs.Open "SELECT * FROM Cliente WHERE Cod_Cli = " & Cod
mdiInicio.rs!Nombre = Me.txtNom.Text
mdiInicio.rs!Direccion = Me.txtDir.Text
mdiInicio.rs!Email = Me.txtEmail.Text
mdiInicio.rs!Tel = Me.txtTel.Text
mdiInicio.rs.Update
mdiInicio.rs.Close
Unload Me
If frmVCli.Cargado = True Then
frmVCli.CargarGrilla
frmVCli.CargarGrillaDeu
End If
MsgBox "Los datos del cliente se modificaron correctamente ", vbInformation, "CLIENTE"
End If
End Sub

-------- esto es para eliminar datos --------
Private Sub cmdEliminar_Click()
Dim x As Byte
Me.mfgCli.Col = 0
If Me.mfgCli.Text <> 1 Then
Me.mfgCli.Col = 1
x = MsgBox("Esta seguro de Borrar el Cliente '" & Me.mfgCli.Text & "'?. Recuerde que la eliminación de este influirá en las deudas que él contrajo con Barmoré. Para asegurarse que esto no suceda, controle que no contenga deuda. ", vbQuestion + vbYesNo, "BORRAR CLIENTE")
If x = vbYes Then
Me.mfgCli.Col = 0
mdiInicio.rs.LockType = adLockOptimistic
mdiInicio.rs.CursorType = adOpenDynamic
mdiInicio.rs.Open "SELECT * FROM Cliente WHERE Cod_Cli = " & Me.mfgCli.Text
mdiInicio.rs.Delete adAffectCurrent
mdiInicio.rs.Update
mdiInicio.rs.Close
CargarGrilla
CargarGrillaDeu
End If
End If
End Sub

----
espero que lo entiendas .. ahi en la eliminacion trabajo con un flexgrid con la lista de clientes. al tener seleccionado el correspondiente y presionar el boton eliminar.
SALUDOS "!!!

German
12 de Noviembre del 2004
Me olvide de aclarra que a la conecion la hago en un formulario MDI llamado mdiInicio como se habran dado cuenta. Y el de alta y modificacion en otro formulario MDIChild que se llama frmCCli (Cargar Cliente)... y el de eliminacion en otro formulario MDIChild que se llama frmVCli (Ver Clientes). :)