// ad1.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
#include <stdio.h>

#import "C:\Program Files\Common Files\System\ado\msado20.tlb" \
        rename("EOF","ADOEOF") rename("BOF","ADOBOF")

using namespace ADODB;

int _tmain(int argc, _TCHAR* argv[])
{
	::CoInitialize(NULL);
try {
    // открываем соединение с БД
    _ConnectionPtr con("ADODB.Connection");
    _CommandPtr pCmd("ADODB.Command"); 
    _ParameterPtr Par1;
    con->Open("dsn=SQL1;", "sa", "", adConnectUnspecified); 
    pCmd->ActiveConnection = con;
    pCmd->CommandType = adCmdText;
    pCmd->CommandText = "UPDATE  Pact SET NamePact = ? WHERE IdPact = 65";
    pCmd->Prepared =  1 ;
    Par1 = pCmd->CreateParameter("NamePact", adChar, adParamInput,  12 , "New Bus 2");
    pCmd->Parameters->Append(Par1);
    pCmd->Execute(NULL, NULL, adCmdText);
	  } 
catch (_com_error& er) 
{
};
 // con->Close();
  ::CoUninitialize();

	return  0 ;
}