ThisForm.DataEnvironment.AddObject('oCA1', 'CursorAdapter')
WITH ThisForm.DataEnvironment.oCA1
	.DataSource = SQLCONNECT(gnCH)
	.DataSourceType = 'ODBC'
	.Alias = SYS( 2015 )
	.FetchSize = - 1  
	.Wheretype =  1 
	.BufferModeOverride =  5 
		
	.SelectCmd = 'SELECT id_, exe_ FROM versija'
	
	.Tables = 'versija'
	.KeyFieldList = 'id_'
	.UpdatableFieldList = 'id_, exe_'
	.UpdateNameList = 'ID_ versija.ID_, exe_ versija.exe_'
	
	.CursorSchema = "id_ C(36), exe_ M NOCPTRANS"
	.CursorFill(.t.)

	SELECT (.Alias)
	REPLACE exe_ with FILETOSTR(ThisForm.TxtFile.Value)

	IF TABLEUPDATE( 0 ) = .f.
		AERROR(aSqlErr)	
		MESSAGEBOX('Error' + CHR( 13 ) + aSqlErr( 2 ),  16 )
	ENDIF 		
ENDWITH