Ihave been working on database but Though iam able to create But Cannot Write in data base..

Dim ADOXcatalog As New ADOX.Catalog
        Dim ADOXtable As New ADOX.Table
        Dim ADOXindex As New ADOX.Index

        On Error GoTo errhandler
        ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\info.mdb")

        On Error Resume Next

        ADOXcatalog.ActiveConnection = _
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
      & "c:\newdata.mdb"

        'name table, append fields to table
        ADOXtable.Name = "Employees"
        ADOXtable.Columns.Append("Name", ADOX.DataTypeEnum.adVarWChar, 40)
        ADOXtable.Columns.Append("ID", ADOX.DataTypeEnum.adInteger)
        ADOXtable.Columns.Append("Department", ADOX.DataTypeEnum.adVarWChar, 20)

        'append tables to database

Plz tell mo how to create Rows .. imean Adding data Under each colum .. like Names under Name colum and ID's under ID colum....

This article has been dead for over six months. Start a new discussion instead.