bool ImportData::InsertBody(myS_Table record)
{
	Sql sql(mssql);
	sql.ClearError();

	try { sql * Insert(My_Table)
					(My_Id, record.Id)
					(My_Row, record.Row)
					(My_Description, record.Description);
				return true;
	} catch(SqlExc) {
		ErrorOK(t_("Failed adding data to the database due to the following error: ") + SQL.GetLastError());
		return false;
	}
	return true;
}

ERROR [Microsoft][SQL Server Native Client 11.0][SQL Server]Violation of PRIMARY KEY constraint 'Id'. Cannot insert duplicate key in object 'dbo.X_DORIG'. The duplicate key value is (180107, 1, 'Art. number'                                  ).(0): insert into X_DORIG(Id, Row, Description,) values (180107, 1, 'Art. number')

#include "app.h"

#include <Sql/sch_schema.h>
#include <Sql/sch_source.h>

using namespace Upp;

CONSOLE_APP_MAIN
{
	MSSQLSession mssql;
	for(;;) {
		String cs = "Driver={SQL Server Native Client 11.0};";
		cs << "Server=MAIN\\SQLEXPRESS;";
		cs << "Trusted_Connection=Yes;";
		if(!mssql.Connect(cs))
			Cout() << "Connect failed: " << mssql.GetLastError() << '\n';
		else
			break;
	}
	SQL = mssql;

#ifdef _DEBUG
	mssql.SetTrace();
#endif

	SqlSchema sch(MSSQL);
	StdStatementExecutor se(SQL.GetSession());
	All_Tables(sch);
	ODBCPerformScript(sch.Upgrade(), se);
	ODBCPerformScript(sch.Attributes(), se);

	mssql.ThrowOnError();

	try {
		for(int i = 0; i < 10; i++)
			SQL * Insert(TEST)(ID, i)(TEXT, String('A' + i, 1));
	}
	catch(SqlExc) {
		DLOG("ERROR");
	}
	S_TEST tst;
	Sql sql;
	sql * Select(tst).From(TEST);
	while(sql.Fetch(tst))
		DDUMP(tst.ID);
}

bool ImportData::OpenMsSql()
{
	String username = "sa";
	String pwd = "secret";
	String dbname = "ADB_TEST";
	String server = "servername\\sqlserver";
	String cs = "Driver={SQL Server};Server=" + server +
					";UID=" + username + ";PWD=" + pwd + ";Database=" + dbname + ";";
	
	if(!mssql.Connect(cs))
	{
		Exclamation(t_("Unable to connect to database due to the following error: ") + mssql.GetLastError());
		return false;
	}

	mssql.SqlSession::ThrowOnError();
	mssql.LogErrors();
	mssql.SetTrace();

	return true;
	
}

bool Sql::Execute() {
	SqlSession &session = GetSession();

	session.SetStatement(cn->statement);
	session.SetStatus(SqlSession::BEFORE_EXECUTING);
	cn->starttime = GetTickCount();
	Stream *s = session.GetTrace();
	if(s) {
#ifndef NOAPPSQL
		if(this == &AppCursor())
			*s << "SQL* ";
		else
		if(this == &AppCursorR())
			*s << "SQLR* ";
#endif
		String st = cn->statement;
		if(session.IsTraceCompression())
			st = CompressLog(st);
		int i = 0;
		for(const char *q = st; *q; q++)
			if(*q == '?' && i < param.GetCount()) {
				Value v = param[i++];
				if(IsString(v))
					*s << '\'' << v << '\'';
				else
					*s << v;
			}
			else
				s->Put(*q);
		*s << '\n';
	}
	if(!session.IsOpen())
	{
		session.SetStatus(SqlSession::CONNECTION_ERROR);
		return false;
	}
	session.SetStatus(SqlSession::START_EXECUTING);
	bool b = cn->Execute();
	session.SetTime(GetTickCount() - cn->starttime);
	session.SetStatus(SqlSession::END_EXECUTING);
	if(!b)
		session.SetStatus(SqlSession::EXECUTING_ERROR);
	for(int i = 0; i < cn->info.GetCount(); i++)
		cn->info[i].name = ToUpper(cn->info[i].name);

	session.SetStatus(SqlSession::AFTER_EXECUTING);
DDUMP(b);
DDUMP(session.throwonerror);
	if(!b && session.throwonerror)
		throw SqlExc(GetSession());
	return b;
}

b = false
session.throwonerror = true

	SqlSchema sch(MSSQL);
DLOG("A");
	StdStatementExecutor se(SQL.GetSession());
DLOG("B");	All_Tables(sch);
	ODBCPerformScript(sch.Upgrade(), se);
DLOG("C");
	ODBCPerformScript(sch.Attributes(), se);
DLOG("D");
	mssql.ThrowOnError();
