SQL

var

  anaForm: TclForm;

  bottomPanel: TclProPanel;

  newScreenButton: TclProButton;

  productCodePanel: TclProPanel;

  productNamePanel: TclProPanel;

  stockTypePanel: TclProPanel;

  productCodeLabel: TclProLabel;

  productCodeEdit: TclProEdit;

  productNameLabel: TclProLabel;

  productNameEdit: TclProEdit;

  stockTypeLabel: TclProLabel;

  stockTypeCombo: TCLComboBox;

  

  insertQuery: TclSqlQuery;


 void InstertToDatabase;

{

  try

  

    Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT  INTO Urunler (ProductCode, ProductName, StockType) VALUES ( '+productCodeEdit.Text+','+productNameEdit.Text+', '+stockTypeCombo.Value+' )';

    Clomosy.DBSQLServerQuery.ExecSql;

    ShowMessage('VERİ EKLEME BASARILI');

    

    except

      

      ShowMessage('Exception class: ' +LastExceptionClassName+ 'Exception message: ' +LastExceptionMessage);

    

}

insertQuery = TclSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-4JVIBLD\SQLEXPRESS', 'sa', '123456', 'clomosyDB',1433);

  insertQuery.Connection = Clomosy.DBSQLServerConnection;