Oracle8 oracle;
oracle.Open("user/pass@server/db", false));
Sql sql(oracle);
sql.Execute("select * from IKIS_ERS.INSUR_ANKT_A");
while(sql.Fetch())
Cout() << sql[0] << "\n";

int i = 0;
while(sql.Fetch())
i++;
Cout() << i;

Oracle8 oracle_conn;
String result;
	TimeStop v_timer;
	if(oracle_conn.Login("user", "password", "host:port/SID", true)){
		result << "\n connection time: " << v_timer;
		v_timer.Reset();
		Sql sql(oracle_conn);
		sql.Execute("select count(*) from AP_INVOICES_ALL");
		while(sql.Fetch())
			result << "\n total rows: " << sql[0];
		result << ", timer: " << v_timer;
		v_timer.Reset();
		sql.Execute("select INVOICE_ID, INVOICE_DATE from AP_INVOICES_ALL");
		int i = 0;
		while(sql.Fetch()){
			++i;
			result << "\n" << i << ". " << sql[0] << " - " << sql[1];
		}
		result << ", timer: " << v_timer;
		v_timer.Reset();
	}else
		result << "error to connect";

ORA-01406:fetched column value was truncated

Cause:	In a host language program, a FETCH operation was forced to truncate a character string. The program buffer area for this column was not large enough to contain the entire string. The cursor return code from the fetch was +3.

Action:	Increase the column buffer area to hold the largest column value or perform other appropriate processing.

select * from NLS_DATABASE_PARAMETERS

PARAMETER                      VALUE
------------------------------ ----------------------------------------
NLS_LANGUAGE                   AMERICAN
NLS_TERRITORY                  AMERICA
NLS_CURRENCY                   $
NLS_ISO_CURRENCY               AMERICA
NLS_NUMERIC_CHARACTERS         .,
NLS_CHARACTERSET               CL8MSWIN1251
NLS_CALENDAR                   GREGORIAN
NLS_DATE_FORMAT                DD-MON-RR
NLS_DATE_LANGUAGE              AMERICAN
NLS_SORT                       BINARY
NLS_TIME_FORMAT                HH.MI.SSXFF AM
NLS_TIMESTAMP_FORMAT           DD-MON-RR HH.MI.SSXFF AM
NLS_TIME_TZ_FORMAT             HH.MI.SSXFF AM TZR
NLS_TIMESTAMP_TZ_FORMAT        DD-MON-RR HH.MI.SSXFF AM TZR
NLS_DUAL_CURRENCY              $
NLS_COMP                       BINARY
NLS_LENGTH_SEMANTICS           BYTE
NLS_NCHAR_CONV_EXCP            FALSE
NLS_NCHAR_CHARACTERSET         AL16UTF16
NLS_RDBMS_VERSION              10.2.0.1.0

  COUNT(*)
----------
     14600

1 row selected.

    ROWNUM
----------
         1
         2
         3
     .....
     14598
     14599
     14600

14600 rows selected.

 connection time: 0.140
 total rows: 14600, timer: 0.000
1. 1
2. 2
3. 3
.....
14598. 14598
14599. 14599
14600. 14600, timer: 0.329

sql.Execute("select substr(IAN_NAME1, 1, 30) from IKIS_ERS.INSUR_ANKT_A");
int i = 0;
while(sql.Fetch())
i++;
Cout() << i;

sql.Execute("select substr(IAN_NUMIDENT, 1, 3) from IKIS_ERS.INSUR_ANKT_A");

oracle.DisableUtf8Mode();

connection time: 0.141
 total rows: 14600, timer: 0.000
1. sometext1
2. sometext2
3. sometext3
................
343. sometext343
344. sometext344
345. sometext345

OracleTest::OracleTest(){
	CtrlLayout(*this, "Window title");
	Sizeable().MaximizeBox().MinimizeBox().Maximize();
	String result;
	TimeStop v_timer;
	if(oracle_conn.Login("user", "pass", "host:port/SID", true)){
		result << "\n connection time: " << v_timer;
		v_timer.Reset();
		Sql sql(oracle_conn);
		if(sql.Execute("SELECT COUNT(*) FROM IKIS_ERS.INSUR_ANKT_A")){
			while(sql.Fetch())
				result << "\n total rows: " << sql[0];
			result << ", timer: " << v_timer;
			v_timer.Reset();
		}else result << "error: " << sql.GetLastError();
		
		if(sql.Execute("SELECT IAN_NAME1 FROM IKIS_ERS.INSUR_ANKT_A")){
			int i = 0;
			while(sql.Fetch()){
				++i;
				result << "\n" << i << ". " << sql[0];
			}
			
			result << ", timer: " << v_timer;
			v_timer.Reset();
		}else result << "error: " << sql.GetLastError();
	}else
		result << "error to connect";
	LogCtrl.Set(result);
}