DLOG("E");
	try {
DLOG("F");
		for(int i = 0; i < 10; i++)
			SQL * Insert(TEST)(ID, i)(TEXT, String('A' + i, 1));
DLOG("G");	}
	catch(SqlExc) {
		DLOG("ERROR");
	}
DLOG("H");
	S_TEST tst;
	Sql sql;
	sql * Select(tst).From(TEST);
	while(sql.Fetch(tst))
		DDUMP(tst.ID);

b = true
session.throwonerror = false
A
B
create table TEST ( ID integer primary key identity )
ERROR [Microsoft][ODBC SQL Server Driver][SQL Server]There is already an object named 'TEST' in the database.(0): create table TEST ( ID integer primary key identity )
b = false
session.throwonerror = false
alter table TEST add TEXT varchar(200)
ERROR [Microsoft][ODBC SQL Server Driver][SQL Server]Column names in each table must be unique. Column name 'TEXT' in table 'TEST' is specified more than once.(0): alter table TEST add TEXT varchar(200)
b = false
session.throwonerror = false
alter table TEST alter column TEXT varchar(200)
b = true
session.throwonerror = false
C
alter table TEST add constraint PK_TEST$ID primary key (ID) create index PKX_TEST$ID on TEST(ID)
ERROR [Microsoft][ODBC SQL Server Driver][SQL Server]Table 'TEST' already has a primary key defined on it.
[Microsoft][ODBC SQL Server Driver][SQL Server]Could not create constraint or index. See previous errors.(0): alter table TEST add constraint PK_TEST$ID primary key (ID) create index PKX_TEST$ID on TEST(ID)
b = false
session.throwonerror = false
create index IDX_TEST$TEXT on TEST(TEXT)
ERROR [Microsoft][ODBC SQL Server Driver][SQL Server]The operation failed because an index or statistics with name 'IDX_TEST$TEXT' already exists on table 'TEST'.(0): create index IDX_TEST$TEXT on TEST(TEXT)
b = false
session.throwonerror = false
D
E
F
SQL* insert into TEST(ID, TEXT) values (0, 'A')
ERROR [Microsoft][ODBC SQL Server Driver][SQL Server]Cannot insert explicit value for identity column in table 'TEST' when IDENTITY_INSERT is set to OFF.(0): insert into TEST(ID, TEXT) values (0, 'A')
b = false
session.throwonerror = true
ERROR
H
select ID, TEXT from TEST
b = true
session.throwonerror = true
tst.ID = 1
tst.ID = 2
tst.ID = 3
tst.ID = 4
tst.ID = 5
tst.ID = 6
tst.ID = 7
tst.ID = 8
tst.ID = 9
tst.ID = 10

SqlSchema sch(MSSQL);
StdStatementExecutor se(SQL.GetSession());
All_Tables(sch);
ODBCPerformScript(sch.Upgrade(), se);
ODBCPerformScript(sch.Attributes(), se);

bool ImportData::InsertBody(myS_Table record)
{
DLOG("InsertBody");
	Sql sql(mssql);
	sql.ClearError();
DLOG("A");
	try { 
DLOG("TRY1");
sql * Insert(My_Table)
					(My_Id, record.Id)
					(My_Row, record.Row)
					(My_Description, record.Description);
DLOG("TRY2");
				return true;
	} catch(SqlExc) {
DLOG("CATCH1");
		ErrorOK(t_("Failed adding data to the database due to the following error: ") + SQL.GetLastError());
DLOG("CATCH2");
		return false;
	}
DLOG("NEVER HERE");
	return true;
}

InsertBody
A
TRY1
insert into X_DORIG(Id, Row, Description) values (180107, 1, 'Art. number')
ERROR [Microsoft][ODBC SQL Server Driver][SQL Server]Violation of PRIMARY KEY constraint 'PK_X_DORIG'. Cannot insert duplicate key in object 'dbo.X_DORIG'. The duplicate key value is (180107, 1).(0): insert into X_DORIG(Id, Row, Description) values (180107, 1, 'Art. number')
b = false
session.throwonerror = true
CATCH1

bool ImportData::InsertBody(myS_Table record)
{

PromptOK("InsertBody");

DLOG("InsertBody");
	Sql sql(mssql);
	sql.ClearError();
DLOG("A");
	try { 
PromptOK("Try");
DLOG("TRY1");
sql * Insert(My_Table)
					(My_Id, record.Id)
					(My_Row, record.Row)
					(My_Description, record.Description);
DLOG("TRY2");
				return true;
	} catch(SqlExc) {
PromptOK("In catch");
DLOG("CATCH1");
		ErrorOK(t_("Failed adding data to the database due to the following error: ") + SQL.GetLastError());
DLOG("CATCH2");
		return false;
	}
DLOG("NEVER HERE");
	return true;
}