0

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
        ADOXcatalog.Tables.Append(ADOXtable)

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

2
Contributors
2
Replies
3
Views
6 Years
Discussion Span
Last Post by afaque01
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.