El tema da para largo....
mejor te paso un link xq estoy mirando el codigo y hay que hacer un porron de cosas... tendria que hacerte una guia entera para conectar la base de datos...
Para ver los enlaces debes ser usuario
Crear Usuario o
Hacer SesionTe recomiendo que vayas, en el menu, a proyecto/componentes y alli selecciones todos los componentes que veas que tienen un Data, aceptas y en el formulario añadas un elemento que se llama data a secas donde el connectionstring te dara la conecsion a la base de datos que quieras hacer y el recordsource la sentencia que debes hacer (normalmente sera select * from nombredelatabla), despues para conectar a esta tabla los text pones este codigo, el tema no es sencillo, aqui tienes incluido como añadir, borrar y hacer lo que quieras... Los text son arrays, vaya que todos se llaman igual y se denomina por un numero, al igual que los botones de commando; Espero te sirva de algo
Venga
Dim contador As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Command1(7).Enabled = True
For i = 0 To 6
Command1(i).Enabled = False
Next i
Adodc1.Recordset.AddNew
For i = 0 To 4
Text1(i).Locked = False
Next i
contador = contador + 1
Text1(0).SetFocus
Case 7 ; Este es para añadir
Command1(7).Enabled = False
For i = 0 To 4
Adodc1.Recordset.Fields(i).Value = Text1(i).Text
Next i
Adodc1.Recordset.Fields(5).Value = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveLast
contador = Adodc1.Recordset.RecordCount
Adodc3.Recordset.AddNew; Aki añado
Text2(0).Text = Adodc1.Recordset.RecordCount
Adodc2.RecordSource = "select * from propiedades where direccion ='" & DataCombo1.Text & "'"
Adodc2.Refresh
Text2(1).Text = Adodc2.Recordset.Fields(0)
Adodc2.RecordSource = "select * from propiedades"
Adodc3.Recordset.Fields(0).Value = Text2(0).Text
Adodc3.Recordset.Fields(1).Value = Text2(1).Text
Adodc2.RecordSource = "select * from propiedades"
Adodc2.Refresh
Adodc3.Recordset.MoveLast
For i = 0 To 4
Text1(i).Locked = True
Next i
For i = 0 To 6
Command1(i).Enabled = True
Next i
Case 3 ; Este va a l primer registro
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
End If
contador = 1
Case 4 ; Este va uno hacia atras
If Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MovePrevious
contador = contador - 1
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
contador = 1
End If
End If
Case 5 ; Este va un registro hacia adelante
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveNext
contador = contador + 1
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
contador = Adodc1.Recordset.RecordCount
End If
End If
Case 6 ; Este va al ultimo
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveLast
contador = Adodc1.Recordset.RecordCount
End If
Case 1 ; Este es para permitir la edicion de los registros
For i = 0 To 4
Text1(i).Locked = False
Next i
For i = 0 To 7
Command1(i).Enabled = False
Next i
Command1(
.Visible = True
Case 8 ; Este es para aceptar la edicion
For i = 0 To 4
Text1(i).Locked = True
Next i
For i = 0 To 7
Command1(i).Enabled = True
Next i
Command1(8 ).Visible = False
Adodc1.Recordset.Update
Case 2 ; Este es para borrar
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True And Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveLast
contador = Adodc1.Recordset.RecordCount
ElseIf Adodc1.Recordset.BOF = True And Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
contador = 1
End If
MsgBox "Registro eliminado", vbOKOnly
End Select
Label2.Caption = " Registro " & contador & "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Form_Load()
For i = 0 To 4
Text1(i).Locked = True
Next i
If Adodc1.Recordset.RecordCount <> 0 Then
contador = 1
Else
contador = 0
End If
Label2.Caption = " Registro " & contador & "/" & Adodc1.Recordset.RecordCount
End Sub
Autor