Microsoft KB Archive/252438
Article ID: 252438
Article Last Modified on 7/1/2004
- Microsoft Visual Basic 5.0 Professional Edition
- Microsoft Visual Basic 6.0 Professional Edition
- Microsoft Visual Basic 5.0 Enterprise Edition
- Microsoft Visual Basic 6.0 Enterprise Edition
This article was previously published under Q252438
Microsoft Visual Basic ships with an add-in utility known as the Visual Data Manager (VISDATA) for which source code is also provided in the form of a sample project named Visdata.vbp. Visdata.vbp is installed with other Visual Basic samples as part of the MSDN Library installation.
This article describes how to modify the source code for the Visual Data Manager add-in in order to use the add-in with Microsoft Access 2000 format database files.
Adapting VISDATA to work with Microsoft Access 2000 format databases requires changing only one project reference, adding one menu item, and adding one line of code to process the new menu item.
- Update the DAO Reference from DAO 3.51 to DAO 3.60. (This step alone is sufficient to allow you to open and work with Access 2000 files.)
- Open Visdata.vbp in the Visual Basic design environment.
- On the Project menu, open the list of References.
- Deselect the existing reference to Microsoft Data Access Objects 3.51, and then locate and select Microsoft Data Access Objects 3.60. If you are using Visual Basic 6.0, be sure to move the DAO 3.6 reference above the ADO library reference in the list.
- Add a new menu item and code to allow creating a new Access 2000 database.
- Open the main form, frmMDI, in the design environment.
- From the Tools menu, open the Menu Editor.
- In the Menu Editor window, scroll down in the existing menu items to File / New / Microsoft Access.
- In order to insert the new menu item after the existing entry for Access Version 7.0 MDB files, select the following entry: dBase. Click the Insert button, and then click the RIGHT ARROW button to make the new, blank entry a subitem under the Microsoft Access heading. Enter Access 2000 as the Caption and mnuDBNMDB2K as the Name. Close the Menu Editor by clicking OK.
Open the frmMDI code module and select the mnuDBNMDB2K_Click event procedure in the drop-down list. Enter the following line of code:
- In Visual Basic 6.0 only, update ADO connection strings to support Access 2000. VisData uses both DAO and ADO. Use the Search function on the Visual Basic Edit menu to locate all references in the project to the Microsoft Jet OLE DB Provider version 3.51 and update 3.51 to 4.0.
- In Visual Basic 6.0 only, add code that will enable the Grid toolbar button, which displays a table of records in a DBGrid control rather than one record per form.
Open the module modVisData and find the OpenTable procedure. After the lines:
If gsDataType = gsMSACCESS Then .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & gsDBName
insert the additional line:
.CursorLocation = adUseClient
Then open frmDataGrid and find the Form_Load event procedure. After the line:
Set datDataCtl.Recordset = mrsFormRecordset
insert the additional lines:
datDataCtl.Refresh Set grdDataGrid.DataSource = datDataCtl grdDataGrid.Refresh
If you were to omit this step, you might see an empty grid; or the grid may display with the very first cell empty.
- Recompile the VISDATA project and copy the compiled executable to the Visual Basic directory (which is \Program Files\Microsoft Visual Studio\Vb98 by default in Visual Basic 6.0).
For additional information, click the article numbers below to view the articles in the Microsoft Knowledge Base:
238401 PRB: Getting Unrecognized Database Format Error Message When Upgrading to Access 2000
242010 PRB: The Data Form Wizard May Not Open an Access 2000 Database
Keywords: kbhowto kbdatabase kbmdacnosweep KB252438