lcDSN="DRIVER=MySQL ODBC 3.51 Driver;UID=mySQL;STMT=;OPTION=16;PASSWORD=;"+;
		"SERVER=192.168.0.2;DATABASE=igor;DESC="
lnConnHandle=SQLSTRINGCONNECT(lcDSN)
SQLEXEC(lnConnHandle,"SELECT * FROM igor","igor")
SQLDISCONNECT(lnConnHandle)

PARAMETERS ip_user
	STORE .F. TO my_ret 
	CA_AS4=CREATEOBJECT("CursorAdapter")
	CA_AS4.Alias="user"
	CA_AS4.DataSourceType="ODBC"
	CA_AS4.DataSource=HandelSQL
	CA_AS4.SelectCmd="Select user,host,password,select_priv,insert_priv,update_priv,delete_priv,"+;
					"create_priv,shutdown_priv,process_priv,file_priv,grant_priv,references_priv,"+;
					"index_priv,alter_priv,create_tmp_table_priv,lock_tables_priv,execute_priv,"+;
					'repl_slave_priv,repl_client_priv,create_view_priv,show_view_priv from user where host="'+ip_user+'"'
	CA_AS4.Tables="user"
	CA_AS4.KeyFieldList=""
	CA_AS4.UpdateType= 2 
	CA_AS4.UpdateNameList="user user.user, host user.host,password user.password,select_priv user.select_priv,insert_priv user.insert_priv,"+;
					"update_priv user.update_priv,delete_priv user.delete_priv,create_priv user.create_priv,"+;
					"shutdown_priv user.shutdown_priv,process_priv user.process_priv,file_priv user.file_priv,"+;
					"grant_priv user.grant_priv,references_priv user.references_priv,index_priv user.index_priv"+;
					"alter_priv user.alter_priv,create_tmp_table_priv user.create_tmp_table_priv,"+;
					"lock_tables_priv user.lock_tables_priv,execute_priv user.execute_priv,"+;
					"repl_slave_priv user.repl_slave_priv,repl_client_priv user.repl_client_priv,"+;
					"create_view_priv user.create_view_priv,show_view_priv user.show_view_priv"
	CA_AS4.UpdatableFieldList="Select user,host,password,select_priv,insert_priv,update_priv,delete_priv,"+;
					"create_priv,shutdown_priv,process_priv,file_priv,grant_priv,references_priv,"+;
					"index_priv,alter_priv,create_tmp_table_priv,lock_tables_priv,execute_priv,"+;
					"repl_slave_priv,repl_client_priv,create_view_priv,show_view_priv"
	llCursorFilled=CA_AS4.CursorFill()
	IF !llCursorFilled
		my_ret = .F.
	ENDIF
	IF RECCOUNT('user')= 0 
		INSERT INTO user(user) VALUES('my_SQL')
	ENDIF
	RELEASE CA_AS4
*	my_zapros = SQLEXEC(HandelSQL,"SELECT * FROM user","user")
ENDPROC