void test_object_fetch(void)
{
ocout << otext("\n>>>>> TEST OBJECT FETCHING \n\n");
Statement st(con);
st.Execute(otext("select val from test_object for update"));
Resultset rs = st.GetResultset();
while (rs++)
{
Object obj = rs.Get<Object>(1);
ocout << otext(".... val_int : ") << obj.Get<int>(otext("VAL_INT")) << oendl;
ocout << otext(".... val_dbl : ") << obj.Get<double>(otext("VAL_DBL")) << oendl;
ocout << otext(".... val_flt : ") << obj.Get<float>(otext("VAL_FLT")) << oendl;
ocout << otext(".... val_str : ") << obj.Get<ostring>(otext("VAL_STR")) << oendl;
ocout << otext(".... val_date : ") << obj.Get<Date>(otext("VAL_DATE")) << oendl;
Clob clob = obj.Get<Clob>(otext("VAL_LOB"));
ocout << otext(".... val_lob : ") << clob.Read(SizeBuffer) << oendl;
File file = obj.Get<File>(otext("VAL_FILE"));
ocout << otext(".... val_file : ") << file.GetDirectory() << otext("/") << file.GetName() << oendl;
Raw raw = obj.Get<Raw>(otext("VAL_RAW"));
raw.push_back(0);
ocout << otext(".... val_raw : ") << reinterpret_cast<char *>(raw.data()) << oendl;
Object obj2 = obj.Get<Object>(otext("VAL_OBJ"));
ocout << otext(".... val_obj.code : ") << obj2.Get<int>(otext("ID")) << oendl;
ocout << otext(".... val_obj.name : ") << obj2.Get<ostring>(otext("NAME")) << oendl;
}
con.Commit();
ocout << otext("\n>>>>> TEST OBJECT FETCHING AS STRING \n\n");
st.Execute(otext("select val from test_object"));
rs = st.GetResultset();
while (rs++)
{
ocout << rs.Get<Object>(1) << oendl;
}
}
void test_lob(void)
{
ocout << otext("\n>>>>> TEST LOB MANIPULATION\n\n");
Statement st(con);
st.Execute(otext("select code, content from test_lob where code=1 for update"));
Resultset rs = st.GetResultset();
while (rs++)
{
Clob clob = rs.Get<Clob>(2);
clob.Write(otext("today, "));
clob.Append(otext("i'm going to the cinema ! "));
clob.Seek(SeekSet, 0);
ocout << otext("> code : ") << rs.Get<int>(1) << otext(", content : ") << clob.Read(SizeString) << oendl;
}
con.Commit();
ocout << oendl << rs.GetCount() << otext(" row(s) fetched") << oendl;
}
void test_returning(void)
{
ocout << otext("\n>>>>> TEST RETURNING CLAUSE \n\n");
Statement st(con);
st.Prepare(otext("update test_lob set code = code + 1 returning code, content into :i, :l"));
st.Register<int>(otext(":i"));
st.Register<Clob>(otext(":l"));
st.ExecutePrepared();
Resultset rs = st.GetResultset();
while (rs++)
{
Clob clob = rs.Get<Clob>(2);
clob.Append(otext("(modified)"));
clob.Seek(SeekSet, 0);
ocout << otext("> code : ") << rs.Get<int>(1) << otext(" - ") << clob.Read(static_cast<unsigned int>(clob.GetLength())) << oendl;
}
con.Commit();
ocout << oendl << rs.GetCount() << otext(" row(s) fetched") << oendl;
}
void test_returning_array(void)
{
ocout << otext("\n>>>>> TEST ARRAY BINDING WITH RETURNING CLAUSE \n\n");
std::vector<int> tab_int;
std::vector<double> tab_dbl;
std::vector<float> tab_flt;
std::vector<ostring> tab_str;
std::vector<Date> tab_date;
std::vector<Clob> tab_lob;
std::vector<File> tab_file;
for (int i = 0; i < ElemCount; i++)
{
tab_int.push_back(i + 1);
tab_dbl.push_back(3.14*static_cast<double>(i + 1));
tab_flt.push_back(3.14f*static_cast<float>(i + 1));
ostring str;
str += otext("Name");
str += ((i + 1) + '0');
tab_str.push_back(str);
tab_date.push_back(Date::SysDate());
Clob clob(con);
clob.Write(otext("Lob value ") + str);
tab_lob.push_back(clob);
ostring fileName;
fileName += otext("File");
fileName += ((i + 1) + '0');
File file(con, otext("Mydir"), fileName);
tab_file.push_back(file);
}
Statement st(con);
st.Prepare(otext("insert into test_array ")
otext("( ")
otext(" val_int, val_dbl, val_flt, val_str, val_date, ")
otext(" val_lob, val_file ")
otext(") ")
otext("values ")
otext("( ")
otext(" :val_int, :val_dbl, :val_flt, :val_str, :val_date, ")
otext(" :val_lob, :val_file ")
otext(") ")
otext("returning")
otext(" val_int, val_dbl, val_flt, val_str, val_date, ")
otext(" val_lob, val_file ")
otext("into ")
otext(" :out_int, :out_dbl, :out_flt, :out_str, :out_date, ")
otext(" :out_lob, :out_file "));
st.SetBindArraySize(ElemCount);
/* bind vectors */
st.Bind(otext(":val_int"), tab_int, BindInfo::In);
st.Bind(otext(":val_dbl"), tab_dbl, BindInfo::In);
st.Bind(otext(":val_flt"), tab_flt, BindInfo::In);
st.Bind(otext(":val_date"), tab_date, BindInfo::In);
st.Bind(otext(":val_lob"), tab_lob, BindInfo::In);
st.Bind(otext(":val_file"), tab_file, BindInfo::In);
st.Bind(otext(":val_str"), tab_str, 30, BindInfo::In);
/* register output */
st.Register<int >(otext(":out_int"));
st.Register<double >(otext(":out_dbl"));
st.Register<float >(otext(":out_flt"));
st.Register<Date >(otext(":out_date"));
st.Register<Clob >(otext(":out_lob"));
st.Register<File >(otext(":out_file"));
st.Register<ostring>(otext(":out_str"), 30);
st.ExecutePrepared();
ocout << oendl << st.GetAffectedRows() << otext(" row(s) inserted") << oendl;
int rowIndex = 0;
Resultset rs = st.GetResultset();
while (!rs.IsNull())
{
while (rs++)
{
ocout << otext("Row #") << ++rowIndex << otext("---------------") << oendl;
ocout << otext(".... val_int : ") << rs.Get<int>(otext(":OUT_INT")) << oendl;
ocout << otext(".... val_dbl : ") << rs.Get<double>(otext(":OUT_DBL")) << oendl;
ocout << otext(".... val_flt : ") << rs.Get<float>(otext(":OUT_FLT")) << oendl;
ocout << otext(".... val_str : ") << rs.Get<ostring>(otext(":OUT_STR")) << oendl;
ocout << otext(".... val_date : ") << rs.Get<Date>(otext(":OUT_DATE")) << oendl;
Clob clob = rs.Get<Clob>(otext(":OUT_LOB"));
ocout << otext(".... val_lob : ") << clob.Read(SizeBuffer) << oendl;
File file = rs.Get<File>(otext(":OUT_FILE"));
ocout << otext(".... val_file : ") << file.GetDirectory() << otext("/") << file.GetName() << oendl;
}
rs = st.GetNextResultset();
}
}
