//***************************************************************************
BOOL CBCGPDAOGridCtrl::GetFieldList (LPCTSTR lpszTable, CStringList& lstField)
{
ASSERT (lpszTable != NULL);
lstField.RemoveAll ();
try
{
if (m_pDataBase == NULL)
{
ASSERT (FALSE);
return FALSE;
}
ASSERT_VALID (m_pDataBase);
if (!m_pDataBase->IsOpen ())
{
ASSERT (FALSE);
return FALSE;
}
CDaoRecordset* pRecordSet = new CDaoRecordset (m_pDataBase);
CString strSQL = _T("SELECT * FROM ");
strSQL += lpszTable;
pRecordSet->Open (AFX_DAO_USE_DEFAULT_TYPE, strSQL);
if (!pRecordSet->IsOpen ())
{
delete pRecordSet;
return FALSE;
}
const short nColumns = pRecordSet->GetFieldCount ();
for (short nColumn = 0; nColumn < nColumns; nColumn++)
{
CDaoFieldInfo info;
pRecordSet->GetFieldInfo (nColumn, info);
lstField.AddTail (info.m_strName);
}
pRecordSet->Close ();
delete pRecordSet;
}
catch (CDaoException* pEx)
{
OnDaoException (pEx);
pEx->Delete ();
return FALSE;
}
return TRUE;
}
void CDaoRecordView::OnInitialUpdate()
{
ASSERT_VALID(this);
CDaoRecordset* pRecordset = OnGetRecordset();
// recordset must be allocated already
ASSERT(pRecordset != NULL);
if (!pRecordset->IsOpen())
{
CWaitCursor wait;
pRecordset->Open();
}
if (!pRecordset->IsEOF())
{
// Determine recordset properties for move button enabling
if (pRecordset->CanBookmark())
{
// Get the bookmark of the first record
m_varBookmarkCurrent = pRecordset->GetBookmark();
m_varBookmarkFirst = m_varBookmarkCurrent;
}
// Enable forward scrolling buttons
m_nStatus |= AFX_DAOVIEW_SCROLL_NEXT;
// Enable backward scrolling buttons if possible
if (pRecordset->CanScroll())
{
m_nStatus |= AFX_DAOVIEW_SCROLL_LAST;
m_nStatus |= AFX_DAOVIEW_SCROLL_BACKWARD;
}
else
{
m_nStatus &= ~AFX_DAOVIEW_SCROLL_LAST;
m_nStatus &= ~AFX_DAOVIEW_SCROLL_BACKWARD;
}
}
else
{
// Disable scrolling
m_nStatus &= ~AFX_DAOVIEW_SCROLL_NEXT;
m_nStatus &= ~AFX_DAOVIEW_SCROLL_LAST;
m_nStatus &= ~AFX_DAOVIEW_SCROLL_BACKWARD;
}
CFormView::OnInitialUpdate();
}
// globale Funktion
// richtiger Tabellentyp
BOOL CheckTable (CDaoRecordset &Set, FieldKonvert *pInfo, const CString& strTableName)
{
try
{
CWaitCursor wc;
CMutex mt;
ASSERT (Set.IsOpen ());
ASSERT (NULL != pInfo);
// Suche alle Felder
CDaoFieldInfo FieldInfo;
CString strError;
while (pInfo && pInfo -> pFieldName && *pInfo -> pFieldName)
{
try
{
Set.GetFieldInfo (pInfo -> pFieldName, FieldInfo);
}
catch (CMemoryException *me)
{
me -> ReportError ();
me -> Delete ();
return FALSE;
}
catch (CDaoException *de)
{
de -> Delete ();
AfxFormatString1 (strError, IDS_FIELD_NOT_FOUND, pInfo -> pFieldName);
throw strError;
}
// Datentyp ok ?
if (FieldInfo.m_nType != pInfo -> sType)
{
AfxFormatString1 (strError, IDS_FIELD_NO_TYPE, pInfo -> pFieldName);
throw strError;
}
// ggf. auch Länge vergleichen
if ((pInfo -> sLen > 0) &&
(pInfo -> sLen < FieldInfo.m_lSize)) // angeg. Länge muß kleiner gleich tatsächlicher sein
{
CString strLen;
strLen.Format ("%ld", pInfo -> sLen);
AfxFormatString2 (strError, IDS_FIELD_NO_LEN, pInfo -> pFieldName, strLen);
throw strError;
}
pInfo++;
}
return TRUE;
}
catch (CString str)
{
// Struktur stimmt nicht: Meldung an Nutzer
CString strOutput;
AfxFormatString2 (strOutput, IDS_NO_VALID_STRUCTUR, strTableName, str);
((CGakApp *) AfxGetApp ()) -> OutputMessage (strOutput);
}
return FALSE;
}