Autor Tema: Re: Como le Hago Para Dar De Alta Datos En Una BD (Leído 1270 veces)

Angel-Mayor · « **en:** Jueves 22 de Mayo de 2003, 06:43 »

Alguien podria de favor decirme como poder dar de alta datos a una Bd de Access por el control ADO, mediante un formulari

angelescj · « **Respuesta #1 en:** Jueves 22 de Mayo de 2003, 08:57 »

With ADO.Recordset
.AddNew
.Fields("Campo1")=valor1
.Fields("Campo2")=valor2

.Fields("Campon")=valorn
.Update
End With

Angel-Mayor · « **Respuesta #2 en:** Jueves 29 de Mayo de 2003, 04:17 »

Disculpen por no haber sido mas especifico, si me sirve lo que me han enviado pero ocupo saber desde como hacer la coneccion a la BD con codigo, es que tengo solo una nocion pero no me resulta, necesito un codigo completo que de altas, por ejemplos de alumnos, yo me encargo de hacer la BD, en verdad disculpen mi ignorancia pero es que apenas estoy iniciandome en esto de las BD.

Agradeceria mucho su ayuda

"Camina por senderos Desconocidos Y Encontraras Cosas Nuevas"

FRIJU · « **Respuesta #3 en:** Jueves 29 de Mayo de 2003, 07:45 »

A ver si te vale esto.
Dim SQL As String

Call OpenDB
'Set dbs = OpenDatabase(App.Path & "db13.mdb")
If MODIFICACION = False Then
SQL = "INSERT INTO TlbHoras ( HOAÑO, HOSEMANA, HOPERSONA, " & _
"HOPLANTA, HOPROYECTO,HOCAD, HOCAE," & _
"HOGESTION, HOREUNION,HODESPLAZAMIENTO, HOOFERTA, " & _
"HOVARIOS, HOUSUARIOCREACION, HOFECHCREACION )" & _
"SELECT " & Me.Cboaño & ", " & Me.CboSemana & ",'" & MAIL & "', " & _
"'" & PLANTA & "', " & Me.TxtNumeroproyecto & "," & Me.TxtCad & ", " & Me.TxtCae & "," & _
"" & Me.TxtGestion & "," & Me.TxtReunion & "," & Me.TxtDesplazamiento & " ," & Me.TxtOferta & " , " & _
"" & Me.TxtVarios & ",'" & MAIL & "' , Now() ;"

DB.Execute SQL
Else
SQL = "UPDATE TlbHoras SET TlbHoras.HOAÑO = " & Me.Cboaño & ", TlbHoras.HOSEMANA =" & Me.CboSemana & ", TlbHoras.HOPERSONA = '" & MAIL & "'," & _
"TlbHoras.HOPLANTA = '" & PLANTA & "', TlbHoras.HOPROYECTO = " & Me.TxtNumeroproyecto & ", TlbHoras.HOCAD = " & Me.TxtCad & "," & _
"TlbHoras.HOCAE =" & Me.TxtCae & ", TlbHoras.HOGESTION = " & Me.TxtGestion & ", TlbHoras.HOREUNION = " & Me.TxtReunion & ", " & _
"TlbHoras.HODESPLAZAMIENTO = " & Me.TxtDesplazamiento & ", TlbHoras.HOOFERTA = " & Me.TxtOferta & " , TlbHoras.HOVARIOS = " & Me.TxtGestion & "," & _
"TlbHoras.HOUSUMODIFICACION = '" & MAIL & "', TlbHoras.HOFECHMODIFICACION = '" & Now() & "' " & _
"WHERE TlbHoras.HOAÑO =" & Me.Cboaño & " AND TlbHoras.HOSEMANA=" & Me.CboSemana & " AND TlbHoras.HOPERSONA ='" & MAIL & "';"
DB.Execute SQL
End If
GUARDADO = True
DB.Close
Set DB = Nothing

modulo para opendb:
DB.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:pruebasvariasNueva carpetadb13.mdb;Persist Security Info=False")