how to add items in access database using vb forms

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • suvarna
    New Member
    • Aug 2007
    • 24

    how to add items in access database using vb forms

    hi

    i am quite new with access n i don know how to add new items in the database from vb form at runtime
  • Anatha Man
    New Member
    • Aug 2007
    • 4

    #2
    Originally posted by suvarna
    hi

    i am quite new with access n i don know how to add new items in the database from vb form at runtime
    Dim cnn As ADODB.Connectio n
    cnn.Open "Provider=micro soft.jet.oledb. 4.0; data source=d:\Stude nt.mdb"

    cnn.Execute "insert into tblStudent(ID,n ame,sex,Address ) values('" & txtID & "','" & txtname & "','" & txtsex & "','" & txtaddress & "')"

    Comment

    • slapshock
      New Member
      • Oct 2006
      • 57

      #3
      Dim cnn As ADODB.Connectio n
      Dim rs As ADODB.recordset
      cnn.Open "Provider=micro soft.jet.oledb. 4.0; data source=d:\Stude nt.mdb"
      rs.open"select * from table",cnn,3,3

      rs.addnew
      rs.fields(1)=tx tfield.text
      rs.movenext

      rs.close
      cnn.close

      soulfly

      Comment

      • suvarna
        New Member
        • Aug 2007
        • 24

        #4
        Originally posted by slapshock
        Dim cnn As ADODB.Connectio n
        Dim rs As ADODB.recordset
        cnn.Open "Provider=micro soft.jet.oledb. 4.0; data source=d:\Stude nt.mdb"
        rs.open"select * from table",cnn,3,3

        rs.addnew
        rs.fields(1)=tx tfield.text
        rs.movenext

        rs.close
        cnn.close

        soulfly



        thank you for the reply it worked...

        Comment

        • suvarna
          New Member
          • Aug 2007
          • 24

          #5
          Originally posted by Anatha Man
          Dim cnn As ADODB.Connectio n
          cnn.Open "Provider=micro soft.jet.oledb. 4.0; data source=d:\Stude nt.mdb"

          cnn.Execute "insert into tblStudent(ID,n ame,sex,Address ) values('" & txtID & "','" & txtname & "','" & txtsex & "','" & txtaddress & "')"



          thanks a lot for your help..

          Comment

          Working...