PRB: Error 3622 Open SQL Server Table with Identity Column

MORE INFORMATION

You need to recompile VisData.vbp, create a new VisData.exe, and then copy it to the VisualBasic default folder.

You can modify the VisData sample to avoid the error. There are two places that you need to make the changes: where you open a recordset from the Database Window, and where you execute a SQL statement.

1. In VISDATA.BAS, under the OpenTable() function, change:

      Set rsTmp=gdbCurrentDB.OpenRecordset(rName, dbOpenDynaset)
   
   						

   -to-

      Set rsTmp=gdbCurrentDB.OpenRecordset(rName,dbOpenDynaset, dbSeeChanges)
   
   					

2. In VISDATA.BAS, under the OpenQuery() function, change:

      Set rsTmp = qdfTmp.OpenRecordset(dbOpenDynaset)
   
   						

   -to-

      Set rsTmp = qdfTmp.OpenRecordset(dbOpenDynaset, dbSeeChanges)
   
   					

3. After Making Changes to VISDATA.BAS, 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)NOTE: There may be other areas of VisData code that would require changes based on which part of the VisData Tool you are using.

For testing purposes, table IColTest is created in Pubs database with one Identity column and one VarChar column. To create a table and index in SQL Server, select Pubs database, then place the following Create Table T-SQL in the SQL window of ISQL/W and execute it:

   Create Table IColTest
           (Id_Col int Identity, Name VarChar(30) Null)
   Create Unique Index IIndex on IColTest(Id_Col)
				

WARNING: ANY USE BY YOU OF THE CODE MODIFICATIONS PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code modification "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. Microsoft does not support modifications to sample applications or tools.