Isam files in Visual Basic 6


DevX Home    Today's Headlines   Articles Archive   Tip Bank   Forums   

Results 1 to 3 of 3

Thread: Isam files in Visual Basic 6

  1. #1
    larry Pope Guest

    Isam files in Visual Basic 6


    Using ADO can you please advise me how I may create an Isam data file from
    within a programme. I have in the past used Visual Basic for MS Dos. and
    used Isam files within it. I note that these files although *.mdb are not
    readable by Access. why is this?. Hope you can help
    Larry Pope

  2. #2
    Joe \Nuke Me Xemu\ Foster Guest

    Re: Isam files in Visual Basic 6

    "larry Pope" <larry.pope@clear.net.nz> wrote in message <news:3cd74fd0$1@10.1.10.29>...

    > Using ADO can you please advise me how I may create an Isam data file from
    > within a programme. I have in the past used Visual Basic for MS Dos. and
    > used Isam files within it. I note that these files although *.mdb are not
    > readable by Access. why is this?. Hope you can help


    You must use either DAO or ADOX, "Microsoft ADO Ext. 2.# for DDL and Security".

    --
    Joe Foster <mailto:jlfoster%40znet.com> Got Thetans? <http://www.xenu.net/>
    WARNING: I cannot be held responsible for the above They're coming to
    because my cats have apparently learned to type. take me away, ha ha!



  3. #3
    Paul Clement Guest

    Re: Isam files in Visual Basic 6

    On 6 May 2002 20:53:52 -0800, "larry Pope" <larry.pope@clear.net.nz> wrote:


    Using ADO can you please advise me how I may create an Isam data file from
    within a programme. I have in the past used Visual Basic for MS Dos. and
    used Isam files within it. I note that these files although *.mdb are not
    readable by Access. why is this?. Hope you can help
    Larry Pope

    Here are a couple of ADOX examples. In most instances you simply need to change the connection
    string:

    Sub CreatedBaseWithADOX()

    Dim tbl As New ADOX.Table
    Dim cat As New ADOX.Catalog

    cat.ActiveConnection = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=d:\My Documents\dbase;" & _
    "Extended Properties=dBase IV;"


    tbl.NAME = "dBaseIV"
    tbl.Columns.Append "Column1", adInteger
    tbl.Columns.Append "Column2", adInteger
    tbl.Columns.Append "Column3", adVarWChar, 50
    cat.Tables.Append tbl

    End Sub

    Sub CreateParadoxWithADOX()

    Dim tbl As New ADOX.Table
    Dim cat As New ADOX.Catalog

    cat.ActiveConnection = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=D:\My Documents\Paradox;" & _
    "Extended Properties=Paradox 5.x;"


    tbl.NAME = "Paradox5"
    tbl.Columns.Append "Column1", adInteger
    tbl.Columns.Append "Column2", adInteger
    tbl.Columns.Append "Column3", adVarWChar, 50
    cat.Tables.Append tbl

    End Sub


    Paul ~~~ pclement@ameritech.net
    Microsoft MVP (Visual Basic)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center
 
 
FAQ
Latest Articles
Java
.NET
XML
Database
Enterprise
Questions? Contact us.
C++
Web Development
Wireless
Latest Tips
Open Source


   Development Centers

   -- Android Development Center
   -- Cloud Development Project Center
   -- HTML5 Development Center
   -- Windows Mobile Development Center