SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Angel-Mayor en Jueves 22 de Mayo de 2003, 06:43

Título: Re: Como le Hago Para Dar De Alta Datos En Una BD
Publicado por: 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

Título: Re: Como le Hago Para Dar De Alta Datos En Una BD
Publicado por: angelescj 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


:suerte:

Título: Re: Como le Hago Para Dar De Alta Datos En Una BD
Publicado por: Angel-Mayor 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"

Título: Como le Hago Para Dar De Alta Datos En Una BD
Publicado por: FRIJU 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"):brickwall: