https://www.betaarchive.com/wiki/index.php?title=Microsoft_KB_Archive/252438&feed=atom&action=history
Microsoft KB Archive/252438 - Revision history
2024-03-28T16:52:22Z
Revision history for this page on the wiki
MediaWiki 1.39.3
https://www.betaarchive.com/wiki/index.php?title=Microsoft_KB_Archive/252438&diff=377005&oldid=prev
X010: Text replacement - """ to """
2020-07-21T12:51:54Z
<p>Text replacement - """ to """</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en-GB">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 12:51, 21 July 2020</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l80">Line 80:</td>
<td colspan="2" class="diff-lineno">Line 80:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><li><p>Open the module modVisData and find the OpenTable procedure. After the lines:</p></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><li><p>Open the module modVisData and find the OpenTable procedure. After the lines:</p></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><pre class="codesample"> If gsDataType = gsMSACCESS Then</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><pre class="codesample"> If gsDataType = gsMSACCESS Then</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> .ConnectionString = <del style="font-weight: bold; text-decoration: none;">&quot;</del>PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=<del style="font-weight: bold; text-decoration: none;">&quot; </del>& gsDBName</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> .ConnectionString = <ins style="font-weight: bold; text-decoration: none;">"</ins>PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=<ins style="font-weight: bold; text-decoration: none;">" </ins>& gsDBName</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p>insert the additional line:</p></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p>insert the additional line:</p></div></td></tr>
</table>
X010
https://www.betaarchive.com/wiki/index.php?title=Microsoft_KB_Archive/252438&diff=357776&oldid=prev
X010: Text replacement - "&" to "&"
2020-07-21T11:35:29Z
<p>Text replacement - "&" to "&"</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en-GB">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 11:35, 21 July 2020</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l80">Line 80:</td>
<td colspan="2" class="diff-lineno">Line 80:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><li><p>Open the module modVisData and find the OpenTable procedure. After the lines:</p></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><li><p>Open the module modVisData and find the OpenTable procedure. After the lines:</p></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><pre class="codesample"> If gsDataType = gsMSACCESS Then</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><pre class="codesample"> If gsDataType = gsMSACCESS Then</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> .ConnectionString = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &<del style="font-weight: bold; text-decoration: none;">amp; </del>gsDBName</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> .ConnectionString = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; & gsDBName</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> </pre></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p>insert the additional line:</p></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p>insert the additional line:</p></div></td></tr>
</table>
X010
https://www.betaarchive.com/wiki/index.php?title=Microsoft_KB_Archive/252438&diff=138519&oldid=prev
3155ffGd: importing KB archive
2020-07-18T16:15:50Z
<p>importing KB archive</p>
<p><b>New page</b></p><div><div id="nsbanner"><br />
<br />
<div id="bannerrow1"><br />
<br />
{|<br />
| Knowledge Base<br />
|<br />
|}<br />
<br />
<br />
</div><br />
<div id="TitleRow"><br />
<br />
= <span id="KB252438"></span>How To Modify the Visual Data Manager (VISDATA) to Work with Access 2000 Databases =<br />
<br />
<br />
</div><br />
<br />
</div><br />
<div id="nstext" valign="BOTTOM"><br />
<br />
Article ID: 252438<br />
<br />
Article Last Modified on 7/1/2004<br />
<br />
<br />
-----<br />
<br />
APPLIES TO<br /><br />
<br /><br />
<br />
* Microsoft Visual Basic 5.0 Professional Edition<br />
* Microsoft Visual Basic 6.0 Professional Edition<br />
* Microsoft Visual Basic 5.0 Enterprise Edition<br />
* Microsoft Visual Basic 6.0 Enterprise Edition<br />
<br />
<br />
-----<br />
<br />
<div class="notice_section"><br />
<br />
This article was previously published under Q252438<br />
<br />
</div><br />
<div class="summary_section"><br />
<br />
== SUMMARY ==<br />
<br />
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.<br /><br />
<br /><br />
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.<br /><br />
<br />
<br />
</div><br />
<div class="moreinformation_section"><br />
<br />
== MORE INFORMATION ==<br />
<br />
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.<br /><br />
<br />
<ol><br />
<li>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.)<br />
<ol style="list-style-type: lower-alpha;"><br />
<li>Open Visdata.vbp in the Visual Basic design environment.</li><br />
<li>On the '''Project''' menu, open the list of '''References'''.</li><br />
<li>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.</li></ol><br />
</li><br />
<li>Add a new menu item and code to allow creating a new Access 2000 database.<br />
<ol style="list-style-type: lower-alpha;"><br />
<li>Open the main form, frmMDI, in the design environment.</li><br />
<li>From the '''Tools''' menu, open the '''Menu Editor'''.</li><br />
<li>In the '''Menu Editor''' window, scroll down in the existing menu items to File / New / Microsoft Access.</li><br />
<li>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 <span class="kbd userinput"> Access 2000</span> as the Caption and <span class="kbd userinput"> mnuDBNMDB2K</span> as the Name. Close the '''Menu Editor''' by clicking '''OK'''.</li><br />
<li><p>Open the frmMDI code module and select the '''mnuDBNMDB2K_Click''' event procedure in the drop-down list. Enter the following line of code:</p><br />
<pre class="codesample">NewMDB dbVersion40</pre></li></ol><br />
</li><br />
<li>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.</li><br />
<li>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.<br />
<ol style="list-style-type: lower-alpha;"><br />
<li><p>Open the module modVisData and find the OpenTable procedure. After the lines:</p><br />
<pre class="codesample"> If gsDataType = gsMSACCESS Then<br />
.ConnectionString = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; gsDBName<br />
</pre><br />
<p>insert the additional line:</p><br />
<pre class="codesample"> .CursorLocation = adUseClient<br />
</pre></li><br />
<li><p>Then open frmDataGrid and find the Form_Load event procedure. After the line:</p><br />
<pre class="codesample"> Set datDataCtl.Recordset = mrsFormRecordset<br />
</pre><br />
<p>insert the additional lines:</p><br />
<pre class="codesample"> datDataCtl.Refresh<br />
Set grdDataGrid.DataSource = datDataCtl<br />
grdDataGrid.Refresh<br />
</pre><br />
<p>If you were to omit this step, you might see an empty grid; or the grid may display with the very first cell empty.</p></li></ol><br />
</li><br />
<li>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).</li></ol><br />
<br />
<br />
</div><br />
<div class="references_section"><br />
<br />
== REFERENCES ==<br />
<br />
For additional information, click the article numbers below to view the articles in the Microsoft Knowledge Base:<br />
<div class="indent"><br />
<br />
[[../238401|238401]] PRB: Getting Unrecognized Database Format Error Message When Upgrading to Access 2000<br />
<br />
<br />
</div><br />
<div class="indent"><br />
<br />
[[../242010|242010]] PRB: The Data Form Wizard May Not Open an Access 2000 Database<br />
<br />
<br />
</div><br />
<br />
</div><br />
Keywords: kbhowto kbdatabase kbmdacnosweep KB252438<br />
<br />
<div class="footer"><br />
<br />
<br /><br />
<br />
<br />
-----<br />
<br />
[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]<br />
<br />
<span>© Microsoft Corporation. All rights reserved.</span><br />
<br />
<br />
</div><br />
<br />
</div></div>
3155ffGd