/*----------------------------------------------------------------------------------------------
This method checks for duplicates in list names. If the given name exists then return true.
@param pszName name to check to see if it exists.
@return True if name already exists.
----------------------------------------------------------------------------------------------*/
bool ListsPropDlg::CheckName(const achar * pszName)
{
AfMainWnd * pafw = MainWindow();
AssertPtr(pafw);
AfLpInfo * plpi = pafw->GetLpInfo();
AssertPtr(plpi);
Vector<HVO> & vhvo = plpi->GetPsslIds();
AfDbInfoPtr qdbi = plpi->GetDbInfo();
AssertPtr(qdbi);
IOleDbEncapPtr qode;
qdbi->GetDbAccess(&qode);
StrAnsi sta;
int i;
StrUni stuIds;
int cv = vhvo.Size();
Assert(cv);
ComBool fIsNull;
ComBool fMoreRows;
ULONG cbSpaceTaken;
IOleDbCommandPtr qodc;
const int kcchBuffer = MAX_PATH;
OLECHAR rgchName[kcchBuffer];
HVO hvo;
StrUni stu;
for (i = 0; i < cv; ++i)
{
hvo = vhvo[i];
stu.Format(L"exec GetOrderedMultiTxt '%d', %d",
hvo, kflidCmMajorObject_Name);
CheckHr(qode->CreateCommand(&qodc));
CheckHr(qodc->ExecCommand(stu.Bstr(), knSqlStmtStoredProcedure));
CheckHr(qodc->GetRowset(0));
CheckHr(qodc->NextRow(&fMoreRows));
Assert(fMoreRows); // This proc should always return something.
CheckHr(qodc->GetColValue(1, reinterpret_cast <BYTE *>(rgchName),
kcchBuffer * isizeof(OLECHAR), &cbSpaceTaken, &fIsNull, 2));
sta = rgchName;
if (hvo != m_hvoObj && sta.Equals(pszName))
return false;
}
return true;
}
int main()
{
ComBool fIsNull = TRUE;
ComBool fMoreRows;
HRESULT hr;
long lTemp;
ULONG luId;
ULONG luSpaceTaken;
int nId;
wchar_t * pwszTemp = NULL;
IOleDbEncapPtr qode;
IOleDbCommandPtr qodc;
IOleDbCommandPtr qodc2;
StrUni suDatabase = L"TestLangProj";
StrUni suEthnologueCode = L"ABC";
StrUni suEthnologueCode2 = L"XYZ";
StrUni suServer = L""; // (local)
StrUni suParamName = L"@id";
StrUni suSqlDelete = L"delete cmobject where Id=9999998";
StrUni suSqlDelete2 = L"delete MultiBigStr$ where obj=9999998";
StrUni suSqlInsert = L"insert into cmobject (Guid$, Class$, Owner$, OwnFlid$) " \
L"values(newid(), 1, NULL, NULL)";
StrUni suSqlInsert2 = L"insert into MultiBigStr$ (Flid, Obj, Enc, Txt, Fmt) values("\
L"5016005, 9999998, 740664001, '-', 0x00)";
StrUni suSqlSelect0 = L"select contents a, contents b from StTxtPara where id=1351";
StrUni suSqlSelect1 = L"select ethnologuecode from LangProject";
StrUni suSqlSelect2 = L"select cast('zzz' as nvarchar) from LangProject";
StrUni suSqlSelect3 = L"select obj, 'Hello' + cast(obj as nvarchar) GREETING, txt " \
L"from MultiBigStr$ where obj=17060 or obj=1707";
StrUni suSqlSelect4 = L"select ethnologuecode from LangProject where id = ?";
StrUni suSqlSelect5 = L"select getDate()";
StrUni suSqlSelect6 = L"select itm.id, itm3.Dst, itm.Confidence, itm5.Txt, itm.DateCreated, "
L"itm.DateModified from CmPossibility_ as itm "
L"left outer join CmPossibility_Discussion as itm3 on itm3.Src = itm.id "
L"left outer join CmPossibility_Name as itm5 on itm5.obj = itm.Confidence "
L"and itm5.enc = 740664001 "
L"where itm.id in (315); "
L"select itm.obj, itm.txt, itm.flid, itm.enc, itm.fmt "
L"from CmPossibility_Name itm "
L"where itm.obj in (315) and itm.enc in (740664001,931905001) "
L"union all "
L"select itm.obj, itm.txt, itm.flid, itm.enc, itm.fmt "
L"from CmPossibility_Abbreviation itm where itm.obj in (315) and itm.enc in "
L"(740664001,931905001) "
L"union all "
L"select itm.obj, itm.txt, itm.flid, itm.enc, itm.fmt "
L"from CmPossibility_Description itm "
L"where itm.obj in (315) and itm.enc in (740664001,931905001)";
StrUni suSqlStoredProcMultiRowset = L"exec TestMultiRowsets$ ?, ? output";
StrUni suSqlStoredProcWithOutputParam = L"exec newobjid$ ? output";
StrUni suSqlStoredProcWithOutputParam2 = L"exec TestIOParam$ ?, ? output, ? output";
StrUni suSqlUpdate = L"update LangProject set EthnologueCode='ZZZ' where Id<>1";
StrUni suSqlUpdateWithParam = L"update LangProject set EthnologueCode=? where Id=?";
StrUni suSqlUpdateWithParam2 = L"update MultiBigStr$ set txt=? where obj=?";
char * szBigBlob;
char szParamOut[20] = "QQQ";
char szTemp[1024] = "LMN";
WCHAR wszParamInOut[20] = L"Hello";
WCHAR wszTemp[1024];
IUnknown * pIOleDbCommand = NULL;
// Initialize OLE
hr = CoInitialize(NULL);
if (FAILED(hr)) return EXIT_FAILURE;
// Create Instance of OleDbEncap object and open DataSource/Session.
qode.CreateInstance(CLSID_OleDbEncap);
qode->Init(suServer.Bstr(), suDatabase.Bstr());
/*------------------------------------------------------------------------------------------
EXAMPLE 1:
Simple SQL select statement retrieving a single column (a wide character string).
select ethnologuecode from LangProject
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 1\n===============================\n");
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlSelect1.Bstr(), knSqlStmtSelectWithOneRowset);
qodc->GetRowset(1);
qodc->NextRow(&fMoreRows);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * 20));
while (fMoreRows)
{
luSpaceTaken = 0;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(pwszTemp), sizeof(WCHAR) * 20,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"Value: %s\n", pwszTemp);
}
else
{
// NULL string
wprintf(L"Id: <null>\n");
}
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 2:
Simple SQL select statement retrieving the current date and time in a single column
(ie. a datetime column).
select getDate()
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 2\n===============================\n");
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlSelect5.Bstr(), knSqlStmtSelectWithOneRowset);
qodc->GetRowset(knRowsetBufferDefaultRows);
qodc->NextRow(&fMoreRows);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(DBTIMESTAMP)));
while (fMoreRows)
{
luSpaceTaken = 0;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(pwszTemp), sizeof(DBTIMESTAMP),
&luSpaceTaken, &fIsNull, 0);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"DATE - Year: %d | ", pwszTemp[0]);
wprintf(L"Month: %d | ", pwszTemp[1]);
wprintf(L"Day: %d | ", pwszTemp[2]);
wprintf(L"Hour: %d | ", pwszTemp[3]);
wprintf(L"Minute: %d | ", pwszTemp[4]);
wprintf(L"Second: %d\n", pwszTemp[5]);
}
else
{
// NULL string
wprintf(L"DATE - <null>\n");
}
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 3:
Simple SQL select statement retrieving a single column (a wide character string).
select contents a, contents b from StTxtPara where id=1351
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 3\n===============================\n");
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlSelect0.Bstr(), knSqlStmtSelectWithOneRowset);
qodc->GetRowset(1);
qodc->NextRow(&fMoreRows);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * 4000));
byte * pbTemp = reinterpret_cast<byte *> (CoTaskMemAlloc(sizeof(byte) * 10000));
while (fMoreRows)
{
luSpaceTaken = 0;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(pwszTemp), sizeof(WCHAR) * 4000,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"Value: %s\n", pwszTemp);
}
else
{
// NULL string
wprintf(L"Id: <null>\n");
}
qodc->GetColValue(2, reinterpret_cast <ULONG *>(pbTemp), sizeof(byte) * 10000,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"Value: %s\n", pbTemp);
}
else
{
// NULL string
wprintf(L"Id: <null>\n");
}
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 4:
Simple SQL select statement retrieving multiple columns.
int (int)
unicode string (varchar)
BLOB (ntext)
This also demonstrates what to do if the client code (ie. this code) allocates too small
a buffer for the data.
select obj, 'Hello' + cast(obj as nvarchar) GREETING, txt from MultiBigStr$
where obj=1650 or obj=1651
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 4\n===============================\n");
// Execute SQL Command and obtain Rowset.
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlSelect3.Bstr(), knSqlStmtSelectWithOneRowset);
qodc->GetRowset(knRowsetBufferDefaultRows);
// Go through the rowset output the data
qodc->NextRow(&fMoreRows);
while (fMoreRows)
{
//--------------------------------------------------------------------------------------
// Print out an integer
//--------------------------------------------------------------------------------------
qodc->GetColValue(1, (ULONG *) &nId, sizeof(int), &luSpaceTaken, &fIsNull, 0);
if (luSpaceTaken)
{
printf("Id: %d | ", nId);
}
else
{
printf("Id: <NULL> | ");
}
//--------------------------------------------------------------------------------------
// Print out a null terminated string. Intentionally use a small buffer first, then
// reallocate memory after fail and try again.
//--------------------------------------------------------------------------------------
luSpaceTaken = 0;
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * 2));
qodc->GetColValue(2, reinterpret_cast <ULONG *>(pwszTemp), 2, &luSpaceTaken, &fIsNull,
2);
if (luSpaceTaken > 2)
{
// The data buffer was too small for the string so free it and create a larger
// one and try again.
CoTaskMemFree(pwszTemp);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * luSpaceTaken));
qodc->GetColValue(2, reinterpret_cast <ULONG *>(pwszTemp), luSpaceTaken,
&luSpaceTaken, &fIsNull, 2);
}
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"Value: %s | ", pwszTemp);
}
else
{
// NULL string
wprintf(L"Value: <null> | ");
}
//--------------------------------------------------------------------------------------
// Print out a blob (eg. ntext). Intentionally use a small buffer first, then
// reallocate memory after fail and try again.
//--------------------------------------------------------------------------------------
luSpaceTaken = 0;
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * 1));
qodc->GetColValue(3, reinterpret_cast <ULONG *>(pwszTemp), sizeof(WCHAR) * 1,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken >= 2)
{
// The data buffer was too small for the string so free it and create a larger
// one and try again.
CoTaskMemFree(pwszTemp);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(luSpaceTaken));
qodc->GetColValue(3, reinterpret_cast <ULONG *>(pwszTemp), luSpaceTaken,
&luSpaceTaken, &fIsNull, 2);
}
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"Value: %s\n\n", pwszTemp);
}
else
{
// NULL string
wprintf(L"Value: <null>\n\n");
}
wprintf(L"-------------------------------------------------------------------------\n");
// Get the next row if there are any.
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 5:
Multiple SQL select statements. Note the use of the semi-colon to separate the two
statements.
select x from table1; select y from table2
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 5\n===============================\n");
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlSelect6.Bstr(), knSqlStmtStoredProcedure);
qodc->GetRowset(1);
qodc->NextRow(&fMoreRows);
while (fMoreRows)
{
ULONG iNow;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(&iNow), sizeof(ULONG), &luSpaceTaken,
&fIsNull, 0);
if (luSpaceTaken)
{
printf("Id: %d | ", iNow);
}
else
{
printf("Id: <NULL> | ");
}
qodc->NextRow(&fMoreRows);
}
printf("\n");
qodc->GetRowset(1);
qodc->NextRow(&fMoreRows);
while (fMoreRows)
{
ULONG iNow;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(&iNow), sizeof(ULONG), &luSpaceTaken,
&fIsNull, 0);
if (luSpaceTaken)
{
printf("Id: %d | ", iNow);
}
else
{
printf("Id: <NULL> | ");
}
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 6:
Simple SQL select statement within another SQL select statement. Both retrieve a single
column (a wide character string).
select ethnologuecode from LangProject
select cast('zzz' as nvarchar) from LangProject
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 6\n===============================\n");
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlSelect1.Bstr(), knSqlStmtSelectWithOneRowset);
qodc->GetRowset(knRowsetBufferDefaultRows);
qodc->NextRow(&fMoreRows);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * 8));
while (fMoreRows)
{
luSpaceTaken = 0;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(pwszTemp), sizeof(WCHAR) * 8,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"OUTER - Value: %s\n", pwszTemp);
}
else
{
// NULL string
wprintf(L"OUTER - Value: <null>\n");
}
// Here is the inner SQL statement.
qode->CreateCommand(&qodc2);
qodc2->ExecCommand(suSqlSelect2.Bstr(), knSqlStmtSelectWithOneRowset);
qodc2->GetRowset(knRowsetBufferDefaultRows);
qodc2->NextRow(&fMoreRows);
while (fMoreRows)
{
luSpaceTaken = 0;
qodc2->GetColValue(1, reinterpret_cast <ULONG *>(pwszTemp), sizeof(WCHAR) * 8,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L" INNER - Value: %s\n", pwszTemp);
}
else
{
// NULL string
wprintf(L" INNER - Value: <null>\n");
}
qodc2->NextRow(&fMoreRows);
}
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 7:
Simple insert, update, and delete SQL statements contained in a single transaction.
Can demonstrate either commit or rollback.
insert into cmobject (Guid$, Class$, Owner$, OwnFlid$)
values(newid(), 1, NULL, NULL)
update LangProject set EthnologueCode='ZZZ' where Id<>1
delete cmobject where Id=9999998
!NOTE1: You could put all of these SQL statments in one command string, however, you
cannot do that if they have parameters.
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 7\n===============================\n");
qode->BeginTrans();
// Insert a row
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlInsert.Bstr(), knSqlStmtNoResults);
// Update a row
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlUpdate.Bstr(), knSqlStmtNoResults);
// Delete a row
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlDelete.Bstr(), knSqlStmtNoResults);
qode->RollbackTrans();
// qode->CommitTrans();
/*------------------------------------------------------------------------------------------
EXAMPLE 8:
SQL select statement with parameters that retrieves a single column (a wide char string).
select ethnologuecode from LangProject where id = ?
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 8\n===============================\n");
qode->CreateCommand(&qodc);
lTemp = 1;
qodc->SetParameter(1, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISSIGNED, NULL,
DBTYPE_I4, (ULONG *) &lTemp, sizeof(long));
qodc->ExecCommand(suSqlSelect4.Bstr(), knSqlStmtSelectWithOneRowset);
qodc->GetRowset(knRowsetBufferDefaultRows);
qodc->NextRow(&fMoreRows);
pwszTemp = reinterpret_cast<WCHAR *> (CoTaskMemAlloc(sizeof(WCHAR) * 20));
while (fMoreRows)
{
luSpaceTaken = 0;
qodc->GetColValue(1, reinterpret_cast <ULONG *>(pwszTemp), sizeof(WCHAR) * 20,
&luSpaceTaken, &fIsNull, 2);
if (luSpaceTaken)
{
// Not a NULL string.
wprintf(L"Value: %s\n", pwszTemp);
}
else
{
// NULL string
wprintf(L"Value: <null>\n");
}
qodc->NextRow(&fMoreRows);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 9:
Parameterized SQL update statement with 2 parameters (wide string, long int) inside a
transaction. Values are bound to the parameters and then the command is executed.
This also demonstrates how to set a field to NULL.
After the command is executed, a different value is set for the second parameter and the
command is re-executed.
Finally, new values are given for both parameters and the statement is executed again.
update LangProject set EthnologueCode=? where Id=?
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 9\n===============================\n");
qode->BeginTrans();
qode->CreateCommand(&qodc);
// Bind values to the parameters and execute the command.
qodc->SetParameter(1, DBPARAMFLAGS_ISINPUT, NULL, DBTYPE_WSTR, NULL, 0);
lTemp = 1;
qodc->SetParameter(2, DBPARAMFLAGS_ISINPUT, NULL, DBTYPE_I4,
(ULONG *) &lTemp, sizeof(long));
qodc->ExecCommand(suSqlUpdateWithParam.Bstr(), knSqlStmtNoResults);
// Bind new value for second parameter and re-execute.
lTemp = 1663;
qodc->SetParameter(2, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISSIGNED, NULL,
DBTYPE_I4, (ULONG *) &lTemp, sizeof(long));
qodc->ExecCommand(suSqlUpdateWithParam.Bstr(), knSqlStmtNoResults);
// Bind new values to the parameters and re-execute the command.
// Note that we first Reset the command to free memory, etc that was allocated for
// the previous parameters, etc.
qodc->SetParameter(1, DBPARAMFLAGS_ISINPUT, NULL, DBTYPE_WSTR,
(ULONG *) suEthnologueCode2.Chars(), 6);
lTemp = 1;
qodc->SetParameter(2, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISSIGNED, NULL,
DBTYPE_I4, (ULONG *) &lTemp, sizeof(long));
qodc->ExecCommand(suSqlUpdateWithParam.Bstr(), knSqlStmtNoResults);
qode->CommitTrans();
/*------------------------------------------------------------------------------------------
EXAMPLE 10:
Parameterized SQL update statement with 2 parameters (BLOB string, long int)
update MultiBigStr$ set txt=? where obj=?
!NOTE: This transaction is rolled back so the changes will not show up in the database.
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 10\n===============================\n");
szBigBlob = reinterpret_cast<char *> (CoTaskMemAlloc(20000));
memset(szBigBlob, 70, 19999);
qode->BeginTrans();
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlInsert.Bstr(), knSqlStmtNoResults);
qode->CreateCommand(&qodc);
qodc->SetParameter(1, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISLONG, NULL, DBTYPE_STR,
(ULONG *) szBigBlob, 20000);
lTemp = 9999998;
qodc->SetParameter(2, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISSIGNED, NULL, DBTYPE_I4,
(ULONG *) &lTemp, sizeof(long));
qodc->ExecCommand(suSqlUpdateWithParam2.Bstr(), knSqlStmtNoResults);
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlDelete2.Bstr(), knSqlStmtNoResults);
qode->CreateCommand(&qodc);
qodc->ExecCommand(suSqlDelete.Bstr(), knSqlStmtNoResults);
qode->RollbackTrans();
CoTaskMemFree(szBigBlob);
/*------------------------------------------------------------------------------------------
EXAMPLE 11:
Simple stored procedure call with (long integer) output parameter.
Note that in this example, a name is given for the parameter "@id", however, this is not
necessary, since we know the ordinal value. One could just pass in NULL for the name.
exec newobjid$ ? output
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 11\n===============================\n");
qode->CreateCommand(&qodc);
qodc->SetParameter(1, DBPARAMFLAGS_ISOUTPUT, suParamName.Bstr(), DBTYPE_I4, (ULONG *)
&luId, sizeof(luId));
qodc->ExecCommand(suSqlStoredProcWithOutputParam.Bstr(), knSqlStmtStoredProcedure);
qodc->GetParameter(1, &luId, sizeof(luId), &fIsNull);
if (fIsNull)
{
printf("NewObjId$ Value: <NULL>\n");
}
else
{
printf("NewObjId$ Value: %u\n", luId);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 12:
Stored procedure call with (wide string) input parameter and (wide string) output parameter.
exec TestIOParam$ ?, ? output, ? output
!NOTE: This requires that you have a stored procedure in the database as follows:
CREATE proc [TestIOParam$]
@nInOnlyValue int,
@szInOutValue varchar(20) output,
@wszInOutValue nvarchar(20) output
as
update LangProject set EthnologueCode = @wszInOutValue where id=@nInOnlyValue
//-- Must use substring otherwise you get a truncation error --
set @szInOutValue = substring(cast(@wszInOutValue as varchar), 1, 19)
set @wszInOutValue = 'It works'
return 0
------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 12\n===============================\n");
qode->CreateCommand(&qodc);
luId = 1;
qodc->SetParameter(1, DBPARAMFLAGS_ISINPUT, NULL, DBTYPE_I4, (ULONG *) &luId,
sizeof(luId));
qodc->SetParameter(2, DBPARAMFLAGS_ISOUTPUT, NULL, DBTYPE_STR, (ULONG *) szParamOut, 20);
qodc->SetParameter(3, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISOUTPUT, NULL, DBTYPE_WSTR,
(ULONG *) wszParamInOut, 40);
qodc->ExecCommand(suSqlStoredProcWithOutputParam2.Bstr(), knSqlStmtStoredProcedure);
qodc->GetParameter(2, (ULONG *) szParamOut, 40, &fIsNull);
if (fIsNull)
{
printf("Output Only String (Parmam 2): <NULL>\n");
}
else
{
printf("Output Only String (Parmam 2): %s\n", szParamOut);
}
qodc->GetParameter(3, (ULONG *) wszParamInOut, 40, &fIsNull);
if (fIsNull)
{
printf("Output Only String (Parmam 3): <NULL>\n");
}
else
{
wprintf(L"Output Only String (Parmam 3): %s\n", wszParamInOut);
}
/*------------------------------------------------------------------------------------------
EXAMPLE 13:
Stored procedure call with multiple (2) rowsets.
!NOTE: This requires that you have a stored procedure in the database as follows:
CREATE proc [TestMultiRowsets$]
@wszInOutValue nvarchar(20),
@cRows int output
as
update LangProject set EthnologueCode = @wszInOutValue
select top 10 obj, txt from MultiBigStr$;
select id, EthnologueCode from LangProject union all
select id, EthnologueCode from LangProject;
set @cRows = @@rowcount;
return 0
-------------------------------------------------------------------------------------------*/
printf("\n===============================\nEXAMPLE 13\n===============================\n");
qode->CreateCommand(&qodc);
qodc->SetParameter(1, DBPARAMFLAGS_ISINPUT, NULL, DBTYPE_WSTR, (ULONG *) wszParamInOut, 20);
luId=0;
qodc->SetParameter(2, DBPARAMFLAGS_ISINPUT | DBPARAMFLAGS_ISOUTPUT, NULL, DBTYPE_I4,
(ULONG *) &luId, sizeof(luId));
qodc->ExecCommand(suSqlStoredProcMultiRowset.Bstr(), knSqlStmtStoredProcedure);
// Go through the first rowset
qodc->GetRowset(knRowsetBufferDefaultRows);
qodc->NextRow(&fMoreRows);
while (fMoreRows)
{
// Get data from the rowset and do something with it here.
qodc->GetColValue(1, (ULONG *) &nId, sizeof(int), &luSpaceTaken, &fIsNull, 0);
if (luSpaceTaken)
{
printf("Id: %d | ", nId);
}
else
{
printf("Id: <NULL> | ");
}
qodc->GetColValue(2, reinterpret_cast <ULONG *>(wszTemp), 1024, &luSpaceTaken,
&fIsNull, 2);
if (luSpaceTaken)
{
wprintf(L"Txt: %s\n", wszTemp);
}
else
{
wprintf(L"Txt: <NULL>\n");
}
// Get more rows.
qodc->NextRow(&fMoreRows);
}
// Go through the second rowset
printf("------ Second Rowset ------\n");
qodc->GetRowset(knRowsetBufferDefaultRows);
qodc->NextRow(&fMoreRows);
while (fMoreRows)
{
// Get data from the rowset and do something with it here.
qodc->GetColValue(1, (ULONG *) &nId, sizeof(int), &luSpaceTaken, &fIsNull, 0);
if (luSpaceTaken)
{
printf("Id: %d | ", nId);
}
else
{
printf("Id: <NULL> | ");
}
qodc->GetColValue(2, (ULONG *) wszTemp, sizeof(WCHAR) * 1024, &luSpaceTaken, &fIsNull,
2);
if (luSpaceTaken)
{
wprintf(L"EthnologueCode: %s\n", wszTemp);
}
else
{
wprintf(L"EthnologueCode: <NULL>\n");
}
// Get more rows.
qodc->NextRow(&fMoreRows);
}
qodc->GetRowset(knRowsetBufferDefaultRows);
qodc->GetParameter(2, (ULONG *) &luId, sizeof(luId), &fIsNull);
wprintf(L"---Number of Rows: %d\n", luId);
/*------------------------------------------------------------------------------------------
FINAL EXAMPLE:
Set the LangProject EthnologueCode's back to the original values.
------------------------------------------------------------------------------------------*/
printf("\n===============================\nFINAL EXAMPLE\n===============================\n");
qode->CreateCommand(&qodc);
qodc->ExecCommand(L"update LangProject set ethnologueCode='FRN' where id=1",
knSqlStmtNoResults);
qode->CreateCommand(&qodc);
qodc->ExecCommand(L"update LangProject set ethnologueCode='GRM' where id=1663",
knSqlStmtNoResults);
// Cleanup.
// TODO PaulP: cleanup the cleanup.
if (pwszTemp != NULL)
{
CoTaskMemFree(pwszTemp);
}
CoUninitialize();
if (FAILED(hr))
{
return EXIT_FAILURE;
}
return EXIT_SUCCESS;
}
/*----------------------------------------------------------------------------------------------
Fill in the string with the given "Date Created" or "Date Modified" value.
@param flid Field id for either "DateCreated" or "DateModified".
@param strb Reference to the output string.
----------------------------------------------------------------------------------------------*/
void GeneralPropDlgTab::GetDateString(int flid, StrAppBuf & strb)
{
strb.Clear();
try
{
AfLpInfo * plpi = m_ppropd->GetLangProjInfo();
AssertPtr(plpi);
CustViewDaPtr qcvd;
plpi->GetDataAccess(&qcvd);
AssertPtr(qcvd);
int64 ntim = 0;
SilTime tim;
SYSTEMTIME stim;
achar rgchDate[50]; // Tuesday, August 15, 2000 mardi 15 août 2000
achar rgchTime[50]; // 10:17:09 PM 22:20:08
int cch;
HVO hvo = m_ppropd->GetObjId();
HRESULT hr;
CheckHr(hr = qcvd->get_TimeProp(hvo, flid, &ntim));
if (hr == S_FALSE && !ntim)
{
int clid = MAKECLIDFROMFLID(flid);
AfDbInfo * pdbi = plpi->GetDbInfo();
AssertPtr(pdbi);
IOleDbEncapPtr qode;
pdbi->GetDbAccess(&qode);
AssertPtr(qode);
IFwMetaDataCachePtr qmdc;
pdbi->GetFwMetaDataCache(&qmdc);
AssertPtr(qmdc);
SmartBstr sbstrField;
CheckHr(qmdc->GetFieldName(flid, &sbstrField));
IOleDbCommandPtr qodc;
CheckHr(qode->CreateCommand(&qodc));
StrUni stu;
ComBool fIsNull;
ComBool fMoreRows;
ULONG cbSpaceTaken;
SmartBstr sbstrClass;
CheckHr(qmdc->GetClassName(clid, &sbstrClass));
// Note that we need the view, not just the class table proper, in case the
// attribute is defined on a superclass (such as CmMajorObject).
stu.Format(L"select [%b] from [%b_] where [Id] = %d",
sbstrField.Bstr(), sbstrClass.Bstr(), hvo);
CheckHr(qodc->ExecCommand(stu.Bstr(), knSqlStmtSelectWithOneRowset));
CheckHr(qodc->GetRowset(0));
CheckHr(qodc->NextRow(&fMoreRows));
if (fMoreRows)
{
DBTIMESTAMP dbtim;
CheckHr(qodc->GetColValue(1, reinterpret_cast <BYTE *>(&dbtim),
sizeof(DBTIMESTAMP), &cbSpaceTaken, &fIsNull, 0));
if (!fIsNull)
{
stim.wYear = (unsigned short)dbtim.year;
stim.wMonth = (unsigned short)dbtim.month;
stim.wDayOfWeek = 0;
stim.wDay = (unsigned short)dbtim.day;
stim.wHour = (unsigned short)dbtim.hour;
stim.wMinute = (unsigned short)dbtim.minute;
stim.wSecond = (unsigned short)dbtim.second;
stim.wMilliseconds = (unsigned short)(dbtim.fraction/1000000);
cch = ::GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &stim, NULL,
rgchDate, 50);
rgchDate[cch] = 0;
cch = ::GetTimeFormat(LOCALE_USER_DEFAULT, NULL, &stim, NULL,
rgchTime, 50);
rgchTime[cch] = 0;
strb.Format(_T("%s %s"), rgchDate, rgchTime);
}
}
}
else if (ntim)
{
tim = ntim;
// Convert the date to a system date.
// Then format it to a time based on the current user locale.
stim.wYear = (unsigned short)tim.Year();
stim.wMonth = (unsigned short)tim.Month();
stim.wDayOfWeek = (unsigned short)tim.WeekDay();
stim.wDay = (unsigned short)tim.Date();
stim.wHour = (unsigned short)tim.Hour();
stim.wMinute = (unsigned short)tim.Minute();
stim.wSecond = (unsigned short)tim.Second();
stim.wMilliseconds = (unsigned short)tim.MilliSecond();
cch = ::GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &stim, NULL, rgchDate,
50);
rgchDate[cch] = 0;
cch = ::GetTimeFormat(LOCALE_USER_DEFAULT, NULL, &stim, NULL, rgchTime, 50);
rgchTime[cch] = 0;
strb.Format(_T("%s %s"), rgchDate, rgchTime);
}
}
catch (...) // Was empty.
{
throw; // For now we have nothing to add, so pass it on up.
}
}
/*----------------------------------------------------------------------------------------------
Check to see if the edit box has valid data. if so return true. If not then put up a
message to the user, then return false.
----------------------------------------------------------------------------------------------*/
bool CleDeFeString::IsOkToClose(bool fWarn)
{
CleMainWnd * pcmw = dynamic_cast<CleMainWnd *>(m_qadsc->MainWindow());
Assert(pcmw);
IVwSelectionPtr qvwsel;
CheckHr(m_qrootb->get_Selection(&qvwsel));
if (qvwsel)
{
ComBool fOk;
CheckHr(qvwsel->Commit(&fOk));
}
PossListInfoPtr qpli = pcmw->GetPossListInfoPtr();
int ipss = qpli->GetIndexFromId(m_hvoObj);
StrUni stuNew;
const OLECHAR * prgwch;
int cch;
ITsStringPtr qtss;
CustViewDaPtr qcvd;
GetDataAccess(&qcvd);
AssertPtr(qcvd);
int ws = m_qsvc->WritingSystems()[0];
CheckHr(qcvd->get_MultiStringAlt(m_hvoObj, m_flid, ws, &qtss));
Assert(qtss);
qtss->LockText(&prgwch, &cch);
qtss->UnlockText(prgwch);
// Trim leading and trailing space characters.
UnicodeString ust(prgwch, cch);
ust.trim();
stuNew.Assign(ust.getBuffer(), ust.length());
// Obtain pointer to IOleDbEncap interface.
IOleDbEncapPtr qode;
IOleDbCommandPtr qodc;
StrUni stuSql;
ComBool fIsNull;
ComBool fMoreRows;
AssertPtr(m_qadsc->MainWindow());
AfLpInfo * plpi = m_qadsc->MainWindow()->GetLpInfo();
AssertPtr(plpi);
AfDbInfo * pdbi = plpi->GetDbInfo();
AssertPtr(pdbi);
pdbi->GetDbAccess(&qode);
AssertPtr(qode);
CheckHr(qode->CreateCommand(&qodc));
int cpii = qpli->GetCount();
if ((m_flid == kflidCmPossibility_Name) || (m_flid == kflidCmPossibility_Abbreviation))
{
// Make sure it does not have a ":" or a " - " in the string
int ich = stuNew.FindStr(L":");
StrUni stuTmp;
bool fFixed = false;
while (ich > 0)
{
stuNew.Replace(ich,ich + 1,"-");
fFixed = true;
ich = stuNew.FindStr(L":");
}
ich = stuNew.FindStr(L" - ");
while (ich > 0)
{
stuNew.Replace(ich,ich + 3,"-");
fFixed = true;
ich = stuNew.FindStr(L" - ");
}
if (fFixed)
{
if (fWarn)
{
ITsStrFactoryPtr qtsf;
qtsf.CreateInstance(CLSID_TsStrFactory);
qtsf->MakeStringRgch(stuNew.Chars(), stuNew.Length(), pcmw->UserWs(), &qtss);
CheckHr(qcvd->SetMultiStringAlt(m_hvoObj, m_flid, ws, qtss));
CheckHr(qcvd->PropChanged(NULL, kpctNotifyAll, m_hvoObj, m_flid, 0, 1, 1));
StrApp strMsg(kstidFixedStr);
StrApp strTitle(kstidFixedStrTitle);
::MessageBox(m_hwnd, strMsg.Chars(), strTitle.Chars(),
MB_OK | MB_ICONINFORMATION);
}
return false;
}
}
if (qpli->GetAllowDup())
return true;
ILgWritingSystemFactoryPtr qwsf;
pdbi->GetLgWritingSystemFactory(&qwsf);
AssertPtr(qwsf);
switch (m_flid)
{
case kflidCmPossibility_Name:
{
for (int ipii = 0; ipii < cpii; ipii++)
{
if (ipii == ipss)
continue;
PossItemInfo * ppii = qpli->GetPssFromIndex(ipii);
AssertPtr(ppii);
StrUni stu;
ppii->GetName(stu, kpntName);
if (stu == stuNew)
{
stuSql.Format(L"select ws from CmPossibility_Name "
L"where obj = %d and ws = %d",
ppii->GetPssId(), ws);
CheckHr(qode->CreateCommand(&qodc));
CheckHr(qodc->ExecCommand(stuSql.Bstr(), knSqlStmtSelectWithOneRowset));
CheckHr(qodc->GetRowset(0));
CheckHr(qodc->NextRow(&fMoreRows));
if (fMoreRows)
{
if (fWarn)
{
// this name already exists
IWritingSystemPtr qws;
CheckHr(qwsf->get_EngineOrNull(ws, &qws));
AssertPtr(qws);
SmartBstr sbstr;
qws->get_Name(ws, &sbstr);
StrUni stu(kstidDupItemName);
StrUni stuMsg;
stuMsg.Format(stu,sbstr.Chars());
StrApp str(stuMsg);
StrApp strTitle(kstidDupItemTitle);
::MessageBox(m_hwnd, str.Chars(), strTitle.Chars(),
MB_OK | MB_ICONINFORMATION);
}
return false;
}
}
}
break;
}
case kflidCmPossibility_Abbreviation:
{
for (int ipii = 0; ipii < cpii; ipii++)
{
if (ipii == ipss)
continue;
PossItemInfo * ppii = qpli->GetPssFromIndex(ipii);
AssertPtr(ppii);
StrUni stu;
ppii->GetName(stu, kpntAbbreviation);
if (stu == stuNew)
{
stuSql.Format(L"select ws from CmPossibility_Abbreviation "
L"where obj = %d and ws = %d",
ppii->GetPssId(), ws);
CheckHr(qode->CreateCommand(&qodc));
CheckHr(qodc->ExecCommand(stuSql.Bstr(), knSqlStmtSelectWithOneRowset));
CheckHr(qodc->GetRowset(0));
CheckHr(qodc->NextRow(&fMoreRows));
if (fMoreRows)
{
if (fWarn)
{
// this abbreviation already exists
IWritingSystemPtr qws;
CheckHr(qwsf->get_EngineOrNull(ws, &qws));
AssertPtr(qws);
SmartBstr sbstr;
qws->get_Name(ws, &sbstr);
StrUni stu(kstidDupItemAbbr);
StrUni stuMsg;
stuMsg.Format(stu,sbstr.Chars());
StrApp str(stuMsg);
StrApp strTitle(kstidDupItemTitle);
::MessageBox(m_hwnd, str.Chars(), strTitle.Chars(),
MB_OK | MB_ICONINFORMATION);
}
return false;
}
}
}
break;
}
}
return true;
}
