Problem with Access-mdb/DAO

[Fabian Cenedese]

Hi

I have posted this problem already long time ago but I never found the
time to test it again.

http://www.winehq.org/hypermail/wine-devel/2002/11/1530.html

But now I tried with the actual wine from cvs (2003-12-03) and it's still
there. The problem is that if I try to create a table in a Access database
the last char of the name gets lost. I now have a small program which
shows this error, maybe someone can use it for finding this bug.
It's a simple VC6 Wizard generated Win32 command line app which
uses MFC for DAO.

The first time I tried was with SUSE 8.0, now I have Knoppix 3.3 (Debian).

Thanks

bye  Fabi

---------------------------- mdbtest.cpp
// mdbtest.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include <afxdao.h>			// MFC DAO database classes

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

LPCTSTR lpszTableNodeTable				= "Nodes";
LPCTSTR lpszTableNodeName				= "NodeName";
LPCTSTR lpszTableNodeNodeType			= "NodeType";
LPCTSTR lpszTableNodeBuildCL			= "BuildCL";
LPCTSTR lpszTableNodeEditCL				= "EditCL";
LPCTSTR lpszTableNodePath				= "Path";
LPCTSTR lpszTableNodeFlags				= "Flags";
LPCTSTR lpszTableNodeParam1				= "Param1";
LPCTSTR lpszTableNodeParam2				= "Param2";
LPCTSTR lpszTableNodeParam3				= "Param3";
LPCTSTR lpszTableNodeParam4				= "Param4";

/////////////////////////////////////////////////////////////////////////////
// The one and only application object

CWinApp theApp;

using namespace std;

//-----------------------------------------------------------------------------

void CreateNodeTable(CDaoDatabase* pDB)	 // throws CDaoException and CMemoryException
{
    CDaoTableDef nodeDef(pDB);

// attempt to create a new table def
    nodeDef.Create(lpszTableNodeTable);

CDaoFieldInfo  DaoFieldInfo;

// init members
    DaoFieldInfo.m_strName = lpszTableNodeName;
    DaoFieldInfo.m_nType = dbText;
    DaoFieldInfo.m_lSize = 255;
    DaoFieldInfo.m_lAttributes = dbVariableField;
    DaoFieldInfo.m_nOrdinalPosition = 0;
    DaoFieldInfo.m_bRequired = FALSE;
    DaoFieldInfo.m_bAllowZeroLength = TRUE;
    DaoFieldInfo.m_lCollatingOrder = 0;

// create name field
    nodeDef.CreateField(DaoFieldInfo);

// create type field
    DaoFieldInfo.m_strName = lpszTableNodeNodeType;
    DaoFieldInfo.m_lSize = 30;
    nodeDef.CreateField(DaoFieldInfo);

// create path field
    DaoFieldInfo.m_strName = lpszTableNodePath;
    DaoFieldInfo.m_lSize = 255;
    nodeDef.CreateField(DaoFieldInfo);

// create flags field
    nodeDef.CreateField(lpszTableNodeFlags, dbLong, 4, dbFixedField);

// create build command line field
    DaoFieldInfo.m_strName = lpszTableNodeBuildCL;
    DaoFieldInfo.m_nType = dbMemo;
    nodeDef.CreateField(DaoFieldInfo);

// create edit command line field
    DaoFieldInfo.m_strName = lpszTableNodeEditCL;
    DaoFieldInfo.m_nType = dbMemo;
    nodeDef.CreateField(DaoFieldInfo);

DaoFieldInfo.m_nType = dbMemo;
    //DaoFieldInfo.m_lSize = 200;
    DaoFieldInfo.m_strName = lpszTableNodeParam1;
    nodeDef.CreateField(DaoFieldInfo);			// create Param cl field
    DaoFieldInfo.m_strName = lpszTableNodeParam2;
    nodeDef.CreateField(DaoFieldInfo);			// create Param cl field
    DaoFieldInfo.m_strName = lpszTableNodeParam3;
    nodeDef.CreateField(DaoFieldInfo);			// create Param cl field
    DaoFieldInfo.m_strName = lpszTableNodeParam4;
    nodeDef.CreateField(DaoFieldInfo);			// create Param cl field

nodeDef.Append();       // append table def to database

nodeDef.Close();

// end CreateNodeTable
}

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
    int nRetCode = 0;

// initialize MFC and print and error on failure
    if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
    {
    	// TODO: change error code to suit your needs
    	cerr << _T("Fatal Error: MFC initialization failed") << endl;
    	nRetCode = 1;
    }
    else
    {
    	// TODO: code your application's behavior here.
    	CString m_Path="test.mdb";

CDaoDatabase db;
    	CDaoRecordset rsNode(&db);					 // rs node

try {
    		// create database if not available
    		cout << "Creating Database\n";
    		try {
    			db.Create(m_Path);
    			db.Close();
    		}
    		catch (CDaoException* de) {
    			// already exists I guess
    			cout << "Database already existed\n";
    			de->Delete();
    		}

cout << "Opening Database\n";
    		// try to open database
    		db.Open(m_Path, TRUE, FALSE, _T(""));

// --- delete old node and dependency tables and save new ones ---
    		cout << "Deleting Tabledef\n";
    		try {
    			// delete node table
    			db.DeleteTableDef(lpszTableNodeTable);
    		} catch (CDaoException* dde) {
    			// catch error, maybe table def hasn't existed
    			dde->Delete();
    		}

cout << "Creating new Tabledef\n";
    		// create node table
    		CreateNodeTable(&db);

cout << "Opening Table\n";
    		// try to open node table
    		rsNode.Open(dbOpenDynaset, CString(_T("Select * From [")) + lpszTableNodeTable + _T("]"), 0);

// look if recordset is updateable
    		if (!rsNode.CanUpdate()) {
    			cout << "No Update\n";
    		}

cout << "Closing Table\n";
    		// close tables
    		rsNode.Close();

cout << "Closing Database\n";
    		// close database
    		db.Close();

cout << "Deleting Database\n";
    		DeleteFile(m_Path);
    	}
    	catch (CDaoException* de) {						 // catch database exception
    		char msg[256];
    		de->GetErrorMessage(msg, 256);
    		cout << "Error:" << msg;
    		de->Delete();
    		goto failure_exit;
    	}
    	catch (CMemoryException* me) {					 // catch memory exception
    		char msg[256];
    		me->GetErrorMessage(msg, 256);
    		cout << "Error:" << msg;
    		me->Delete();
    		goto failure_exit;
    	}

cout << "OK\n";
    	return TRUE;

failure_exit:
    	// do some cleanup after failure
    	if (rsNode.IsOpen())
    		rsNode.Close();
    	if (db.IsOpen())
    		db.Close();

}

cout << "ERROR!!\n";

return nRetCode;
}