Bases de datos

COCO
29 de Octubre del 2003
Como añado datos a un base de datos desde visual?

tomini
29 de Octubre del 2003
tienes q poner algo asi:
Option Explicit
Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Private Sub form_load()
Set rst = New ADODB.Recordset
Set con = New ADODB.Connection
con.Open "provider=Microsoft.jet.oledb.4.0;datasource=c:Documents and Settingsbd1.mdb"
rst.Open "select*from la tabla donde quieras introducir los datos", con, adOpenKeyset, adLockOptimistic
SubirCampos
End Sub
Sub SubirCampos()’mete los datos de la BD a el formulario de visual
Dim i As Integer
For i = 0 To rst.Fields.Count - 1
If Not IsNull(rst.Fields(i)) Then
Text1(i).Text = rst.Fields(i)
Else
Text1(i).Text = ""
End If
Next
End Sub
Sub BajarCampos()’mete los datos introducidos en visual a la BD
Dim i As Integer
For i = 0 To rst.Fields.Count - 1
rst.Fields(i) = Text1(i).Text
Next
End Sub